From: Steve Ellcey <sje@cup.hp.com>
Date: Tue, 18 Apr 2006 16:05:42 +0000 (+0000)
Subject: * trans-io.c (gfc_build_io_library_fndecls): Align pad.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=7ae993371973b3d9cbac92704194033c252631f8;p=gcc.git

* trans-io.c (gfc_build_io_library_fndecls): Align pad.

From-SVN: r113047
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 05e25db7550..01b8071b78f 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+2006-04-18  Steve Ellcey  <sje@cup.hp.com>
+
+	* trans-io.c (gfc_build_io_library_fndecls): Align pad.
+
 2006-04-16  Thomas Koenig  <Thomas.Koenig@online.de>
 
 	PR fortran/26017
diff --git a/gcc/fortran/trans-io.c b/gcc/fortran/trans-io.c
index 9a6016148e7..b4c83f49f86 100644
--- a/gcc/fortran/trans-io.c
+++ b/gcc/fortran/trans-io.c
@@ -227,6 +227,14 @@ gfc_build_io_library_fndecls (void)
   pad_size += 32 * TREE_INT_CST_LOW (TYPE_SIZE_UNIT (integer_type_node));
   pad_idx = build_index_type (build_int_cst (NULL_TREE, pad_size));
   types[IOPARM_type_pad] = build_array_type (char_type_node, pad_idx);
+
+  /* pad actually contains pointers and integers so it needs to have an
+     alignment that is at least as large as the needed alignment for those
+     types.  See the st_parameter_dt structure in libgfortran/io/io.h for
+     what really goes into this space.  */
+  TYPE_ALIGN (types[IOPARM_type_pad]) = MAX (TYPE_ALIGN (pchar_type_node),
+		     TYPE_ALIGN (gfc_get_int_type (gfc_max_integer_kind)));
+
   gfc_c_int_type_node = gfc_get_int_type (gfc_c_int_kind);
 
   for (ptype = IOPARM_ptype_common; ptype < IOPARM_ptype_num; ptype++)