blob: e85b2f11869c7dea3b51ccc8e612bec9d6f7e3f5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
! { dg-do compile }
! { dg-options "-fsecond-underscore" }
! PR fortran/95828 - ICE in resolve_select_rank, at fortran/resolve.c:9774
module m2345678901234567890123456789012345678901234567890123456789_123
type t2345678901234567890123456789012345678901234567890123456789_123
end type
contains
subroutine s2345678901234567890123456789012345678901234567890123456789_123 &
(x2345678901234567890123456789012345678901234567890123456789_123)
type (t2345678901234567890123456789012345678901234567890123456789_123) :: &
x2345678901234567890123456789012345678901234567890123456789_123(..)
select rank (y2345678901234567890123456789012345678901234567890123456789_123 &
=> x2345678901234567890123456789012345678901234567890123456789_123)
rank (2)
rank (3)
rank default
end select
end
end
|