1! { dg-do compile }
2! { dg-options "-fsecond-underscore" }
3! PR fortran/95091 - ICE in gfc_hash_value
4
5module m2345678901234567890123456789012345678901234567890123456789_123
6  type t2345678901234567890123456789012345678901234567890123456789_123
7  end type t2345678901234567890123456789012345678901234567890123456789_123
8  interface
9     module subroutine s2345678901234567890123456789012345678901234567890123456789_123 &
10          (x2345678901234567890123456789012345678901234567890123456789_123)
11    end
12  end interface
13end
14submodule(m2345678901234567890123456789012345678901234567890123456789_123) &
15     n2345678901234567890123456789012345678901234567890123456789_123
16  type, extends(t2345678901234567890123456789012345678901234567890123456789_123) :: &
17    u2345678901234567890123456789012345678901234567890123456789_123
18  end type
19end
20