From: Paul Thomas <pault@gcc.gnu.org>
Date: Wed, 19 Oct 2005 05:33:32 +0000 (+0000)
Subject: re PR fortran/24440 (gfortran failed to build 187.facerec)
X-Git-Tag: misc/cutover-cvs2svn~105
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=78c572596275366cbb79923b6644d02b70424dce;p=thirdparty%2Fgcc.git

re PR fortran/24440 (gfortran failed to build 187.facerec)

2005-10-19  Paul Thomas  <pault@gcc.gnu.org>

	PR fortran/24440
	* resolve.c (resolve_symbol): Correct error in check for
	assumed size array with default initializer by testing
	for arrayspec before dereferencing it.

From-SVN: r105596
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index ff6246abf2f7..169f49086d9c 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,10 @@
+2005-10-19  Paul Thomas  <pault@gcc.gnu.org>
+
+	PR fortran/24440
+	* resolve.c (resolve_symbol): Correct error in check for
+	assumed size array with default initializer by testing
+	for arrayspec before dereferencing it.
+
 2005-10-17  Paul Thomas  <pault@gcc.gnu.org>
 
 	PR fortran/23446
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c
index 66ebd86381ea..de74f269bc0a 100644
--- a/gcc/fortran/resolve.c
+++ b/gcc/fortran/resolve.c
@@ -4319,6 +4319,7 @@ resolve_symbol (gfc_symbol * sym)
   if (sym->ts.type == BT_DERIVED
 	&& sym->attr.dummy
 	&& sym->attr.intent == INTENT_OUT
+	&& sym->as
 	&& sym->as->type == AS_ASSUMED_SIZE)
     {
       for (c = sym->ts.derived->components; c; c = c->next)