PR libfortran/35617
* io/list_read.c (eat_separator): If next character after eatline is '!'
then eatline again.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@133302
138bc75d-0d04-0410-961f-
82ee72b054a4
+2008-03-17 Jerry DeLisle <jvdelisle@gcc.gnu.org>
+
+ PR libfortran/35617
+ * io/list_read.c (eat_separator): If next character after eatline is '!'
+ then eatline again.
+
2008-03-16 Ralf Wildenhues <Ralf.Wildenhues@gmx.de>
* aclocal.m4: Regenerate.
{
eat_line (dtp);
c = next_char (dtp);
+ if (c == '!')
+ {
+ eat_line (dtp);
+ c = next_char (dtp);
+ }
}
}
while (c == '\n' || c == '\r' || c == ' ');