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


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

! { dg-do compile }
! { dg-options "-fopenmp" }
!
! PR fortran/43711 uninformative error message for two 'nowait' in omp statement
! Contributed by Bill Long <longb AT cray DOT com>

program NF03_2_5_2_1a
   !$omp parallel
      !$omp sections
      !$omp section
         print *, 'FAIL'
      !$omp section
         print *, 'FAIL'
      !$omp end sections nowait nowait     ! { dg-error "Unexpected junk" }
   !$omp end parallel
end program NF03_2_5_2_1a

! { dg-excess-errors "Unexpected" }