mirror of
https://github.com/llvm/llvm-project.git
synced 2025-04-17 04:26:37 +00:00
ecec1311fe
A double pointer was being passed to the call to FortranStart rather than just a pointer to the EnvironmentDefaults.list. This now passes `null` directly when there's no EnvironmentDefaults.list and passes the list directly when there is, removing the original global variable which was a pointer to a pointer containing null or the EnvironmentDefaults.list global. Fixes #90537
14 lines
420 B
Fortran
Executable File
14 lines
420 B
Fortran
Executable File
! RUN: %flang_fc1 -emit-fir %s -o - | FileCheck %s
|
|
! RUN: bbc -emit-fir -o - %s | FileCheck %s
|
|
|
|
program test
|
|
continue
|
|
end
|
|
|
|
! Test that a null pointer is passed for environment defaults if nothing is specified
|
|
|
|
! CHECK-NOT: @_QQEnvironmentDefaults
|
|
|
|
! CHECK: %0 = fir.zero_bits !fir.ref<tuple<i32, !fir.ref<!fir.array<0xtuple<!fir.ref<i8>, !fir.ref<i8>>>>>>
|
|
! CHECK-NEXT: @_FortranAProgramStart(%arg0, %arg1, %arg2, %0)
|