mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
12 lines
277 B
Fortran
12 lines
277 B
Fortran
! { 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
|