diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2006-10-14 13:09:56 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2006-10-14 13:09:56 +0000 |
| commit | 467f18f389215fd82103477340905ea8b9638d07 (patch) | |
| tree | fc9e29dc712499b64f694f8ea4a15e438a55d569 /gcc/fortran/trans-expr.c | |
| parent | 621048c8f5830e0b7a5c4b936543aeb56b0f623a (diff) | |
| download | gcc-467f18f389215fd82103477340905ea8b9638d07.zip gcc-467f18f389215fd82103477340905ea8b9638d07.tar.gz gcc-467f18f389215fd82103477340905ea8b9638d07.tar.bz2 | |
re PR fortran/29371 (Coredump when using -fbounds-check with pointer & nullify)
2006-10-14 Paul Thomas <pault@gcc.gnu.org>
PR fortran/29371
* trans-expr.c (gfc_trans_pointer_assignment): Add the expression
for the assignment of null to the data field to se->pre, rather
than block.
2006-10-14 Paul Thomas <pault@gcc.gnu.org>
PR fortran/29371
* gfortran.dg/nullify_3.f90: New test.
From-SVN: r117732
Diffstat (limited to 'gcc/fortran/trans-expr.c')
| -rw-r--r-- | gcc/fortran/trans-expr.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c index 875092f..190a115 100644 --- a/gcc/fortran/trans-expr.c +++ b/gcc/fortran/trans-expr.c @@ -3149,7 +3149,7 @@ gfc_trans_pointer_assignment (gfc_expr * expr1, gfc_expr * expr2) { case EXPR_NULL: /* Just set the data pointer to null. */ - gfc_conv_descriptor_data_set (&block, lse.expr, null_pointer_node); + gfc_conv_descriptor_data_set (&lse.pre, lse.expr, null_pointer_node); break; case EXPR_VARIABLE: |