blob: 4f4b70a4cc9e72c6688447424e7592a8435d2604 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
! { 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
|
