aboutsummaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/pr95707.f90
blob: 3279a6320cfae7b945fcbc24a4b4d358b95ac3d4 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
! { dg-do compile }
! { dg-options "-fsecond-underscore" }
! PR fortran/95707 - ICE in finish_equivalences, at fortran/trans-common.c:1319

module m2345678901234567890123456789012345678901234567890123456789_123
  interface
     module subroutine s2345678901234567890123456789012345678901234567890123456789_123
     end
  end interface
end
submodule(m2345678901234567890123456789012345678901234567890123456789_123) &
          n2345678901234567890123456789012345678901234567890123456789_123
  real :: a(4), u(3,2)
  real :: b(4), v(4,2)
  equivalence (a(1),u(1,1)), (b(1),v(1,1))
end