blob: e44e17b644b2d132c47b917e553c42f80a099b3b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
! { 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
|