Skip to content

Commit a51917b

Browse files
committed
Update team section of native-multi-image.F90 test to be consistent
with the convention for case in this test
1 parent e7bcc48 commit a51917b

File tree

1 file changed

+6
-7
lines changed

1 file changed

+6
-7
lines changed

app/native-multi-image.F90

Lines changed: 6 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -123,14 +123,13 @@ program native_multi_image
123123
team_id = merge(1, 2, me <= ni/2)
124124
end if
125125

126-
form team(team_id, subteam)
127-
sync team(subteam)
128-
change team(subteam)
129-
write(*,'(A,I3,A,I3,A,I3)') 'Inside CHANGE TEAM construct: ', this_image(), ' of ', num_images(), ' in team number ', team_number()
130-
end team
126+
FORM TEAM(team_id, subteam)
127+
SYNC TEAM(subteam)
128+
CHANGE TEAM(subteam)
129+
write(*,'(A,I3,A,I3,A,I3)') 'Inside CHANGE TEAM construct: ', THIS_IMAGE(), ' of ', NUM_IMAGES(), ' in team number ', TEAM_NUMBER()
130+
END TEAM
131131
call sync_all
132-
write(*,'(A,I3)') "After END TEAM statement, TEAM_NUMBER() is ", team_number()
133-
132+
write(*,'(A,I3)') "After END TEAM statement, TEAM_NUMBER() is ", TEAM_NUMBER()
134133
# endif
135134

136135
call sync_all

0 commit comments

Comments
 (0)