flang/test/Semantics/OpenMP/sections01.f90

   1 ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
   2
   3 ! OpenMP Version 4.5
   4 ! 2.7.2 sections Construct
   5 ! Only a single nowait clause can appear on a sections directive.
   6
   7 program omp_sections
   8
   9   !$omp sections
  10     !$omp section
  11     print *, "omp section"
  12   !ERROR: At most one NOWAIT clause can appear on the END SECTIONS directive
  13   !$omp end sections nowait nowait
  14
  15 end program omp_sections