From 26d3d4f4dcb61b68e996ee7b7016c22ffb667b3c Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Wed, 25 Nov 2009 02:37:57 +0000 Subject: re PR fortran/41807 (data statement with nested type constructors) 2009-11-24 Jerry DeLisle PR fortran/41807 * decl.c (variable_decl): Do not error on initialization within a derived type specification of a pure procedure. From-SVN: r154529 --- gcc/fortran/ChangeLog | 6 ++++++ gcc/fortran/decl.c | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) (limited to 'gcc') diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 862fffa..856770c7 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2009-11-24 Jerry DeLisle + + PR fortran/41807 + * decl.c (variable_decl): Do not error on initialization within a + derived type specification of a pure procedure. + 2009-11-24 Janus Weil PR fortran/42045 diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index 08d2bd6..0329de5 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -1865,7 +1865,7 @@ variable_decl (int elem) m = MATCH_ERROR; } - if (gfc_pure (NULL)) + if (gfc_pure (NULL) && gfc_state_stack->state != COMP_DERIVED) { gfc_error ("Initialization of pointer at %C is not allowed in " "a PURE procedure"); -- cgit v1.1