17 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang -fopenmp -fopenmp-version=602! OpenMP Version 6.03! workdistribute Construct4! Invalid do construct inside !$omp workdistribute5 6subroutine workdistribute()7 integer n, i8 !ERROR: A WORKDISTRIBUTE region must be nested inside TEAMS region only.9 !ERROR: The structured block in a WORKDISTRIBUTE construct may consist of only SCALAR or ARRAY assignments10 !$omp workdistribute11 do i = 1, n12 print *, "omp workdistribute"13 end do14 !$omp end workdistribute15 16end subroutine workdistribute17