1! { dg-do run }
2!
3! PR 64230: [4.9/5 Regression] Invalid memory reference in a compiler-generated finalizer for allocatable component
4!
5! Contributed by Mat Cross <mathewc@nag.co.uk>
6
7Program main
8  Implicit None
9  Type :: t1
10  End Type
11  Type, Extends (t1) :: t2
12    Integer, Allocatable :: i
13  End Type
14  Type, Extends (t2) :: t3
15    Integer, Allocatable :: j
16  End Type
17  Class (t1), Allocatable :: t
18  Allocate (t3 :: t)
19  print *,"allocated!"
20  Deallocate (t)
21End
22