1! { dg-do compile }
2! PR fortran/45848
3! PR fortran/47204
4!
5select type (a) ! { dg-error "Selector shall be polymorphic" }
6end select
7end
8