xref: /llvm-project/flang/test/Lower/fsave-main-program.f90 (revision 7211bf48a62bfe3a181013f412f2fa6e112ae99f) 
1645c1ee8SjeanPerier! Test -fsave-main-program switch.
2645c1ee8SjeanPerier! RUN: %flang_fc1 -emit-hlfir -o - %s | FileCheck --check-prefix=CHECK-DEFAULT %s
3645c1ee8SjeanPerier! RUN: %flang_fc1 -fsave-main-program -emit-hlfir -o - %s | FileCheck --check-prefix=CHECK-SAVE %s
4*7211bf48SjeanPerier! RUN: %flang_fc1 -fsave-main-program -fno-save-main-program -emit-hlfir -o - %s | FileCheck --check-prefix=CHECK-DEFAULT %s
5645c1ee8SjeanPerierprogram test
6645c1ee8SjeanPerierinteger :: i
7645c1ee8SjeanPeriercall foo(i)
8645c1ee8SjeanPerierend
9645c1ee8SjeanPerier
10645c1ee8SjeanPerier!CHECK-DEFAULT-NOT: fir.global internal @_QFEi
11645c1ee8SjeanPerier!CHECK-SAVE: fir.global internal @_QFEi
12