Fix "team change" statement unit test

Author: Damian Rouson

gcc/testsuite/gfortran.dg/team_change_1.f90

@@ -6,10 +6,17 @@
   use iso_fortran_env, only : team_type
   implicit none
   type(team_type) :: team
-  integer :: orig_i
+  integer :: new_team
+  integer, parameter :: standard_initial_value=-1
 
-  orig_i = this_image ()
-  form team (orig_i + 1,team)
-  change team (team)
-  if ( orig_i + 1 .NE. this_image() ) call abort
+  if (team_number()/=standard_initial_value) call abort
+
+  new_team = mod(this_image(),2)+1
+
+  form team (new_team,team)
+    change team (team)
+    if (team_number()/=new_team) call abort
+  end team
+
+  if (team_number()/=standard_initial_value) call abort
 end