[Bug fortran/57496] I/O: WRITE(*,*) HUGE(0_16) [REAL(10)+REAL(16)]: Gives SIGFPE with -ffpe-trap=overflow

[burnus at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=57496

--- Comment #1 from Tobias Burnus <burnus at gcc dot gnu.org> ---
(In reply to Tobias Burnus from comment #0)
> +       sign_bit = SIGNBIT (x,tmp);\
> +       if (!ISFINITE (x,tmp))\
> +           write_infnan (dtp, f, ISNAN (x,tmp), sign_bit);\

I was too hasty: It should be "y," not "x," in the lines above.