forked from OSchip/llvm-project
16 lines
372 B
Fortran
16 lines
372 B
Fortran
! RUN: %B/test/Semantics/test_errors.sh %s %flang %t
|
|
! OPTIONS: -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
|