2006-05-16 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/27575
* io/transfer.c (read_block): Add check for end file condition.
(read_block_direct): Add check for end file condition.
From-SVN: r113837
+2006-05-16 Jerry DeLisle <jvdelisle@gcc.gnu.org>
+
+ PR libgfortran/27575
+ * io/transfer.c (read_block): Add check for end file condition.
+ (read_block_direct): Add check for end file condition.
+
2006-05-05 Francois-Xavier Coudert <coudert@clipper.ens.fr>
PR libfortran/26985
}
}
+ if (dtp->u.p.current_unit->bytes_left == 0)
+ {
+ dtp->u.p.current_unit->endfile = AT_ENDFILE;
+ generate_error (&dtp->common, ERROR_END, NULL);
+ return;
+ }
+
*length = dtp->u.p.current_unit->bytes_left;
}
}
}
+ if (dtp->u.p.current_unit->bytes_left == 0)
+ {
+ dtp->u.p.current_unit->endfile = AT_ENDFILE;
+ generate_error (&dtp->common, ERROR_END, NULL);
+ return;
+ }
+
*nbytes = dtp->u.p.current_unit->bytes_left;
}