diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-03-31 05:11:03 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-03-31 05:11:03 +0000 |
| commit | d7b3fb5a2af44c8d303397fe22091c0f0b9a4a5d (patch) | |
| tree | 3c5050ef1ac6e0c17e084d5eae16cd52bdcf69ab /libgfortran/io/io.h | |
| parent | f25b36d2d1eaa9df429f1a1a7b22507fb8edf4db (diff) | |
| download | gcc-d7b3fb5a2af44c8d303397fe22091c0f0b9a4a5d.tar.gz | |
2006-03-30 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/26890
* io/io.h: Add size_used to st_parameter_dt, adjust pad size.
*io/transfer.c (data_transfer_init): Initialize size_used to zero.
(read_sf): Use size_used.
(read_block): Likewise.
(read_block_direct): Likewise.
(write_block): Likewise.
(write_buf): Likewise and eliminate erroneous FAILURE return.
(finalize_transfer): Assign value of size_used to *dtp->size.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@112570 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/io/io.h')
| -rw-r--r-- | libgfortran/io/io.h | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/libgfortran/io/io.h b/libgfortran/io/io.h index 1dd4a00cb64..b14576c5c0f 100644 --- a/libgfortran/io/io.h +++ b/libgfortran/io/io.h @@ -412,7 +412,7 @@ typedef struct st_parameter_dt formatted field width. */ unsigned sf_read_comma : 1; /* A namelist specific flag used to enable reading input from - line_buffer for logical reads. */ + line_buffer for logical reads. */ unsigned line_buffer_enabled : 1; /* 18 unused bits. */ @@ -434,8 +434,9 @@ typedef struct st_parameter_dt enough to hold a complex value (two reals) of the largest kind. */ char value[32]; + gfc_offset size_used; } p; - char pad[16 * sizeof (char *) + 34 * sizeof (int)]; + char pad[16 * sizeof (char *) + 34 * sizeof (int) - sizeof (gfc_offset)]; } u; } st_parameter_dt; |