! { dg-do run } | |
! { dg-options "-fcoarray=single" } | |
! | |
! Tests if team_number intrinsic fucntion works | |
! | |
use iso_fortran_env, only : team_type | |
implicit none | |
type(team_type) team | |
integer, parameter :: standard_initial_value=-1 | |
integer new_team | |
if (team_number()/=standard_initial_value) STOP 1 | |
new_team = mod(this_image(),2)+1 | |
form team (new_team,team) | |
change team (team) | |
if (team_number()/=new_team) STOP 2 | |
end team | |
if (team_number()/=standard_initial_value) STOP 3 | |
end |