30 lines · plain
1! RUN: %flang_fc1 -emit-fir -fopenmp -fopenmp-version=60 %s -o - | FileCheck %s2 3! CHECK-LABEL: func @_QPtarget_teams_workdistribute_scalar_assign4subroutine target_teams_workdistribute_scalar_assign()5 integer :: aa(10)6 7 ! CHECK: omp.target_data8 ! CHECK: omp.target9 ! CHECK: omp.teams10 ! CHECK: omp.parallel11 ! CHECK: omp.distribute12 ! CHECK: omp.wsloop13 ! CHECK: omp.loop_nest14 15 !$omp target teams workdistribute16 aa = 2017 !$omp end target teams workdistribute18 19end subroutine target_teams_workdistribute_scalar_assign20 21! CHECK-LABEL: func @_QPteams_workdistribute_scalar_assign22subroutine teams_workdistribute_scalar_assign()23 integer :: aa(10)24 ! CHECK: fir.call @_FortranAAssign25 !$omp teams workdistribute26 aa = 2027 !$omp end teams workdistribute28 29end subroutine teams_workdistribute_scalar_assign30