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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [libgomp/] [testsuite/] [libgomp.c/] [pr36802-1.c] - Blame information for rev 801

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

Line No. Rev Author Line
1 735 jeremybenn
/* PR middle-end/36802 */
2
 
3
extern void abort (void);
4
 
5
int
6
foo (int k)
7
{
8
  int i = 0;
9
#pragma omp parallel
10
  #pragma omp single
11
    {
12
      if (!k)
13
        {
14
          int j;
15
          for (j = 0; j < 10; j++)
16
          #pragma omp task
17
            if (j == 4)
18
              i++;
19
        }
20
      else
21
        i++;
22
    }
23
  return i;
24
}
25
 
26
int
27
main (void)
28
{
29
  if (foo (0) != 1)
30
    abort ();
31
  if (foo (1) != 1)
32
    abort ();
33
  return 0;
34
}

powered by: WebSVN 2.1.0

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