[patch, libfortran] PR34427 namelist input of inf-nan

Tobias Burnus burnus@net-b.de
Sun Dec 16 14:32:00 GMT 2007

Jerry DeLisle wrote:
> 2007-12-15  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
>     PR fortran/34427
>     * io/list_read.c (read_real): Handle intervening line ends and
> spaces.
>     (get_name): Don't push separators to saved_string.
>     (eat_separator): If in namelist mode eat spaces and line ends as
> well.
The patch is OK, but I have some comments/questions:

@@ -316,6 +316,13 @@ eat_separator (st_parameter_dt *dtp)
     case '\n':
       dtp->u.p.at_eol = 1;
+      if (dtp->u.p.namelist_mode)
+	{
+	  do
+	    c = next_char (dtp);
+	  while (c == '\n' || c == '\r' || c == ' ');
+	  unget_char (dtp, c);
+	}

I wonder whether one should do something similar for '\r'. If I recall
correctly, the normal line-break character on MacOS was (is?) '\r'
(while Unix has '\n' and Windows "\r\n").

Additionally, I think one can replace:

  if (!isdigit (c))
      if (c == 'i' || c == 'I' || c == 'n' || c == 'N')
        goto inf_nan;
        goto bad;


  if (!isdigit (c))
    goto bad;

I changed this in my original Inf/NaN patch to the upper version, but
you correctly remarked that it does not make much sense to have it for
exp2. (But I forgot to change it back when I checked the patch in.) You
can undo my change if you want.


More information about the Gcc-patches mailing list