diff options
author | Janus Weil <janus@gcc.gnu.org> | 2009-05-18 16:44:55 +0200 |
---|---|---|
committer | Janus Weil <janus@gcc.gnu.org> | 2009-05-18 16:44:55 +0200 |
commit | e35bbb23ad67dac0f5d0a5b7dd1b27470c1acc78 (patch) | |
tree | 1241d7122631c76378bb8c220cb683d68cc4650b /gcc/fortran/primary.c | |
parent | 9b2db7be3276b7ee360e7eb5794afa7f9941d923 (diff) | |
download | gcc-e35bbb23ad67dac0f5d0a5b7dd1b27470c1acc78.zip gcc-e35bbb23ad67dac0f5d0a5b7dd1b27470c1acc78.tar.gz gcc-e35bbb23ad67dac0f5d0a5b7dd1b27470c1acc78.tar.bz2 |
re PR fortran/40164 (Fortran 2003: "Arrays of procedure pointers" (using PPCs))
2009-05-18 Janus Weil <janus@gcc.gnu.org>
PR fortran/40164
* primary.c (gfc_match_rvalue): Handle procedure pointer components in
arrays.
* resolve.c (resolve_ppc_call,resolve_expr_ppc): Resolve component and
array references.
(resolve_fl_derived): Procedure pointer components are not required to
have constant array bounds in their return value.
2009-05-18 Janus Weil <janus@gcc.gnu.org>
PR fortran/40164
* gfortran.dg/proc_ptr_comp_8.f90: New.
From-SVN: r147663
Diffstat (limited to 'gcc/fortran/primary.c')
-rw-r--r-- | gcc/fortran/primary.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/primary.c b/gcc/fortran/primary.c index 96fbddc..4d39c1a 100644 --- a/gcc/fortran/primary.c +++ b/gcc/fortran/primary.c @@ -2558,7 +2558,7 @@ gfc_match_rvalue (gfc_expr **result) if (gfc_matching_procptr_assignment) { gfc_gobble_whitespace (); - if (gfc_peek_ascii_char () == '(') + if (!sym->attr.dimension && gfc_peek_ascii_char () == '(') /* Parse functions returning a procptr. */ goto function0; |