[all-commits] [llvm/llvm-project] 333b41: [flang] Fix folding of EPSILON()

[Peter Klausler via All-commits]

  Branch: refs/heads/main
  Home:   https://github.com/llvm/llvm-project
  Commit: 333b419ad00a5ca7eb6bd4d8c7db49f93c83d694
      https://github.com/llvm/llvm-project/commit/333b419ad00a5ca7eb6bd4d8c7db49f93c83d694
  Author: Peter Klausler <pklausler at nvidia.com>
  Date:   2021-11-08 (Mon, 08 Nov 2021)

  Changed paths:
    M flang/include/flang/Evaluate/real.h
    M flang/test/Evaluate/folding07.f90

  Log Message:
  -----------
  [flang] Fix folding of EPSILON()

The value of EPSILON() was off by one power of two due to my
misreading of the standard; this patch corrects it.
Confirmed by checking other Fortran compilers, which all agree.

Differential Revision: https://reviews.llvm.org/D113308