flang/test/Semantics/omp-sections01.f90

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