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 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)