PR libfortran/64770 Segfault when trying to open existing file with status="new".
[official-gcc.git] / gcc / testsuite / gcc.dg / gomp / sections-1.c
blob43704908e43de34b39717efbe1c65bcacf9d65aa
1 /* { dg-do compile } */
3 extern void bar(int);
5 void f1(void)
7 #pragma omp sections nowait
9 bar (1);
10 #pragma omp section
11 bar (2);
12 #pragma omp section
13 bar (3);
14 #pragma omp section
15 bar (4);
16 #pragma omp section
17 bar (5);
21 void f2(void)
23 #pragma omp sections
25 #pragma omp section
27 bar (1);
28 bar (1);
30 #pragma omp section
31 bar (2);
32 #pragma omp section
33 bar (3);
34 #pragma omp section
35 bar (4);
36 #pragma omp section
37 bar (5);