! { 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 | |
associate(new_team => mod(this_image(),2)+1) | |
form team (new_team,team) | |
change team (team) | |
end team | |
end associate | |
if (team_number()/=standard_initial_value) STOP 1 | |
end |