------- Comment #1 from burnus at gcc dot gnu dot org 2010-02-01 16:37 -------
Thanks for the report! The bug is no regression and indeed the analogue to PR
42008 works also here:
Index: gcc/fortran/decl.c
===================================================================
--- gcc/fortran/decl.c (revision 156428)
+++ gcc/fortran/decl.c (working copy)
@@ -1809,7 +1815,8 @@ variable_decl (int elem)
m = MATCH_ERROR;
}
- if (current_attr.flavor != FL_PARAMETER && gfc_pure (NULL))
+ if (current_attr.flavor != FL_PARAMETER && gfc_pure (NULL)
+ && gfc_state_stack->state != COMP_DERIVED)
{
gfc_error ("Initialization of variable at %C is not allowed in "
"a PURE procedure");
--
burnus at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
AssignedTo|unassigned at gcc dot gnu |burnus at gcc dot gnu dot
|dot org |org
Status|UNCONFIRMED |ASSIGNED
Ever Confirmed|0 |1
Keywords| |rejects-valid
Last reconfirmed|0000-00-00 00:00:00 |2010-02-01 16:37:46
date| |
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=42922
