gcc/testsuite/gfortran.dg/equiv_11.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-fsecond-underscore" }
   3 ! PR fortran/95106
   4
   5 module m2345678901234567890123456789012345678901234567890123456789_123
   6   implicit none
   7   real :: a(4), u(3,2)
   8   real :: b(4), v(4,2)
   9   equivalence (a(1),u(1,1)), (b(1),v(1,1))
  10 end
  11 ! { dg-final { scan-assembler {m2345678901234567890123456789012345678901234567890123456789_123.eq.0__} } }
  12 ! { dg-final { scan-assembler {m2345678901234567890123456789012345678901234567890123456789_123.eq.1__} } }