gcc/testsuite/gfortran.dg/pdt_29.f03


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

! { dg-do compile }
!
! Test the fix for PR83866.f90
!
! Contributed by G Steinmetz  <gscfq@t-online.de>
!
program p
  type private
  end type
   type t
      class(t), pointer :: a
   end type
   type extends(t) :: t2 ! { dg-error "Garbage after | does not have a component" }
   end type
end