URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [g++.dg/] [vect/] [pr33834_2.cc] - Rev 445
Go to most recent revision | Compare with Previous | Blame | View Log
/* { dg-do compile } */ /* { dg-options "-O3 -ftree-vectorize" } */ /* Testcase by Martin Michlmayr <tbm@cyrius.com> */ extern int sscanf (__const char *__restrict __s, __const char *__restrict __format, ...); unsigned char got_elevation_pattern; struct site { float antenna_pattern[361][1001]; } LR; void LoadPAT (char *filename) { int x, y; char string[255]; float elevation, amplitude, elevation_pattern[361][1001]; for (x = 0; filename[x] != '.' ; x++) sscanf (string, "%f %f", &elevation, &litude); for (y = 0; y <= 1000; y++) { if (got_elevation_pattern) elevation = elevation_pattern[x][y]; else elevation = 1.0; LR.antenna_pattern[x][y] = elevation; } } /* { dg-final { cleanup-tree-dump "vect" } } */
Go to most recent revision | Compare with Previous | Blame | View Log