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