29 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_get_team5 use, intrinsic :: iso_fortran_env, only: team_type, initial_team, current_team, parent_team6 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) :: result_team10 integer :: n 11 12 ! COARRAY: %[[RES:.*]] = mif.get_team : () -> {{.*}}13 result_team = get_team()14 15 ! COARRAY: %[[RES:.*]] = mif.get_team level %[[INIT:.*]] : (i32) -> {{.*}}16 result_team = get_team(initial_team)17 18 ! COARRAY: %[[RES:.*]] = mif.get_team level %[[CURRENT:.*]] : (i32) -> {{.*}}19 result_team = get_team(current_team)20 21 ! COARRAY: %[[RES:.*]] = mif.get_team level %[[PARENT:.*]] : (i32) -> {{.*}}22 result_team = get_team(parent_team)23 24 ! COARRAY: %[[RES:.*]] = mif.get_team level %[[VAL_N:.*]] : (i32) -> {{.*}}25 result_team = get_team(n) 26 27end program test_get_team28 29