flang/test/Lower/environment-defaults.f90

   1 ! RUN: %flang_fc1 -emit-fir %s -o - | FileCheck %s
   2 ! RUN: bbc -emit-fir -o - %s | FileCheck %s
   3
   4 program test
   5   continue
   6 end
   7
   8 ! Test that a null pointer is generated for environment defaults if nothing is specified
   9
  10 ! CHECK: fir.global @_QQEnvironmentDefaults constant : !fir.ref<tuple<i[[int_size:.*]], !fir.ref<!fir.array<0xtuple<!fir.ref<i8>, !fir.ref<i8>>>>>> {
  11 ! CHECK:  %[[VAL_0:.*]] = fir.zero_bits !fir.ref<tuple<i[[int_size]], !fir.ref<!fir.array<0xtuple<!fir.ref<i8>, !fir.ref<i8>>>>>>
  12 ! CHECK: fir.has_value  %[[VAL_0]] : !fir.ref<tuple<i[[int_size]], !fir.ref<!fir.array<0xtuple<!fir.ref<i8>, !fir.ref<i8>>>>>>