1! { dg-do compile } 2! 3! PR 54435: [4.7/4.8 Regression] ICE with SELECT TYPE on a non-CLASS object 4! 5! Contributed by xarthisius 6 7subroutine foo(x) 8 integer :: x 9 select type (x) ! { dg-error "Selector shall be polymorphic" } 10 end select 11end 12 13 14! PR 54443: [4.7/4.8 Regression] Segmentation Fault when Compiling for code using Fortran Polymorphic Entities 15! 16! Contributed by Mark Beyer <mbeyer@cirrusaircraft.com> 17 18program class_test 19 type hashnode 20 character(4) :: htype 21 end type 22 class(hashnode), pointer :: hp 23 24 select type(hp%htype) ! { dg-error "is not a named variable" } 25 26end program 27