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

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

33 lines
870 B
Fortran
Raw Normal View History

! RUN: %S/test_errors.sh %s %t %flang -fopenmp
! OpenMP Version 4.5
! 2.7.4 workshare Construct
! Invalid do construct inside !$omp workshare
subroutine workshare(aa, bb, cc, dd, ee, ff, n)
integer n, i
real aa(n,n), bb(n,n), cc(n,n), dd(n,n), ee(n,n), ff(n,n)
!ERROR: The structured block in a WORKSHARE construct may consist of only SCALAR or ARRAY assignments, FORALL or WHERE statements, FORALL, WHERE, ATOMIC, CRITICAL or PARALLEL constructs
!ERROR: OpenMP constructs enclosed in WORKSHARE construct may consist of ATOMIC, CRITICAL or PARALLEL constructs only
!$omp workshare
do i = 1, n
print *, "omp workshare"
end do
!$omp critical
!$omp single
aa = bb
!$omp end single
!$omp end critical
!$omp parallel
!$omp single
cc = dd
!$omp end single
!$omp end parallel
ee = ff
!$omp end workshare
end subroutine workshare