[Bug fortran/109511] incorrectly rejects set_exponent with constant negative exponent

[cvs-commit at gcc dot gnu.org via Gcc-bugs]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=109511

--- Comment #6 from CVS Commits <cvs-commit at gcc dot gnu.org> ---
The master branch has been updated by Harald Anlauf <anl...@gcc.gnu.org>:

https://gcc.gnu.org/g:fa4cb42870df60deb8888dbd51e2ddc6d6ab9e6a

commit r13-7188-gfa4cb42870df60deb8888dbd51e2ddc6d6ab9e6a
Author: Harald Anlauf <anl...@gmx.de>
Date:   Fri Apr 14 20:45:19 2023 +0200

    Fortran: fix compile-time simplification of SET_EXPONENT [PR109511]

    gcc/fortran/ChangeLog:

            PR fortran/109511
            * simplify.cc (gfc_simplify_set_exponent): Fix implementation of
            compile-time simplification of intrinsic SET_EXPONENT for argument
            X < 1 and for I < 0.

    gcc/testsuite/ChangeLog:

            PR fortran/109511
            * gfortran.dg/set_exponent_1.f90: New test.