diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2006-10-04 04:48:35 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2006-10-04 04:48:35 +0000 |
| commit | 404d84017e5ff32987ec19d70e57fd20d15beea5 (patch) | |
| tree | e9a1fd6e762da7974311f4c34cb790b81b47d6c2 /gcc/fortran/resolve.c | |
| parent | ee1d3dc013ba01f325df8029b4ba23c2e1229df0 (diff) | |
| download | gcc-404d84017e5ff32987ec19d70e57fd20d15beea5.zip gcc-404d84017e5ff32987ec19d70e57fd20d15beea5.tar.gz gcc-404d84017e5ff32987ec19d70e57fd20d15beea5.tar.bz2 | |
re PR fortran/29098 (allocation of a pointer to a derived type crashes)
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-04 Paul Thomas <pault@gcc.gnu.org>
PR fortran/29098
* gfortran.dg/default_initialization_2.f90: New test.
From-SVN: r117424
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 5 |
1 files changed, 1 insertions, 4 deletions
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) { |