gcc/testsuite/gfortran.dg/pdt_17.f03


1
2
3
4
5
6
7
8
9
10
11

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