flang/test/Lower/fsave-main-program.f90

   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
   5 program test
   6 integer :: i
   7 call foo(i)
   8 end
   9
  10 !CHECK-DEFAULT-NOT: fir.global internal @_QFEi
  11 !CHECK-SAVE: fir.global internal @_QFEi