https://gcc.gnu.org/bugzilla/show_bug.cgi?id=88076
--- Comment #3 from Nicolas Koenig <koenigni at gcc dot gnu.org> --- Created attachment 45535 --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=45535&action=edit Proof-of-concept As a little update, here is a proof-of-concept patch. It adds a new coarray option -fcoarray=native and allows (together with the library I will attach in the next post) the compilation and execution of the following very simple coarray program: $ cat test.f90 program main implicit none integer:: a[*] a[next_image()] = this_image() sync all print *, 'Hi from', a[this_image()], 'to', this_image() contains function next_image() integer:: next_image next_image = mod(this_image() + 1, num_images()) end function end program $ gfortran -fcoarray=native -Lpath/to/native/coarray/library test.f90 -lcoarraynative -lrt $ GFORTRAN_NUM_IMAGES=4 ./a.out Hi from 2 to 3 Hi from 4 to 1 Hi from 1 to 2 Hi from 0 to 4 P.S.: I got a bit sidetracked the last few months, so this all took a bit longer than expected :D
