From: jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Wed, 25 Nov 2009 02:37:57 +0000 (+0000)
Subject: 2009-11-24  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
X-Git-Tag: upstream/4.9.2~32418
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=0407b7dfed929a69692938f85f20d0854b492d48;p=platform%2Fupstream%2Flinaro-gcc.git

2009-11-24  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/41807
	* decl.c (variable_decl): Do not error on initialization within a
	derived type specification of a pure procedure.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@154529 138bc75d-0d04-0410-961f-82ee72b054a4
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 862fffa..856770c 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+2009-11-24  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	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  <janus@gcc.gnu.org>
 
 	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");