diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2006-03-18 01:56:07 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2006-03-18 01:56:07 +0000 |
| commit | 54f9e2781e026570ce63e3f0689bb7a7c1ab79a6 (patch) | |
| tree | 8248c3daa123616f0ef35a71869afdad2a98fd78 /libgfortran/runtime | |
| parent | 8e0524013a9f474b8f766dc38c157efa1085d325 (diff) | |
| download | gcc-54f9e2781e026570ce63e3f0689bb7a7c1ab79a6.zip gcc-54f9e2781e026570ce63e3f0689bb7a7c1ab79a6.tar.gz gcc-54f9e2781e026570ce63e3f0689bb7a7c1ab79a6.tar.bz2 | |
re PR fortran/26509 (incorrect behaviour of error-handler for direct access write)
2006-03-17 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/26509
* libgfortran.h: Add ERROR_DIRECT_EOR.
* runtime/error.c (translate_error): Add translation for new error.
* io/transfer.c (write_buf): Add check for EOR when mode is
direct access.
From-SVN: r112198
Diffstat (limited to 'libgfortran/runtime')
| -rw-r--r-- | libgfortran/runtime/error.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/libgfortran/runtime/error.c b/libgfortran/runtime/error.c index e102449..8ccb381 100644 --- a/libgfortran/runtime/error.c +++ b/libgfortran/runtime/error.c @@ -431,6 +431,10 @@ translate_error (int code) p = "Internal unit I/O error"; break; + case ERROR_DIRECT_EOR: + p = "Write exceeds length of DIRECT access record"; + break; + default: p = "Unknown error code"; break; |