gcc/testsuite/gfortran.dg/team_number_1.f90

   1 ! { dg-do run }
   2 ! { dg-options "-fcoarray=single" }
   3 !
   4 ! Tests if team_number intrinsic fucntion works
   5 !
   6   use iso_fortran_env, only : team_type
   7   implicit none
   8   type(team_type) team
   9   integer, parameter :: standard_initial_value=-1
  10   integer new_team
  11
  12   if (team_number()/=standard_initial_value) STOP 1
  13
  14   new_team = mod(this_image(),2)+1
  15   form team (new_team,team)
  16     change team (team)
  17     if (team_number()/=new_team) STOP 2
  18   end team
  19
  20   if (team_number()/=standard_initial_value) STOP 3
  21
  22 end