1! { dg-do compile } 2! { dg-options "-O0" } 3! Tests patch for PR24092 - This would ICE because of the loop in the 4! derived type definitions. 5! 6 module llo 7 type :: it 8 character*10 :: k 9 integer :: c(2) 10 end type it 11 type :: bt 12 type (nt), pointer :: p 13 end type bt 14 type :: nt 15 type (it) :: i 16 type (bt) :: b 17 end type nt 18 type (bt), pointer :: ptr 19 end module llo 20! copyright 1996 Loren P. Meissner -- May be distributed if this line is included. 21! Linked List operations with Pointer to Pointer 22