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