OSDN Git Service

2011-01-13 Tobias Burnus <burnus@net-b.de>
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / select_type_21.f90
1 ! { dg-do compile }
2 ! PR fortran/45848
3 ! PR fortran/47204
4 !
5 select type (a) ! { dg-error "Selector shall be polymorphic" }
6 end select
7 end