28 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_change_team5 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 :: stat, i11 character(len=10) :: err12 13 ! COARRAY: mif.change_team %[[TEAM:.*]] : ({{.*}}) {14 change team (team)15 i = i +116 end team 17 ! COARRAY: mif.end_team 18 ! COARRAY: }19 20 ! COARRAY: mif.change_team %[[TEAM:.*]] stat %[[STAT:.*]]#0 errmsg %[[ERR:.*]] : ({{.*}}, !fir.ref<i32>, !fir.box<!fir.char<1,10>>) {21 change team (team, STAT=stat, ERRMSG=err)22 end team23 ! COARRAY: mif.end_team 24 ! COARRAY: }25 26end program test_change_team27 28