flang/test/Driver/unparse-use-analyzed.f95

   1 ! Tests `-fno-analyzed-exprs-as-fortran` frontend option
   2
   3 !--------------------------
   4 ! RUN lines
   5 !--------------------------
   6 ! RUN: %flang_fc1 -fdebug-unparse  %s | FileCheck %s --check-prefix=DEFAULT
   7 ! RUN: %flang_fc1 -fdebug-unparse -fno-analyzed-objects-for-unparse %s | FileCheck %s --check-prefix=DISABLED
   8
   9 ! DEFAULT: PROGRAM test
  10 ! DEFAULT-NEXT:  REAL, PARAMETER :: val = 3.43e2_4
  11 ! DEFAULT-NEXT:  PRINT *, 3.47e2_4
  12 ! DEFAULT-NEXT: END PROGRAM
  13
  14 ! DISABLED: PROGRAM test
  15 ! DISABLED-NEXT:  REAL, PARAMETER :: val = 343.0
  16 ! DISABLED-NEXT:  PRINT *, val+4
  17 ! DISABLED-NEXT: END PROGRAM
  18
  19 program test
  20   real, parameter :: val = 343.0
  21   print *, val + 4
  22 end program