gcc-4.9/gcc/testsuite/gfortran.dg/select_type_21.f90


1
2
3
4
5
6
7

! { dg-do compile }
! PR fortran/45848
! PR fortran/47204
!
select type (a) ! { dg-error "Selector shall be polymorphic" }
end select
end