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

2013-06-03 Thread burnus at gcc dot gnu.org
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

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

2013-06-01 Thread 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

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

2013-06-01 Thread burnus at gcc dot gnu.org
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