diff options
author | Thomas Koenig <Thomas.Koenig@online.de> | 2006-10-31 20:58:26 +0000 |
---|---|---|
committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2006-10-31 20:58:26 +0000 |
commit | 8a7f7fb6dec187cd95566e690e60293302fdd55d (patch) | |
tree | f4b1548a82d24a23fccb0e2105d38e471359f8da /libgfortran/libgfortran.h | |
parent | 401c8e8059870221603c8707272d0d66b3629167 (diff) | |
download | gcc-8a7f7fb6dec187cd95566e690e60293302fdd55d.zip gcc-8a7f7fb6dec187cd95566e690e60293302fdd55d.tar.gz gcc-8a7f7fb6dec187cd95566e690e60293302fdd55d.tar.bz2 |
re PR libfortran/29627 ([4.1 only] partial unformatted reads shouldn't succeed)
2006-10-31 Thomas Koenig <Thomas.Koenig@online.de>
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 <Thomas.Koenig@online.de>
PR libfortran/29627
* gfortran.dg/unf_short_record_1.f90: New test.
From-SVN: r118341
Diffstat (limited to 'libgfortran/libgfortran.h')
-rw-r--r-- | libgfortran/libgfortran.h | 1 |
1 files changed, 1 insertions, 0 deletions
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; |