xref: /llvm-project/flang/test/Lower/environment-defaults.f90 (revision ecec1311fe0521404a11d6f3b90253259c8c3518) 
1! RUN: %flang_fc1 -emit-fir %s -o - | FileCheck %s
2! RUN: bbc -emit-fir -o - %s | FileCheck %s
3
4program test
5  continue
6end
7
8! Test that a null pointer is passed for environment defaults if nothing is specified
9
10! CHECK-NOT: @_QQEnvironmentDefaults
11
12! CHECK: %0 = fir.zero_bits !fir.ref<tuple<i32, !fir.ref<!fir.array<0xtuple<!fir.ref<i8>, !fir.ref<i8>>>>>>
13! CHECK-NEXT: @_FortranAProgramStart(%arg0, %arg1, %arg2, %0)
14