10ec3ac9bSJonathon Penix! RUN: %flang_fc1 -emit-fir %s -o - | FileCheck %s 20ec3ac9bSJonathon Penix! RUN: bbc -emit-fir -o - %s | FileCheck %s 30ec3ac9bSJonathon Penix 40ec3ac9bSJonathon Penixprogram test 50ec3ac9bSJonathon Penix continue 60ec3ac9bSJonathon Penixend 70ec3ac9bSJonathon Penix 8*ecec1311SDavid Truby! Test that a null pointer is passed for environment defaults if nothing is specified 90ec3ac9bSJonathon Penix 10*ecec1311SDavid Truby! CHECK-NOT: @_QQEnvironmentDefaults 11*ecec1311SDavid Truby 12*ecec1311SDavid Truby! CHECK: %0 = fir.zero_bits !fir.ref<tuple<i32, !fir.ref<!fir.array<0xtuple<!fir.ref<i8>, !fir.ref<i8>>>>>> 13*ecec1311SDavid Truby! CHECK-NEXT: @_FortranAProgramStart(%arg0, %arg1, %arg2, %0) 14