gcc/testsuite/gfortran.dg/pdt_16.f03

! { dg-do compile }
!
! Test the fix for all three errors in PR82586
!
! Contributed by G Steinmetz  <gscfq@t-online.de>
!
module m
   type t(a)                 ! { dg-error "does not have a component" }
   end type
end

program p
   type t(a                  ! { dg-error "Expected parameter list" }
      integer, kind :: a
      real(a) :: x
   end type
   type u(a, a)              ! { dg-error "Duplicate name" }
      integer, kind :: a     ! { dg-error "already declared" }
      integer, len :: a      ! { dg-error "already declared" }
   end type
end