xref: /llvm-project/flang/test/Lower/fsave-main-program.f90 (revision 7211bf48a62bfe3a181013f412f2fa6e112ae99f) 
1! Test -fsave-main-program switch.
2! RUN: %flang_fc1 -emit-hlfir -o - %s | FileCheck --check-prefix=CHECK-DEFAULT %s
3! RUN: %flang_fc1 -fsave-main-program -emit-hlfir -o - %s | FileCheck --check-prefix=CHECK-SAVE %s
4! RUN: %flang_fc1 -fsave-main-program -fno-save-main-program -emit-hlfir -o - %s | FileCheck --check-prefix=CHECK-DEFAULT %s
5program test
6integer :: i
7call foo(i)
8end
9
10!CHECK-DEFAULT-NOT: fir.global internal @_QFEi
11!CHECK-SAVE: fir.global internal @_QFEi
12