gcc/testsuite/gfortran.dg/team_change_1.f90

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