! { 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 |