meson/test cases/fortran/13 coarray/main.f90


1
2
3
4
5
6
7
8
9
10

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