! { 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 ! { dg-final { cleanup-modules "llo" } }