21 lines · plain
1! RUN: not %flang_fc1 -emit-fir -fopenmp -fopenmp-version=60 %s -o - 2>&1 | FileCheck %s2 3! CHECK: error: teams has multiple workdistribute ops.4! CHECK-LABEL: func @_QPteams_workdistribute_15subroutine teams_workdistribute_1()6 use iso_fortran_env7 real(kind=real32) :: a8 real(kind=real32), dimension(10) :: x9 real(kind=real32), dimension(10) :: y10 !$omp teams11 12 !$omp workdistribute13 y = a * x + y14 !$omp end workdistribute15 16 !$omp workdistribute17 y = a * y + x18 !$omp end workdistribute19 !$omp end teams20end subroutine teams_workdistribute_121