2010-11-12 Jerry DeLisle <jvdelisle@gcc.gnu.org>

	PR fortran/45794
	trans-expr.c (gfc_conv_procedure_call): Avoid NULL array spec.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@166686 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 55e5058..b45d072 100644 (file)
--- 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 (file)
--- 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);
        }