URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [libgomp/] [testsuite/] [libgomp.c/] [autopar-1.c] - Rev 280
Go to most recent revision | Compare with Previous | Blame | View Log
/* { dg-do run } */ /* { dg-options "-ftree-parallelize-loops=4 -O2 -ffast-math" } */ extern void abort (void); double d[1024], e[1024]; int f[1024], g[1024]; double __attribute__((noinline)) foo (void) { double s = 0.0; int i; for (i = 0; i < 1024; i++) s += d[i] - e[i]; return s; } int __attribute__((noinline)) bar (void) { int s = 0, i; for (i = 0; i < 1024; i++) s += f[i] - g[i]; return s; } int main (void) { int i; for (i = 0; i < 1024; i++) { d[i] = i * 2; e[i] = i; f[i] = i * 2; g[i] = i; } if (foo () != 1023 * 1024 / 2) abort (); if (bar () != 1023 * 1024 / 2) abort (); return 0; }
Go to most recent revision | Compare with Previous | Blame | View Log