31 lines · plain
1! RUN: %flang_fc1 -emit-hlfir -fopenmp -fopenmp-version=60 %s -o - | FileCheck %s2 3! CHECK-LABEL: func @_QPtarget_teams_workdistribute4subroutine target_teams_workdistribute()5 integer :: aa(10), bb(10)6 ! CHECK: omp.target7 ! CHECK: omp.teams8 ! CHECK: omp.workdistribute9 !$omp target teams workdistribute10 aa = bb11 ! CHECK: omp.terminator12 ! CHECK: omp.terminator13 ! CHECK: omp.terminator14 !$omp end target teams workdistribute15end subroutine target_teams_workdistribute16 17! CHECK-LABEL: func @_QPteams_workdistribute18subroutine teams_workdistribute()19 use iso_fortran_env20 real(kind=real32) :: a21 real(kind=real32), dimension(10) :: x22 real(kind=real32), dimension(10) :: y23 ! CHECK: omp.teams24 ! CHECK: omp.workdistribute25 !$omp teams workdistribute26 y = a * x + y27 ! CHECK: omp.terminator28 ! CHECK: omp.terminator29 !$omp end teams workdistribute30end subroutine teams_workdistribute31