1! { dg-do compile }
2!
3! Test the fix for PR83866.f90
4!
5! Contributed by G Steinmetz  <gscfq@t-online.de>
6!
7program 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
15end
16