------- Comment #1 from jjcogliati-r1 at yahoo dot com 2010-03-08 21:17 ------- program should be: (both exhibit the bug though, but this works if bug is not present)
program nan_test implicit none character(15) :: nan = ' NAN -INF INF' real :: a,b,c, d = 0.0 print ('(3F5.2)'),0.0/d,-1.0/d,1.0/d read (nan,'(3F5.2)'),a,b,c print *,a,b,c end program nan_test -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=43298