diff options
| author | Erik Edelmann <erik.edelmann@iki.fi> | 2005-09-18 08:50:04 +0300 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2005-09-18 05:50:04 +0000 |
| commit | 630b7086421bdad457891f752a76ba84b30d593d (patch) | |
| tree | abc062abcfc430d56a8f9f397df682c35b0f4ef9 /gcc/fortran/resolve.c | |
| parent | 6cda231ed91ad7e3c1b5357b0ffc04a925ff34f7 (diff) | |
| download | gcc-630b7086421bdad457891f752a76ba84b30d593d.zip gcc-630b7086421bdad457891f752a76ba84b30d593d.tar.gz gcc-630b7086421bdad457891f752a76ba84b30d593d.tar.bz2 | |
re PR fortran/15975 ([4.0 only] ICE in trans-array.c pointer array initialization stuff)
2005-09-18 Erik Edelmann <erik.edelmann@iki.fi>
PR fortran/15975
* resolve.c (resolve_symbol): Don't assign default
initializer to pointers.
2005-09-18 Erik Edelmann <erik.edelmann@iki.fi>
PR fortran/15975
* gfortran.dg/der_pointer_2.f90: New test.
From-SVN: r104389
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index f941333..e342a1e 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -4328,7 +4328,8 @@ resolve_symbol (gfc_symbol * sym) } /* Assign default initializer. */ - if (sym->ts.type == BT_DERIVED && !(sym->value || whynot)) + if (sym->ts.type == BT_DERIVED && !(sym->value || whynot) + && !sym->attr.pointer) sym->value = gfc_default_initializer (&sym->ts); break; |