[all-commits] [llvm/llvm-project] 4c1f48: [flang] Fix folding of NEAREST(TINY(1.), -1.) (#76590)

[Peter Klausler via All-commits]

  Branch: refs/heads/main
  Home:   https://github.com/llvm/llvm-project
  Commit: 4c1f488b78237e3388ac44d587b7b2e0c1d772b9
      https://github.com/llvm/llvm-project/commit/4c1f488b78237e3388ac44d587b7b2e0c1d772b9
  Author: Peter Klausler <35819229+klausler at users.noreply.github.com>
  Date:   2024-01-02 (Tue, 02 Jan 2024)

  Changed paths:
    M flang/lib/Evaluate/real.cpp
    M flang/test/Evaluate/fold-nearest.f90

  Log Message:
  -----------
  [flang] Fix folding of NEAREST(TINY(1.),-1.) (#76590)

The code to fold NEAREST would return a value that's too large when
transitioning from a normal number to a subnormal.

Fixes llvm-test-suite/Fortran/gfortran/regression/nearest_1.f90.