1! { dg-do compile }
2!
3! PR 58185: [4.8/4.9 Regression] [OOP] ICE when selector in SELECT TYPE is non-polymorphic
4!
5! Contributed by John <jwmwalrus@gmail.com>
6
7  integer :: array
8  select type (a => array)   ! { dg-error "Selector shall be polymorphic" }
9  end select
10end
11