diff options
| author | Tobias Burnus <burnus@net-b.de> | 2016-06-20 20:46:43 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2016-06-20 20:46:43 +0200 |
| commit | f1b5abfbbbdcecb62a0ed3c3904fb1233b4db8a9 (patch) | |
| tree | f432ca0d97710e877f4c63d285bc0783b10bcbf7 /gcc/fortran/trans-expr.c | |
| parent | 842107e43de51855cd5870be1a67bc4eabca4a25 (diff) | |
| download | gcc-f1b5abfbbbdcecb62a0ed3c3904fb1233b4db8a9.zip gcc-f1b5abfbbbdcecb62a0ed3c3904fb1233b4db8a9.tar.gz gcc-f1b5abfbbbdcecb62a0ed3c3904fb1233b4db8a9.tar.bz2 | |
re PR fortran/71194 (ICE on compilation with fcheck=all ; -fcheck=bounds)
2016-06-20 Tobias Burnus <burnus@net-b.de>
fortran/71194
* trans-expr.c (gfc_trans_pointer_assignment): Correctly handle
RHS pointer functions.
2016-06-20 Tobias Burnus <burnus@net-b.de>
PR fortran/71194
* gfortran.dg/pointer_remapping_10.f90: New.
From-SVN: r237612
Diffstat (limited to 'gcc/fortran/trans-expr.c')
| -rw-r--r-- | gcc/fortran/trans-expr.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c index 8f84712..b5731aa 100644 --- a/gcc/fortran/trans-expr.c +++ b/gcc/fortran/trans-expr.c @@ -7934,11 +7934,11 @@ gfc_trans_pointer_assignment (gfc_expr * expr1, gfc_expr * expr2) bound, bound, 0, GFC_ARRAY_POINTER_CONT, false); tmp = gfc_create_var (tmp, "ptrtemp"); - lse.descriptor_only = 0; - lse.expr = tmp; - lse.direct_byref = 1; - gfc_conv_expr_descriptor (&lse, expr2); - strlen_rhs = lse.string_length; + rse.descriptor_only = 0; + rse.expr = tmp; + rse.direct_byref = 1; + gfc_conv_expr_descriptor (&rse, expr2); + strlen_rhs = rse.string_length; rse.expr = tmp; } else |