23 lines · plain
1! Tests `-fno-analyzed-exprs-as-fortran` frontend option2 3!--------------------------4! RUN lines5!--------------------------6! RUN: %flang_fc1 -fdebug-unparse %s | FileCheck %s --check-prefix=DEFAULT7! RUN: %flang_fc1 -fdebug-unparse -fno-analyzed-objects-for-unparse %s | FileCheck %s --check-prefix=DISABLED8 9! DEFAULT: PROGRAM TEST10! DEFAULT-NEXT: REAL, PARAMETER :: val = 3.43e2_411! DEFAULT-NEXT: PRINT *, 3.47e2_412! DEFAULT-NEXT: END PROGRAM13 14! DISABLED: PROGRAM TEST15! DISABLED-NEXT: REAL, PARAMETER :: val = 343.016! DISABLED-NEXT: PRINT *, val+417! DISABLED-NEXT: END PROGRAM18 19program test20 real, parameter :: val = 343.021 print *, val + 422end program23