diff options
| author | pault <pault@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-02-29 07:21:38 +0000 |
|---|---|---|
| committer | pault <pault@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-02-29 07:21:38 +0000 |
| commit | f1f4c9471fd955a735021daf54f4b33376f87975 (patch) | |
| tree | 6711111812b41f509f252bc2a50d75120d9584f4 /gcc/fortran/trans-expr.c | |
| parent | d3ad47596db8d58fc00b6829e147e34eb1ddcc5d (diff) | |
| download | gcc-f1f4c9471fd955a735021daf54f4b33376f87975.tar.gz | |
2012-02-29 Paul Thomas <pault@gcc.gnu.org>
PR fortran/52386
* trans-expr.c (fcncall_realloc_result): Dereference the
descriptor if needed.
2012-02-29 Paul Thomas <pault@gcc.gnu.org>
PR fortran/52386
* gfortran.dg/realloc_on_assign_13.f90 : New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@184651 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/trans-expr.c')
| -rw-r--r-- | gcc/fortran/trans-expr.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c index ec218384b76..3552da36be8 100644 --- a/gcc/fortran/trans-expr.c +++ b/gcc/fortran/trans-expr.c @@ -6299,6 +6299,8 @@ fcncall_realloc_result (gfc_se *se, int rank) /* Use the allocation done by the library. Substitute the lhs descriptor with a copy, whose data field is nulled.*/ desc = build_fold_indirect_ref_loc (input_location, se->expr); + if (POINTER_TYPE_P (TREE_TYPE (desc))) + desc = build_fold_indirect_ref_loc (input_location, desc); /* Unallocated, the descriptor does not have a dtype. */ tmp = gfc_conv_descriptor_dtype (desc); |