diff options
| author | Richard Biener <rguenther@suse.de> | 2014-08-11 07:49:30 +0000 |
|---|---|---|
| committer | Richard Biener <rguenth@gcc.gnu.org> | 2014-08-11 07:49:30 +0000 |
| commit | 5ff0f237a4e33e38c09e3e7242e5a7fd9c588793 (patch) | |
| tree | 59a03fcb651000dd225241b297fda743e5c69e5e /gcc/fortran | |
| parent | 6f853fd4536b85da53ebe9897ecbce22602304f8 (diff) | |
| download | gcc-5ff0f237a4e33e38c09e3e7242e5a7fd9c588793.zip gcc-5ff0f237a4e33e38c09e3e7242e5a7fd9c588793.tar.gz gcc-5ff0f237a4e33e38c09e3e7242e5a7fd9c588793.tar.bz2 | |
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
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/trans-expr.c | 4 |
2 files changed, 9 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 4abb16e..16c07bd 100644 --- 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 02cec97..1726d0f 100644 --- 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 { |