From 4e141305fa7ae7dbe4c3edcd42d31931a28725e3 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Fri, 12 Nov 2010 23:07:18 +0000 Subject: [PATCH] re PR fortran/45794 (ICE: Segmentation fault in gfc_conv_procedure_call) 2010-11-12 Jerry DeLisle PR fortran/45794 trans-expr.c (gfc_conv_procedure_call): Avoid NULL array spec. From-SVN: r166686 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/trans-expr.c | 6 ++++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 55e50582329..b45d0726c70 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2010-11-12 Jerry DeLisle + + PR fortran/45794 + trans-expr.c (gfc_conv_procedure_call): Avoid NULL array spec. + 2010-11-11 Nathan Froyd PR c/44782 diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c index 94dfa34d4fe..e8b516c3f58 100644 --- a/gcc/fortran/trans-expr.c +++ b/gcc/fortran/trans-expr.c @@ -3121,8 +3121,10 @@ gfc_conv_procedure_call (gfc_se * se, gfc_symbol * sym, && ((e->rank > 0 && sym->attr.elemental) || e->representation.length || e->ts.type == BT_CHARACTER || (e->rank > 0 - && (fsym == NULL || fsym->as->type == AS_ASSUMED_SHAPE - || fsym->as->type == AS_DEFERRED)))) + && (fsym == NULL + || (fsym-> as + && (fsym->as->type == AS_ASSUMED_SHAPE + || fsym->as->type == AS_DEFERRED)))))) gfc_conv_missing_dummy (&parmse, e, fsym ? fsym->ts : e->ts, e->representation.length); } -- 2.30.2