gcc/testsuite/gfortran.dg/pdt_21.f03

   1 ! { dg-do compile }
   2 !
   3 ! Tests the fix for PR82606 comment #1.
   4 !
   5 ! Contributed by Gerhard Steinmetz  <gscfq@t-online.de>
   6 !
   7 program p
   8    type t(a, b, *) ! { dg-error "A parameter name is required" }
   9       integer, kind :: a
  10       integer, len :: b
  11       real(a) :: r(b)
  12    end type
  13    type(t(8, 3)) :: x
  14    real(x%a) :: y
  15 end