diff options
author | steven <steven@138bc75d-0d04-0410-961f-82ee72b054a4> | 2003-12-05 13:14:21 +0000 |
---|---|---|
committer | steven <steven@138bc75d-0d04-0410-961f-82ee72b054a4> | 2003-12-05 13:14:21 +0000 |
commit | 3b67384dcb47332c37a6536463f665f2c988de42 (patch) | |
tree | b79903e6355536c1f97cdf4fe0b47237e1aae6aa /libgfortran | |
parent | 8ceff8f4aca6d8395d9451ad75fbb36b8ad16b4a (diff) |
2003-12-05 Melvin Hadasht <melvin.hadasht@free.fr>
* io/transfer.c (data_transfer_init): Give a runtime error for list
formatted reads and writes from/to files opened for unformatted IO
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/tree-ssa-20020619-branch@74330 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran')
-rw-r--r-- | libgfortran/ChangeLog | 5 | ||||
-rw-r--r-- | libgfortran/io/transfer.c | 3 |
2 files changed, 7 insertions, 1 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index e518e22913e..8d2317ebf69 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,8 @@ +2003-12-05 Melvin Hadasht <melvin.hadasht@free.fr> + + * io/transfer.c (data_transfer_init): Give a runtime error for list + formatted reads and writes from/to files opened for unformatted IO. + 2003-11-30 Paul Brook <paul@nowt.org> * runtime/memory.c (push_context): Remove. diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c index 4ba5bb83823..babc54d376a 100644 --- a/libgfortran/io/transfer.c +++ b/libgfortran/io/transfer.c @@ -909,7 +909,8 @@ data_transfer_init (int read_flag) if (ioparm.library_return != LIBRARY_OK) return; - if (current_unit->flags.form == FORM_UNFORMATTED && ioparm.format != NULL) + if (current_unit->flags.form == FORM_UNFORMATTED + && (ioparm.format != NULL || ioparm.list_format)) generate_error (ERROR_OPTION_CONFLICT, "Format present for UNFORMATTED data transfer"); |