gcc/testsuite/gfortran.dg/pr95828.f90

! { 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