From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Fri, 12 Nov 2010 23:07:18 +0000 (+0000)
Subject: re PR fortran/45794 (ICE: Segmentation fault in gfc_conv_procedure_call)
X-Git-Tag: releases/gcc-4.6.0~2655
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=4e141305fa7ae7dbe4c3edcd42d31931a28725e3;p=thirdparty%2Fgcc.git

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 55e505823294..b45d0726c705 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 94dfa34d4fe5..e8b516c3f58a 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);
 	}