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