| ! { dg-do compile } |
| ! { dg-options "-fsecond-underscore" } |
| ! PR fortran/95687 - ICE in get_unique_hashed_string, at fortran/class.c:508 |
| |
| module m2345678901234567890123456789012345678901234567890123456789_123 |
| interface |
| module subroutine s2345678901234567890123456789012345678901234567890123456789_123 |
| end |
| end interface |
| end |
| submodule(m2345678901234567890123456789012345678901234567890123456789_123) & |
| n2345678901234567890123456789012345678901234567890123456789_123 |
| type t2345678901234567890123456789012345678901234567890123456789_123 & |
| (a2345678901234567890123456789012345678901234567890123456789_123) |
| integer, kind :: a2345678901234567890123456789012345678901234567890123456789_123 = 4 |
| end type |
| class(t2345678901234567890123456789012345678901234567890123456789_123(3)), pointer :: & |
| x2345678901234567890123456789012345678901234567890123456789_123 |
| end |