2 ! { dg-options "-fsecond-underscore" }
3 ! PR fortran/95687 - ICE in get_unique_hashed_string, at fortran/class.c:508
5 module m2345678901234567890123456789012345678901234567890123456789_123
7 module subroutine s2345678901234567890123456789012345678901234567890123456789_123
11 submodule(m2345678901234567890123456789012345678901234567890123456789_123
) &
12 n2345678901234567890123456789012345678901234567890123456789_123
13 type t2345678901234567890123456789012345678901234567890123456789_123
&
14 (a2345678901234567890123456789012345678901234567890123456789_123
)
15 integer, kind
:: a2345678901234567890123456789012345678901234567890123456789_123
= 4
17 class(t2345678901234567890123456789012345678901234567890123456789_123(3)), pointer :: &
18 x2345678901234567890123456789012345678901234567890123456789_123