------- Comment #3 from jvdelisle at gcc dot gnu dot org 2009-11-23 03:06 ------- This appears to fix this with no regressions. I will commit as obvious tomorrow.
Index: decl.c =================================================================== --- decl.c (revision 154430) +++ decl.c (working copy) @@ -1865,13 +1865,6 @@ variable_decl (int elem) m = MATCH_ERROR; } - if (gfc_pure (NULL)) - { - gfc_error ("Initialization of pointer at %C is not allowed in " - "a PURE procedure"); - m = MATCH_ERROR; - } - if (m != MATCH_YES) goto cleanup; -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=42008