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

gcc/fortran/ChangeLog

+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

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)