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