gcc/testsuite/gfortran.dg/pr77420.f90

   1 ! { dg-do compile }
   2 MODULE test_equivalence
   3   REAL, PRIVATE, DIMENSION(100) :: array1
   4   REAL, PRIVATE, DIMENSION(100) :: array2
   5   EQUIVALENCE(array1(1),array2(1))
   6 END MODULE test_equivalence
   7
   8 MODULE mymodule
   9   USE test_equivalence
  10   ! declare a local variable with the same name as the (private!)
  11   ! variable in module test_equivalence:
  12   REAL, DIMENSION(:), ALLOCATABLE :: array1
  13 END MODULE mymodule
  14
  15 PROGRAM test
  16   USE mymodule
  17 END PROGRAM test
  18