From 967d4d456cfdb5a2fc816e3104672efee931800e Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Fri, 7 Apr 2006 23:05:12 +0000 Subject: [PATCH] re PR libfortran/26890 (SIZE parameter interacts with same variable in IO list character length specification.) 2006-04-07 Jerry DeLisle PR libgfortran/26890 * io/io.h: Revert change to pad size made on 2006-03-30. Add comment explaining dependency with fortran/trans-io.c. From-SVN: r112769 --- libgfortran/ChangeLog | 6 ++++++ libgfortran/io/io.h | 4 +++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 280f520af31..e486c5a88b5 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2006-04-07 Jerry DeLisle + + PR libgfortran/26890 + * io/io.h: Revert change to pad size made on 2006-03-30. + Add comment explaining dependency with fortran/trans-io.c. + 2006-04-03 Jerry DeLisle * io/write.c (output_float): Update condition to not error when diff --git a/libgfortran/io/io.h b/libgfortran/io/io.h index b14576c5c0f..b829ad44005 100644 --- a/libgfortran/io/io.h +++ b/libgfortran/io/io.h @@ -436,7 +436,9 @@ typedef struct st_parameter_dt char value[32]; gfc_offset size_used; } p; - char pad[16 * sizeof (char *) + 34 * sizeof (int) - sizeof (gfc_offset)]; + /* This pad size must be greater than or equal to the pad_size declared in + trans-io.c (gfc_build_io_library_fndecls) */ + char pad[16 * sizeof (char *) + 34 * sizeof (int)]; } u; } st_parameter_dt; -- 2.43.5