26 lines · plain
1! RUN: %flang_fc1 -emit-hlfir -fcoarray %s -o - | FileCheck %s --check-prefixes=COARRAY2! RUN2: not %flang_fc1 -emit-hlfir %s -o - | FileCheck %s --check-prefixes=NOCOARRAY3 4program test_sync_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 integer sync_status10 character(len=128) :: error_message11 type(team_type) :: team12 13 ! COARRAY: mif.sync_team %[[TEAM:.*]] : ({{.*}}) -> ()14 sync team(team)15 16 ! COARRAY: mif.sync_team %[[TEAM:.*]] stat %[[STAT:.*]]#0 : ({{.*}}, !fir.ref<i32>) -> ()17 sync team(team, stat=sync_status)18 19 ! COARRAY: mif.sync_team %[[TEAM:.*]] errmsg %[[ERR:.*]] : ({{.*}}, !fir.box<!fir.char<1,128>>) -> ()20 sync team(team, errmsg=error_message)21 22 ! COARRAY: mif.sync_team %[[TEAM:.*]] stat %[[STAT:.*]]#0 errmsg %[[ERR:.*]] : ({{.*}}, !fir.ref<i32>, !fir.box<!fir.char<1,128>>) -> ()23 sync team(team, stat=sync_status, errmsg=error_message)24 25end program test_sync_team26