gcc/testsuite/gfortran.dg/pdt_32.f03

! { dg-do compile }
! PR fortran/102956
! PDT KIND and LEN type parameters are mutually exclusive (F2018:R734)
!
module m
  type :: good_pdt (k,l)
     integer, kind           :: k = 1
     integer, len            :: l = 1
     character(kind=k,len=l) :: c
  end type good_pdt

  type :: bad_pdt (k,l)               ! { dg-error "does not have a component" }
     integer, kind, len      :: k = 1 ! { dg-error "attribute conflicts with" }
     integer, len, kind      :: l = 1 ! { dg-error "attribute conflicts with" }
     character(kind=k,len=l) :: c     ! { dg-error "has not been declared" }
  end type bad_pdt
end