2 ! { dg-options "-fcoarray=single" }
4 ! Tests if team_number intrinsic fucntion works
6 use iso_fortran_env
, only
: team_type
8 type(team_type
) :: team
9 integer, parameter :: standard_initial_value
=-1
11 associate(new_team
=> mod(this_image(),2)+1)
12 form
team (new_team
,team
)
17 if (team_number()/=standard_initial_value
) STOP 1