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