diff options
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/trans-expr.c | 6 |
2 files changed, 9 insertions, 2 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 55e5058..b45d072 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2010-11-12 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR fortran/45794 + trans-expr.c (gfc_conv_procedure_call): Avoid NULL array spec. + 2010-11-11 Nathan Froyd <froydnj@codesourcery.com> PR c/44782 diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c index 94dfa34..e8b516c 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); } |