1! { dg-do compile }
2! PR fortran/96086 - ICE in gfc_match_select_rank, at fortran/match.c:6645
3
4subroutine s
5  class(*) :: x(..)     ! { dg-error "Assumed-rank array" }
6  select rank (y => x)  ! { dg-error "CLASS variable" }
7  end select
8end
9