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 19program test 20 real, parameter :: val = 343.0 21 print *, val + 4 22end program 23