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
+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
}
/* 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;
+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
--- /dev/null
+! { 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
+