[Bug fortran/100561] Error while computing square of a real number (8 and 16 bytes)

[h0bb_88 at protonmail dot com via Gcc-bugs]

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

--- Comment #1 from h0bb_88 at protonmail dot com ---
Created attachment 50797
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=50797&action=edit
Source code