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
