re PR fortran/61950 (Many 64-bit fortran allocate tests FAIL)

2014-08-11  Richard Biener  <rguenther@suse.de>

        PR fortran/61950
	* trans-expr.c (gfc_conv_structure): Initialize _size with
	a value of proper type.

From-SVN: r213809

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 4abb16eeaa89b4ad445df2ccd7e78700fedaa447..16c07bd79ca68daee0c65b938c678da0b504ee6a 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+2014-08-11  Richard Biener  <rguenther@suse.de>
+
+       PR fortran/61950
+       * trans-expr.c (gfc_conv_structure): Initialize _size with
+       a value of proper type.
+
 2014-08-10  Thomas Koenig  <tkoenig@gcc.gnu.org>
 
        PR fortran/61999

diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c
index 02cec973c1a45789097584164ff71dd6c6ebe0a9..1726d0f033e0136cf728ef52d93a76b13f3c60cc 100644 (file)
--- a/gcc/fortran/trans-expr.c
+++ b/gcc/fortran/trans-expr.c
@@ -6260,7 +6260,9 @@ gfc_conv_structure (gfc_se * se, gfc_expr * expr, int init)
       else if (cm->ts.u.derived && strcmp (cm->name, "_size") == 0)
        {
          val = TYPE_SIZE_UNIT (gfc_get_derived_type (cm->ts.u.derived));
-         CONSTRUCTOR_APPEND_ELT (v, cm->backend_decl, val);
+         CONSTRUCTOR_APPEND_ELT (v, cm->backend_decl,
+                                 fold_convert (TREE_TYPE (cm->backend_decl),
+                                               val));
        }
       else
        {