7211bf48a6
Add the `-fno` form for consistency and to make it easy to switch the default for downstream users.
12 lines
471 B
Fortran
12 lines
471 B
Fortran
! Test -fsave-main-program switch.
|
|
! RUN: %flang_fc1 -emit-hlfir -o - %s | FileCheck --check-prefix=CHECK-DEFAULT %s
|
|
! RUN: %flang_fc1 -fsave-main-program -emit-hlfir -o - %s | FileCheck --check-prefix=CHECK-SAVE %s
|
|
! RUN: %flang_fc1 -fsave-main-program -fno-save-main-program -emit-hlfir -o - %s | FileCheck --check-prefix=CHECK-DEFAULT %s
|
|
program test
|
|
integer :: i
|
|
call foo(i)
|
|
end
|
|
|
|
!CHECK-DEFAULT-NOT: fir.global internal @_QFEi
|
|
!CHECK-SAVE: fir.global internal @_QFEi
|