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

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

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

--- Comment #3 from anlauf at gcc dot gnu.org ---
Created attachment 54860
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=54860&action=edit
Patch

Patch I am testing.