[Bug fortran/42008] Wrongly rejected derived types with default initializers in PURE procedures

[jvdelisle at gcc dot gnu dot org]

------- 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