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)