gcc/testsuite/gfortran.dg/coarray_35.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-fcoarray=lib" }
   3 !
   4 ! To be used with coarray_35a.f90
   5 ! Check that the coarray declared in the module is accessible
   6 ! by checking the assembler name
   7 !
   8 ! Contributed by Alessandro Fanfarillo.
   9 !
  10 module global_coarrays
  11   implicit none
  12   integer,parameter :: n=10
  13   integer :: b(10)[*]
  14 end module global_coarrays
  15
  16 ! Check for the symbol of the coarray token (w/o system-dependend prefix)
  17 ! { dg-final { scan-assembler "caf_token__global_coarrays_MOD_b" } }