From c241d292be69e31a072c484f72eeaaa3b59548bd Mon Sep 17 00:00:00 2001
From: jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Fri, 7 Apr 2006 23:05:12 +0000
Subject: [PATCH] 2006-04-07 Jerry DeLisle <jvdelisle@gcc.gnu.org>
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@112769 138bc75d-0d04-0410-961f-82ee72b054a4
---
libgfortran/ChangeLog | 6 ++++++
libgfortran/io/io.h | 4 +++-
2 files changed, 9 insertions(+), 1 deletion(-)
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 280f520af31f..e486c5a88b53 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,9 @@
+2006-04-07 Jerry DeLisle <jvdelisle@gcc.gnu.org>
+
+ 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 <jvdelisle@gcc.gnu.org>
* io/write.c (output_float): Update condition to not error when
diff --git a/libgfortran/io/io.h b/libgfortran/io/io.h
index b14576c5c0f8..b829ad44005e 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;
--
GitLab