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