Sign in
qemu
/
meson
/
2d7b7c3aaf23d08d51f375fa1eea80e0ffffed87
/
.
/
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