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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@105596 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index ff6246a..169f490 100644 (file)
--- 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 66ebd86..de74f26 100644 (file)
--- 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)