1! { dg-do compile } 2! { dg-options "-fopenmp" } 3! 4! PR fortran/43711 uninformative error message for two 'nowait' in omp statement 5! Contributed by Bill Long <longb AT cray DOT com> 6 7program NF03_2_5_2_1a 8 !$omp parallel 9 !$omp sections 10 !$omp section 11 print *, 'FAIL' 12 !$omp section 13 print *, 'FAIL' 14 !$omp end sections nowait nowait ! { dg-error "Unexpected junk" } 15 !$omp end parallel 16end program NF03_2_5_2_1a 17 18! { dg-excess-errors "Unexpected" } 19