30 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_form_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 :: team_number11 integer :: team_index12 integer :: stat13 character(len=10) :: err14 15 form team (team_number, team)16 ! COARRAY: mif.form_team team_number %[[ARG1:.*]] team_var %[[ARG2:.*]] : (i32, {{.*}}) -> ()17 18 form team (team_number, team, NEW_INDEX=team_index)19 ! COARRAY: mif.form_team team_number %[[ARG1:.*]] team_var %[[ARG2:.*]] new_index %[[NI:.*]] : (i32, {{.*}}, i32) -> ()20 21 form team (team_number, team, STAT=stat)22 ! COARRAY: mif.form_team team_number %[[ARG1:.*]] team_var %[[ARG2:.*]] stat %[[STAT:.*]] : (i32, {{.*}}, !fir.ref<i32>) -> ()23 24 form team (team_number, team, ERRMSG=err)25 ! COARRAY: mif.form_team team_number %[[ARG1:.*]] team_var %[[ARG2:.*]] errmsg %[[ERR:.*]] : (i32, {{.*}}, !fir.box<!fir.char<1,10>>) -> ()26 27end program test_form_team28 29 30