OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

Browse Source 
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
This commit is contained in:
Janus Weil 2011-06-18 14:36:45 +02:00
parent c020c92b12
commit 3547d57e35
4 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -1,3 +1,9 @@
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

1
gcc/fortran/decl.c
View File

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

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
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.

10
gcc/testsuite/gfortran.dg/proc_ptr_31.f90 Normal file
View File

@ -0,0 +1,10 @@
! { 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