[Bug fortran/34427] [4.3 Regression] 481.wrf in SPEC CPU 2006 miscompiled

[hjl at lucon dot org]

------- Comment #12 from hjl at lucon dot org  2007-12-11 20:58 -------
Revision 130708 is wrong. We can't do

  if ((c == 'i' || c == 'I')
      && ((c = next_char (dtp)) == 'n' || c == 'N')
      && ((c = next_char (dtp)) == 'f' || c == 'F'))
    {
...
  if (nml_bad_return (dtp, c))
    return 0;

since it will change 'c' passed to nml_bad_return (). We need to restore
the old char when it doesn't match INF/NAN.


-- 


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