1/* { dg-do compile } */
2/* { dg-options "-O3 -ftree-vectorize" } */
3
4/* Testcase by Martin Michlmayr <tbm@cyrius.com> */
5
6extern int sscanf (__const char *__restrict __s,
7                  __const char *__restrict __format, ...);
8unsigned char got_elevation_pattern;
9struct site
10{
11  float antenna_pattern[361][1001];
12}
13LR;
14void
15LoadPAT (char *filename)
16{
17  int x, y;
18  char string[255];
19  float elevation, amplitude, elevation_pattern[361][1001];
20  for (x = 0; filename[x] != '.' ; x++)
21    sscanf (string, "%f %f", &elevation, &amplitude);
22  for (y = 0; y <= 1000; y++)
23  {
24    if (got_elevation_pattern)
25      elevation = elevation_pattern[x][y];
26    else
27      elevation = 1.0;
28    LR.antenna_pattern[x][y] = elevation;
29  }
30}
31
32/* { dg-final { cleanup-tree-dump "vect" } } */
33