From 8a7f7fb6dec187cd95566e690e60293302fdd55d Mon Sep 17 00:00:00 2001 From: Thomas Koenig Date: Tue, 31 Oct 2006 20:58:26 +0000 Subject: re PR libfortran/29627 ([4.1 only] partial unformatted reads shouldn't succeed) 2006-10-31 Thomas Koenig PR libfortran/29627 * libgfortran.h: Add ERROR_SHORT_RECORD * runtime/error.c (translate_error): Add case for ERROR_SHORT_RECORD. * io/transfer.c (read_block_direct): Separate codepaths for stream and record unformatted I/O. Remove unneeded tests for standard input, padding and formatted I/O. If the record is short, read in as much data as possible, then raise the error. 2006-10-31 Thomas Koenig PR libfortran/29627 * gfortran.dg/unf_short_record_1.f90: New test. From-SVN: r118341 --- libgfortran/libgfortran.h | 1 + 1 file changed, 1 insertion(+) (limited to 'libgfortran/libgfortran.h') diff --git a/libgfortran/libgfortran.h b/libgfortran/libgfortran.h index e023f0e..ff94765 100644 --- a/libgfortran/libgfortran.h +++ b/libgfortran/libgfortran.h @@ -413,6 +413,7 @@ typedef enum ERROR_INTERNAL_UNIT, ERROR_ALLOCATION, ERROR_DIRECT_EOR, + ERROR_SHORT_RECORD, ERROR_LAST /* Not a real error, the last error # + 1. */ } error_codes; -- cgit v1.1