1! { dg-do compile } 2! { dg-options "-fcoarray=lib -fsecond-underscore" } 3! PR fortran/95827 - ICE in gfc_get_string, at fortran/iresolve.c:70 4 5module m2345678901234567890123456789012345678901234567890123456789_123 6 interface 7 module subroutine s2345678901234567890123456789012345678901234567890123456789_123 8 end 9 end interface 10end 11submodule(m2345678901234567890123456789012345678901234567890123456789_123) & 12 n2345678901234567890123456789012345678901234567890123456789_123 13 integer :: x2345678901234567890123456789012345678901234567890123456789_123[*] 14end 15