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