16 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang -fopenmp -fopenmp-version=502! OpenMP Version 6.03! workdistribute Construct4! Unsuported OpenMP version5 6subroutine teams_workdistribute()7 use iso_fortran_env8 real(kind=real32) :: a9 real(kind=real32), dimension(10) :: x10 real(kind=real32), dimension(10) :: y11 !ERROR: WORKDISTRIBUTE construct is not allowed in OpenMP v5.0, try -fopenmp-version=6012 !$omp teams workdistribute13 y = a * x + y14 !$omp end teams workdistribute15end subroutine teams_workdistribute16