15 lines · plain
1! RUN: %flang_fc1 -emit-hlfir -fcoarray %s -o - | FileCheck %s2 3program test4 use iso_fortran_env5 integer :: i6 type(team_type) :: team7 8 ! CHECK: mif.this_image : () -> i329 i = this_image()10 11 ! CHECK: mif.this_image team %[[TEAM:.*]] : ({{.*}}) -> i3212 i = this_image(TEAM=team)13 14end program15