1! PR fortran/29759
2! { dg-do compile }
3
4PROGRAM test_omp
5!$OMP PARALLEL &
6!$OMP NUM_THREADS(2)
7!$OMP END PARALLEL
8
9!$OMP PARALLEL &
10!$OMP & NUM_THREADS(2)
11!$OMP END PARALLEL
12
13!$OMP PARALLEL &
14!
15!$OMP NUM_THREADS(2)
16!$OMP END PARALLEL
17
18!$OMP PARALLEL &
19!
20!$OMP & NUM_THREADS(2)
21!$OMP END PARALLEL
22
23
24!$OMP PARALLEL &		! { dg-error "Unclassifiable OpenMP" }
25!$    NUM_THREADS(2)		! { dg-error "Unclassifiable|Invalid character" }
26!$OMP END PARALLEL		! { dg-error "Unexpected" }
27
28!$OMP PARALLEL &		! { dg-error "Unclassifiable OpenMP" }
29!$    & NUM_THREADS(2)		! { dg-error "Unclassifiable|Invalid character" }
30!$OMP END PARALLEL		! { dg-error "Unexpected" }
31
32!$OMP PARALLEL &		! { dg-error "Unclassifiable OpenMP" }
33!
34!$    NUM_THREADS(2)		! { dg-error "Unclassifiable|Invalid character" }
35!$OMP END PARALLEL		! { dg-error "Unexpected" }
36
37!$OMP PARALLEL &		! { dg-error "Unclassifiable OpenMP" }
38!
39!$    & NUM_THREADS(2)		! { dg-error "Unclassifiable|Invalid character" }
40!$OMP END PARALLEL		! { dg-error "Unexpected" }
41
42END PROGRAM
43