From 78c572596275366cbb79923b6644d02b70424dce Mon Sep 17 00:00:00 2001 From: Paul Thomas Date: Wed, 19 Oct 2005 05:33:32 +0000 Subject: [PATCH] re PR fortran/24440 (gfortran failed to build 187.facerec) 2005-10-19 Paul Thomas 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 | 7 +++++++ gcc/fortran/resolve.c | 1 + 2 files changed, 8 insertions(+) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index ff6246abf2f..169f49086d9 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,10 @@ +2005-10-19 Paul Thomas + + 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 PR fortran/23446 diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 66ebd86381e..de74f269bc0 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) -- 2.30.2