23 lines · plain
1! RUN: %flang_fc1 -emit-hlfir -o - %s | FileCheck %s2! RUN: %flang_fc1 -finit-global-zero -emit-hlfir -o - %s | FileCheck %s3! RUN: %flang_fc1 -fno-init-global-zero -emit-hlfir -o - %s | FileCheck %s4! RUN: bbc -emit-hlfir -o - %s | FileCheck %s5! RUN: bbc -finit-global-zero -emit-hlfir -o - %s | FileCheck %s6! RUN: bbc -finit-global-zero=false -emit-hlfir -o - %s | FileCheck %s7 8! Test that the flag does not affect globals with default init9 10module zeroInitM211 type val12 integer :: my_val = 113 end type val14 type(val) :: v115end module zeroInitM216 17!CHECK: fir.global @_QMzeroinitm2Ev1 : !fir.type<_QMzeroinitm2Tval{my_val:i32}> {18!CHECK: %[[V1:.*]] = fir.undefined !fir.type<_QMzeroinitm2Tval{my_val:i32}>19!CHECK: %[[ONE:.*]] = arith.constant 1 : i3220!CHECK: %[[V1_INIT:.*]] = fir.insert_value %[[V1]], %[[ONE]], ["my_val", !fir.type<_QMzeroinitm2Tval{my_val:i32}>] : (!fir.type<_QMzeroinitm2Tval{my_val:i32}>, i32) -> !fir.type<_QMzeroinitm2Tval{my_val:i32}>21!CHECK: fir.has_value %[[V1_INIT]] : !fir.type<_QMzeroinitm2Tval{my_val:i32}>22!CHECK: }23