re PR fortran/45794 (ICE: Segmentation fault in gfc_conv_procedure_call)

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

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

From-SVN: r166686

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 55e5058232949fe1641bfab84f415effde95fd5e..b45d0726c70582d339f49ea37d0fbf5aa52f6485 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 94dfa34d4fe57b378f9f541f8836605a94550541..e8b516c3f58a3e62c1a53f0958ac80d9b592958b 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);
        }