gcc/testsuite/gfortran.dg/pdt_17.f03

   1 ! { dg-do compile }
   2 !
   3 ! Test the fix for PR82587
   4 !
   5 ! Contributed by G Steinmetz  <gscfq@t-online.de>
   6 !
   7 program p
   8    type t(a)                   ! { dg-error "does not have a component" }
   9       integer(kind=t()) :: x   ! { dg-error "used before it is defined" }
  10    end type
  11 end