2 ! { dg-options "-fcoarray=single" }
4 ! Check argument passing.
5 ! Taken from Reinhold Bader's fortran_tests.
8 module mod_rank_mismatch_02
10 integer, parameter :: ndim
= 2
18 if (this_image() == 0) then
20 do k
= 1, num_images()
21 if (abs(w(2,1)[k
] - x
) > 1.0e-5) then
32 program rank_mismatch_02
33 use mod_rank_mismatch_02
38 a(2,2) = 1.0 * this_image()
42 call subr(ndim
, a(1:1,2)) ! OK
43 call subr(ndim
, a(1,2)) ! See also F08/0048 and PR 45859 about the validity
44 if (this_image() == 1) then