gcc/testsuite/gfortran.dg/pdt_29.f03

   1 ! { dg-do compile }
   2 !
   3 ! Test the fix for PR83866.f90
   4 !
   5 ! Contributed by G Steinmetz  <gscfq@t-online.de>
   6 !
   7 program p
   8   type private
   9   end type
  10    type t
  11       class(t), pointer :: a
  12    end type
  13    type extends(t) :: t2 ! { dg-error "Garbage after | does not have a component" }
  14    end type
  15 end