http://gcc.gnu.org/bugzilla/show_bug.cgi?id=57496
--- Comment #3 from Tobias Burnus burnus at gcc dot gnu.org ---
Author: burnus
Date: Mon Jun 3 09:20:46 2013
New Revision: 199598
URL: http://gcc.gnu.org/viewcvs?rev=199598root=gccview=rev
Log:
2013-06-01 Tobias Burnus bur...@net-b.de
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
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=57496
--- Comment #2 from Tobias Burnus burnus at gcc dot gnu.org ---
The submitted patch at http://gcc.gnu.org/ml/fortran/2013-06/msg5.html
actually solves the problem for REAL(16).
NOTE: I forgot to change one isfinite to ISFINITE in