blob: ce8fd3e98905dc54b001a4fc905b3581eb7e8e3c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
! { dg-do compile }
! { dg-options "-fsecond-underscore" }
! PR fortran/95688 - ICE in gfc_get_string, at fortran/iresolve.c:70
module m2345678901234567890123456789012345678901234567890123456789_123
interface
module subroutine s2345678901234567890123456789012345678901234567890123456789_123
end
end interface
end
submodule(m2345678901234567890123456789012345678901234567890123456789_123) &
n2345678901234567890123456789012345678901234567890123456789_123
character(:), pointer :: &
x2345678901234567890123456789012345678901234567890123456789_123 => null()
end
|
