PR tree-optimization/86415 - strlen() not folded for substrings within constant arrays
[official-gcc.git] / gcc / testsuite / gfortran.dg / team_number_1.f90
blobe44e17b644b2d132c47b917e553c42f80a099b3b
1 ! { dg-do run }
2 ! { dg-options "-fcoarray=single" }
4 ! Tests if team_number intrinsic fucntion works
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
12 if (team_number()/=standard_initial_value) STOP 1
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
20 if (team_number()/=standard_initial_value) STOP 3
22 end