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" } } */