aboutsummaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/pr95689.f90
blob: 287ae50b0cba7884c791a2bab81e1dc2d64587a7 (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/95689 - ICE in check_sym_interfaces, at fortran/interface.c:2015

module m2345678901234567890123456789012345678901234567890123456789_123
  type t2345678901234567890123456789012345678901234567890123456789_123
   end type
   interface
      module subroutine s2345678901234567890123456789012345678901234567890123456789_123 &
                       (x2345678901234567890123456789012345678901234567890123456789_123)
      end
   end interface
end
submodule(m2345678901234567890123456789012345678901234567890123456789_123) &
          t2345678901234567890123456789012345678901234567890123456789_123
end