1! { dg-do compile } 2! { dg-options "-fcoarray=lib" } 3! { dg-compile-aux-modules "coarray_35.f90" } 4! 5! Check that the coarray declared in the module is accessible 6! by checking the assembler name 7! 8! Contributed by Alessandro Fanfarillo. 9! 10program testmod 11 use global_coarrays 12 implicit none 13 14 integer :: me 15 16 me = this_image() 17 18 b = me 19 20 if(me==1) then 21 b(:) = b(:)[2] 22 write(*,*) b 23 end if 24 25end program testmod 26 27! Check for the symbol of the coarray token (w/o system-dependend prefix) 28! { dg-final { scan-assembler "caf_token__global_coarrays_MOD_b" } } 29! { dg-final { cleanup-modules "global_coarrays" } } 30