gcc/testsuite/gfortran.dg/gomp/pr43711.f90

   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
   7 program 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
  16 end program NF03_2_5_2_1a
  17
  18 ! { dg-excess-errors "Unexpected" }