20 lines · plain
1! RUN: %flang_fc1 -emit-hlfir -fcoarray %s -o - | FileCheck %s --check-prefixes=COARRAY2! RUN: not %flang_fc1 -emit-hlfir %s 2>&1 | FileCheck %s --check-prefixes=NOCOARRAY3 4program test_team_number5 use, intrinsic :: iso_fortran_env, only: team_type6 implicit none7 ! NOCOARRAY: Not yet implemented: Multi-image features are experimental and are disabled by default, use '-fcoarray' to enable.8 9 type(team_type) :: team10 integer :: t11 12 ! COARRAY: %[[RES:.*]] = mif.team_number team %[[TEAM:.*]] : ({{.*}}) -> i6413 t = team_number(team)14 15 ! COARRAY: %[[RES:.*]] = mif.team_number : () -> i6416 t = team_number()17 18end program test_team_number19 20