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 | |
| 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')
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/resolve.c | 3 | ||||
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/der_pointer_2.f90 | 20 |
4 files changed, 33 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index ca4a80d..0863e27 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +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 Paul Thomas <pault@gcc.gnu.org> PR fortran/16861 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; diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index c60cb55..4424bd8 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2005-09-18 Erik Edelmann <erik.edelmann@iki.fi> + + PR fortran/15975 + * gfortran.dg/der_pointer_2.f90: New test. + 2005-09-18 Paul Thomas <pault@gcc.gnu.org> PR fortran/16861 diff --git a/gcc/testsuite/gfortran.dg/der_pointer_2.f90 b/gcc/testsuite/gfortran.dg/der_pointer_2.f90 new file mode 100644 index 0000000..3749fc2 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/der_pointer_2.f90 @@ -0,0 +1,20 @@ +! { dg-do compile } +! PR 15975, PR 16606 +! Pointers to derived types with initialized components +! +! Contributed by Erik Edelmann <erik.edelmann@iki.fi> +! +SUBROUTINE N + TYPE T + INTEGER :: I = 99 + END TYPE T + TYPE(T), POINTER :: P + TYPE(T), TARGET :: Q + P => Q + if (P%I.ne.99) call abort () +END SUBROUTINE N + +program test_pr15975 + call n () +end program test_pr15975 + |