diff options
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/resolve.c | 5 |
2 files changed, 7 insertions, 4 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index ea011dc..548a3d9 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2006-10-04 Paul Thomas <pault@gcc.gnu.org> + + PR fortran/29098 + * resolve.c (resolve_structure_cons): Do not return FAILURE if + component expression is NULL. + 2006-10-03 Paul Thomas <pault@gcc.gnu.org> PR fortran/20779 diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 7639eb7..e28a93c 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -607,10 +607,7 @@ resolve_structure_cons (gfc_expr * expr) for (; comp; comp = comp->next, cons = cons->next) { if (! cons->expr) - { - t = FAILURE; - continue; - } + continue; if (gfc_resolve_expr (cons->expr) == FAILURE) { |