! RUN: %S/test_errors.sh %s %t %flang -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 |