gcc/testsuite/gfortran.dg/finalize_18.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-fdump-tree-original" }
   3 !
   4 ! PR fortran/37336
   5 !
   6 module m
   7   type t
   8   contains
   9     final :: fini
  10   end type t
  11   type t2
  12     integer :: ii
  13     type(t), allocatable :: aa
  14     type(t), allocatable :: bb(:)
  15     class(t), allocatable :: cc
  16     class(t), allocatable :: dd(:)
  17   end type t2
  18   integer, save :: cnt = -1
  19 contains
  20   subroutine fini(x)
  21      type(t) :: x
  22      if (cnt == -1) STOP 1
  23      cnt = cnt + 1
  24   end subroutine fini
  25 end module m
  26
  27 use m
  28 block
  29   type(t2) :: y
  30   y%ii = 123
  31 end block
  32 end
  33
  34 ! { dg-final { scan-tree-dump-times "if \\(y.aa != 0B\\)" 2 "original" } }
  35 ! { dg-final { scan-tree-dump-times "if \\(y.cc._data != 0B\\)" 2 "original" } }
  36 ! { dg-final { scan-tree-dump-times "if \\(\\(struct t\\\[0:\\\] . restrict\\) y.bb.data != 0B\\)" 2 "original" } }
  37 ! { dg-final { scan-tree-dump-times "if \\(\\(struct t\\\[0:\\\] . restrict\\) y.dd._data.data != 0B\\)" 2 "original" } }
  38
  39 ! { dg-final { scan-tree-dump-times "desc.\[0-9\]+.data = \\(void . restrict\\) y.aa;" 1 "original" } }
  40 ! { dg-final { scan-tree-dump-times "desc.\[0-9\]+.data = \\(void . restrict\\) y.cc._data;" 1 "original" } }
  41
  42 ! { dg-final { scan-tree-dump-times "__final_m_T \\(&desc.\[0-9\]+, 0, 1\\);" 1 "original" } }
  43 ! { dg-final { scan-tree-dump-times "__final_m_T \\(&y.bb, 0, 1\\);" 1 "original" } }
  44 ! { dg-final { scan-tree-dump "y.cc._vptr->_final \\(&desc.\[0-9\]+, (\\(integer\\(kind=8\\)\\) )?y.cc._vptr->_size, 1\\);" "original" } }
  45 ! { dg-final { scan-tree-dump "y.dd._vptr->_final \\(&y.dd._data, (\\(integer\\(kind=8\\)\\) )?y.dd._vptr->_size, 1\\);" "original" } }
  46