19 lines · plain
1! RUN: %flang_fc1 -emit-hlfir -fcoarray %s -o - | FileCheck %s2 3program test4 use iso_fortran_env5 integer :: i6 integer :: team_number7 type(team_type) :: team8 9 ! CHECK: mif.num_images : () -> i3210 i = num_images()11 12 ! CHECK: mif.num_images team_number %[[TEAM_NUMBER:.*]] : (i32) -> i3213 i = num_images(TEAM_NUMBER=team_number)14 15 ! CHECK: mif.num_images team %[[TEAM:.*]]#0 : ({{.*}}) -> i3216 i = num_images(TEAM=team)17 18end program19