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 distribute13 do i = 1, 1014 x(i) = real(i, kind=real32)15 end do16 !$omp end distribute17 18 !$omp workdistribute19 y = a * x + y20 !$omp end workdistribute21 !$omp end teams22end subroutine teams_workdistribute_123