llvm-project/flang/test/Semantics/omp-sections01.f90

16 lines
385 B
Fortran

! RUN: %S/test_errors.sh %s %t %flang -fopenmp
! OpenMP Version 4.5
! 2.7.2 sections Construct
! Only a single nowait clause can appear on a sections directive.
program omp_sections
!$omp sections
!$omp section
print *, "omp section"
!ERROR: At most one NOWAIT clause can appear on the END SECTIONS directive
!$omp end sections nowait nowait
end program omp_sections