re PR fortran/49400 ([F08] Proc-pointer declaration in BLOCK construct)

2011-06-18  Janus Weil  <janus@gcc.gnu.org>

	PR fortran/49400
	* decl.c (gfc_match_procedure): Allow PROCEDURE declarations inside
	BLOCK constructs.

2011-06-18  Janus Weil  <janus@gcc.gnu.org>

	PR fortran/49400
	* gfortran.dg/proc_ptr_31.f90: New.

From-SVN: r175177

gcc/fortran/ChangeLog

+2011-06-18  Janus Weil  <janus@gcc.gnu.org>
+
+	PR fortran/49400
+	* decl.c (gfc_match_procedure): Allow PROCEDURE declarations inside
+	BLOCK constructs.
+
 2011-06-17  Janus Weil  <janus@gcc.gnu.org>
 
 	PR fortran/48699

gcc/fortran/decl.c

@@ -4970,6 +4970,7 @@ gfc_match_procedure (void)
     case COMP_MODULE:
     case COMP_SUBROUTINE:
     case COMP_FUNCTION:
+    case COMP_BLOCK:
       m = match_procedure_decl ();
       break;
     case COMP_INTERFACE:

gcc/testsuite/ChangeLog

+2011-06-18  Janus Weil  <janus@gcc.gnu.org>
+
+	PR fortran/49400
+	* gfortran.dg/proc_ptr_31.f90: New.
+
 2011-06-18  Eric Botcazou  <ebotcazou@adacore.com>
 
 	* gnat.dg/volatile6.adb: New test.

gcc/testsuite/gfortran.dg/proc_ptr_31.f90

+! { dg-do compile }
+!
+! PR 49400: [F08] Proc-pointer declaration in BLOCK construct
+!
+! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
+
+  block
+    procedure(real),pointer :: p
+  end block
+end