2 ! { dg-options "-fsecond-underscore" }
3 ! PR fortran/95828 - ICE in resolve_select_rank, at fortran/resolve.c:9774
5 module m2345678901234567890123456789012345678901234567890123456789_123
6 type t2345678901234567890123456789012345678901234567890123456789_123
9 subroutine s2345678901234567890123456789012345678901234567890123456789_123
&
10 (x2345678901234567890123456789012345678901234567890123456789_123
)
11 type (t2345678901234567890123456789012345678901234567890123456789_123
) :: &
12 x2345678901234567890123456789012345678901234567890123456789_123(..)
14 select
rank (y2345678901234567890123456789012345678901234567890123456789_123
&
15 => x2345678901234567890123456789012345678901234567890123456789_123
)