coarray.f90

program main

    implicit none
    integer, parameter :: max_greeting_length=30
    character(len=max_greeting_length), allocatable :: greeting[:]
    integer :: IMAGE

    allocate(greeting[*])
    write(greeting,"(2(a,i2))") "Hello from image ", this_image()," of ",num_images()
    sync all

    if (this_image()==1) then
        do concurrent (IMAGE=1:num_images())
           print *,greeting[IMAGE] 
        end do
    end if

end program main