gcc/testsuite/gfortran.dg/team_end_1.f90

! { 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

  associate(new_team => mod(this_image(),2)+1)
    form team (new_team,team)
      change team (team)
    end team
  end associate

  if (team_number()/=standard_initial_value) STOP 1
end