repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
C++: fix-it hint for missing "typename" (PR c++/63392)
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
team_change_1.f90
blob
2e72527073ba211fb1bd79e53b78b2735d70a8b0
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