23 lines · plain
1! RUN: not %flang_fc1 -emit-fir -fopenmp -fopenmp-version=60 %s -o - 2>&1 | FileCheck %s2 3! CHECK: error: teams has omp ops other than workdistribute. Lowering not implemented yet.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 distribute17 do i = 1, 1018 x(i) = real(i, kind=real32)19 end do20 !$omp end distribute21 !$omp end teams22end subroutine teams_workdistribute_123