mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
23 lines
501 B
Fortran
23 lines
501 B
Fortran
! { 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
|