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

Ignoring revisions in .git-blame-ignore-revs. Click here to bypass and see the normal blame view.

15 lines
344 B
Fortran
Raw Normal View History

! RUN: %S/test_errors.sh %s %t %f18 -fopenmp
! Check OpenMP 2.17 Nesting of Regions
N = 1024
!$omp do
do i = 1, N
!ERROR: A worksharing region may not be closely nested inside a worksharing, explicit task, taskloop, critical, ordered, atomic, or master region
!$omp do
do j = 1, N
a = 3.14
enddo
enddo
end