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 "Failed to match clause" } 25!$ NUM_THREADS(2) 26!$OMP END PARALLEL ! { dg-error "Unexpected" } 27 28!$OMP PARALLEL & ! { dg-error "Failed to match clause" } 29!$ & NUM_THREADS(2) ! { dg-error "Invalid character" } 30!$OMP END PARALLEL ! { dg-error "Unexpected" } 31 32!$OMP PARALLEL & ! { dg-error "Failed to match clause" } 33! 34!$ NUM_THREADS(2) 35!$OMP END PARALLEL ! { dg-error "Unexpected" } 36 37!$OMP PARALLEL & ! { dg-error "Failed to match clause" } 38! 39!$ & NUM_THREADS(2) ! { dg-error "Invalid character" } 40!$OMP END PARALLEL ! { dg-error "Unexpected" } 41 42END PROGRAM 43