gcc/testsuite/gfortran.dg/equiv_11.f90


1
2
3
4
5
6
7
8
9
10
11
12

! { dg-do compile }
! { dg-options "-fsecond-underscore" }
! PR fortran/95106

module m2345678901234567890123456789012345678901234567890123456789_123
  implicit none
  real :: a(4), u(3,2)
  real :: b(4), v(4,2)
  equivalence (a(1),u(1,1)), (b(1),v(1,1))
end
! { dg-final { scan-assembler {m2345678901234567890123456789012345678901234567890123456789_123.eq.0__} } }
! { dg-final { scan-assembler {m2345678901234567890123456789012345678901234567890123456789_123.eq.1__} } }