2 ! { dg-options "-finit-derived -finit-local-zero -fdump-tree-original" }
4 ! Test initializers for BT_CLASS components/variables with -finit-derived.
16 type(ty1), allocatable :: bt_alloc
17 type(ty1), pointer :: bt_ptr
18 class(ty1), allocatable :: class_alloc
19 class(ty1), pointer :: class_ptr
23 class(ty1), allocatable :: calloc
25 print *, basic%bt%ival
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" } }