OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [libgomp/] [testsuite/] [libgomp.c++/] [loop-5.C] - Blame information for rev 858

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 38 julius
extern "C" void abort ();
2
 
3
int check;
4
int f1() { check |= 1; return 1; }
5
int f2() { check |= 2; return 11; }
6
int f3() { check |= 4; return 2; }
7
 
8
int a[12];
9
 
10
int main()
11
{
12
  #pragma omp for
13
  for (int i = f1(); i <= f2(); i += f3())
14
    a[i] = 1;
15
 
16
  for (int i = 0; i < 12; ++i)
17
    if (a[i] != (i & 1))
18
      abort ();
19
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.