! { 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