aboutsummaryrefslogtreecommitdiff
path: root/libgfortran/io/io.h
diff options
context:
space:
mode:
authorJerry DeLisle <jvdelisle@gcc.gnu.org>2008-09-26 06:19:42 +0000
committerJerry DeLisle <jvdelisle@gcc.gnu.org>2008-09-26 06:19:42 +0000
commit105b7136967d687fbb900a2d25e4fe6a876db57d (patch)
tree43e49465ce4691d29bcfe44a26c6ad96f9dac836 /libgfortran/io/io.h
parent5e1bdeb75f6f1f724a5e046c4ac39254dbf8ab0f (diff)
downloadgcc-105b7136967d687fbb900a2d25e4fe6a876db57d.zip
gcc-105b7136967d687fbb900a2d25e4fe6a876db57d.tar.gz
gcc-105b7136967d687fbb900a2d25e4fe6a876db57d.tar.bz2
re PR fortran/37498 (Incorrect array value returned - 4.3 ABI Broken)
2008-09-25 Jerry DeLisle <jvdelisle@gcc.gnu.org PR libfortran/37498 * list_read.c (eat_separator): Revert previous patch and move delim_status, decimal_status, and pad_status to gfc_unit. (parse_real): Ditto. (read_real): Ditto. * read.c (read_a): Likewise. (read_a_char4): Likewise. (read_f): Likewise. * inquire.c (inquire_via_unit): Add missing check for IOPARM_INQUIRE_HAS_FLAGS2. (inquire_via_filename): Likewise. * io.h (unit_sign_s): Move delim_status, decimal_status, and pad_status to gfc_unit. * transfer.c (read_sf): Ditto. (read_block_form): Ditto. (formatted_transfer_scalar): Ditto. (data_transfer_init): Ditto. * write.c (write_default_char4): Ditto. (write_utf8_char4): Ditto. (write_character): Ditto. (write_real_g0): Ditto. (list_formatted_write_scalar): Ditto. (nml_write_obj): Ditto. (namelist_write): Ditto. * write_float.def (calculate_sign): Ditto. (output_float): Ditto. From-SVN: r140684
Diffstat (limited to 'libgfortran/io/io.h')
-rw-r--r--libgfortran/io/io.h6
1 files changed, 3 insertions, 3 deletions
diff --git a/libgfortran/io/io.h b/libgfortran/io/io.h
index 1f6041d..710224d 100644
--- a/libgfortran/io/io.h
+++ b/libgfortran/io/io.h
@@ -541,9 +541,6 @@ typedef struct st_parameter_44
kind. */
char value[32];
gfc_offset size_used;
- unit_pad pad_status;
- unit_decimal decimal_status;
- unit_delim delim_status;
} st_parameter_44;
typedef struct st_parameter_dt
@@ -646,6 +643,9 @@ typedef struct gfc_unit
unit_mode mode;
unit_flags flags;
+ unit_pad pad_status;
+ unit_decimal decimal_status;
+ unit_delim delim_status;
/* recl -- Record length of the file.
last_record -- Last record number read or written