blob: 545e344c46dcf0df82c50e30452065fa9829a4ca (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
! { dg-do compile }
! { dg-options "-fcoarray=lib -fsecond-underscore" }
! PR fortran/95827 - 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
integer :: x2345678901234567890123456789012345678901234567890123456789_123[*]
end
|