omp-sections01.f90
391 Bytes
! RUN: %S/test_errors.sh %s %t %f18 -fopenmp
! XFAIL: *
! 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: Only a single nowait clause can appear on a sections directive.
!$omp end sections nowait nowait
end program omp_sections