gcc/testsuite/gfortran.dg/init_flag_19.f03

   1 ! { dg-do compile }
   2 ! { dg-options "-finit-derived -finit-local-zero -fdump-tree-original" }
   3 !
   4 ! Test initializers for BT_CLASS components/variables with -finit-derived.
   5 !
   6
   7 implicit none
   8
   9 type :: ty1
  10   integer :: ival
  11   real    :: rval
  12 end type
  13
  14 type :: ty2
  15   type(ty1)               :: bt
  16   type(ty1), allocatable  :: bt_alloc
  17   type(ty1), pointer      :: bt_ptr
  18   class(ty1), allocatable :: class_alloc
  19   class(ty1), pointer     :: class_ptr
  20 end type
  21
  22 type(ty2) basic
  23 class(ty1), allocatable :: calloc
  24
  25 print *, basic%bt%ival
  26 print *, calloc%ival
  27
  28 end
  29
  30 ! { dg-final { scan-tree-dump-times "\.ival *= *0" 1 "original" } }
  31 ! { dg-final { scan-tree-dump-times "\.rval *= *0" 1 "original" } }
  32 ! { dg-final { scan-tree-dump-times "\.bt_ptr *= *0" 1 "original" } }
  33 ! { dg-final { scan-tree-dump-times "\.bt_alloc *= *0" 1 "original" } }
  34 ! { dg-final { scan-tree-dump-times "\.class_alloc(?: *= *\{)?\._data *= *0" 1 "original" } }
  35 ! { dg-final { scan-tree-dump-times "\.class_ptr(?: *= *\{)?\._data *= *0" 1 "original" } }
  36 ! { dg-final { scan-tree-dump-times "calloc(?: *= *\{)?\._data *= *0" 1 "original" } }