Sign in
qemu
/
meson
/
a3d3efd3cfc6e9b0ce8a7536527e1e9ca134f80a
/
.
/
test cases
/
fortran
/
13 coarray
/
main.f90
blob: eee03ea038a96664aced6f4411ea1cf48801c6ab [
file
] [
log
] [
blame
]
program main
implicit
none
if
(
this_image
()
==
1
)
print
*,
'number of Fortran coarray images:'
,
num_images
()
sync all
!
semaphore
,
ensures message above
is
printed at top
.
print
*,
'Process '
,
this_image
()
end
program