1! { dg-do compile { target { ! *-*-* } } } 2! SKIP THIS FILE 3! 4! Used by codimension_2.f90 5! 6! Check that the coarray declared in the module is accessible 7! by doing a link test 8! 9! Contributed by Alessandro Fanfarillo. 10! 11program testmod 12 use global_coarrays 13 implicit none 14 external ttest 15 16 integer :: me 17 18 me = this_image() 19 20 b = me 21 22 if(me==1) then 23 b(:) = b(:)[2] 24 write(*,*) b 25 elseif (me == 3) then 26 call ttest() 27 end if 28 29end program testmod 30