diff options
| author | Janus Weil <janus@gcc.gnu.org> | 2011-06-18 14:36:45 +0200 |
|---|---|---|
| committer | Janus Weil <janus@gcc.gnu.org> | 2011-06-18 14:36:45 +0200 |
| commit | 3547d57e35a5c5fe5438f8841e3654e400a99267 (patch) | |
| tree | 1c008be856642485c5b82a62c7e1d7332b7ff1f2 /gcc | |
| parent | c020c92b121315f101365221f05aca9d686a82f0 (diff) | |
| download | gcc-3547d57e35a5c5fe5438f8841e3654e400a99267.zip gcc-3547d57e35a5c5fe5438f8841e3654e400a99267.tar.gz gcc-3547d57e35a5c5fe5438f8841e3654e400a99267.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/decl.c | 1 | ||||
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/proc_ptr_31.f90 | 10 |
4 files changed, 22 insertions, 0 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index d7c5981..08c666a 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -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 diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index 7098368..661bb14 100644 --- a/gcc/fortran/decl.c +++ b/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: diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 907b94d..54d035e 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -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. diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_31.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_31.f90 new file mode 100644 index 0000000..691c77d --- /dev/null +++ b/gcc/testsuite/gfortran.dg/proc_ptr_31.f90 @@ -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 |