aboutsummaryrefslogtreecommitdiffstats
path: root/meson/test cases/fortran/13 coarray/main.f90
blob: eee03ea038a96664aced6f4411ea1cf48801c6ab (plain)
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