Skip to content

Commit aa765aa

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 aa765aa

File tree

1 file changed

+6
-6
lines changed

1 file changed

+6
-6
lines changed

app/native-multi-image.F90

Lines changed: 6 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -123,13 +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()
132+
write(*,'(A,I3)') "After END TEAM statement, TEAM_NUMBER() is ", TEAM_NUMBER()
133133

134134
# endif
135135

0 commit comments

Comments
 (0)