nvptx, libgfortran: Switch out of "minimal" mode
[official-gcc.git] / gcc / testsuite / gfortran.dg / team_form_1.f90
blobfd492f6ed84fc4d17fa10ec2d118372c4ee0f855
1 ! { dg-do run }
2 ! { dg-options "-fcoarray=single" }
4 ! Tests if form team works
6 use iso_fortran_env, only : team_type
7 implicit none
8 type(team_type) :: team
10 form team (mod(this_image(),2)+1,team)
12 end