1 /* { dg-do compile } */
2 /* { dg-options "-O3 -ftree-vectorize" } */
4 /* Testcase by Martin Michlmayr <tbm@cyrius.com> */
6 extern int sscanf (__const char *__restrict __s,
7 __const char *__restrict __format, ...);
8 unsigned char got_elevation_pattern;
11 float antenna_pattern[361][1001];
15 LoadPAT (char *filename)
19 float elevation, amplitude, elevation_pattern[361][1001];
20 for (x = 0; filename[x] != '.' ; x++)
21 sscanf (string, "%f %f", &elevation, &litude);
22 for (y = 0; y <= 1000; y++)
24 if (got_elevation_pattern)
25 elevation = elevation_pattern[x][y];
28 LR.antenna_pattern[x][y] = elevation;
32 /* { dg-final { cleanup-tree-dump "vect" } } */