blob: 4f4b70a4cc9e72c6688447424e7592a8435d2604 [file] [log] [blame]
! { dg-do compile }
! { dg-options "-O0" }
! Tests patch for PR24092 - This would ICE because of the loop in the
! derived type definitions.
!
module llo
type :: it
character*10 :: k
integer :: c(2)
end type it
type :: bt
type (nt), pointer :: p
end type bt
type :: nt
type (it) :: i
type (bt) :: b
end type nt
type (bt), pointer :: ptr
end module llo
! copyright 1996 Loren P. Meissner -- May be distributed if this line is included.
! Linked List operations with Pointer to Pointer