gcc/testsuite/gfortran.dg/class_allocate_18.f90

   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
   7 Program 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)
  21 End