gcc/testsuite/gfortran.dg/select_type_38.f03

   1   type :: t1
   2   end type
   3   type, extends(t1) :: t2
   4   end type
   5   class(t1), pointer :: a
   6 lab1: select type (a)
   7   end select lab1
   8 lab1: select type (a)           ! { dg-error "Duplicate construct label" }
   9   end select lab1               ! { dg-error "Expecting END PROGRAM statement" }
  10 end