gcc/testsuite/gfortran.dg/team_end_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
  11   associate(new_team => mod(this_image(),2)+1)
  12     form team (new_team,team)
  13       change team (team)
  14     end team
  15   end associate
  16
  17   if (team_number()/=standard_initial_value) STOP 1
  18 end