blob: a674533179ab60483699973003d96b0ee781a45d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
! { dg-do compile }
! { dg-options "-fsecond-underscore" }
! PR fortran/95687 - ICE in get_unique_hashed_string, at fortran/class.c:508
module m2345678901234567890123456789012345678901234567890123456789_123
interface
module subroutine s2345678901234567890123456789012345678901234567890123456789_123
end
end interface
end
submodule(m2345678901234567890123456789012345678901234567890123456789_123) &
n2345678901234567890123456789012345678901234567890123456789_123
type t2345678901234567890123456789012345678901234567890123456789_123 &
(a2345678901234567890123456789012345678901234567890123456789_123)
integer, kind :: a2345678901234567890123456789012345678901234567890123456789_123 = 4
end type
class(t2345678901234567890123456789012345678901234567890123456789_123(3)), pointer :: &
x2345678901234567890123456789012345678901234567890123456789_123
end
|
