PR libfortran/34676
* io/list_read.c (next_char): Only save the EOF condition for later if
advance="no".
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@131337
138bc75d-0d04-0410-961f-
82ee72b054a4
+2008-01-05 Jerry DeLisle <jvdelisle@gcc.gnu.org>
+
+ PR libfortran/34676
+ * io/list_read.c (next_char): Only save the EOF condition for later if
+ advance="no".
+
2008-01-03 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/34565
}
if (length == 0)
{
- if (dtp->u.p.current_unit->endfile == AT_ENDFILE)
+ if (dtp->u.p.advance_status == ADVANCE_NO)
+ {
+ if (dtp->u.p.current_unit->endfile == AT_ENDFILE)
+ longjmp (*dtp->u.p.eof_jump, 1);
+ dtp->u.p.current_unit->endfile = AT_ENDFILE;
+ c = '\n';
+ }
+ else
longjmp (*dtp->u.p.eof_jump, 1);
- dtp->u.p.current_unit->endfile = AT_ENDFILE;
- c = '\n';
}
else
c = *p;