diff options
| author | janus <janus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-08-25 14:26:44 +0000 |
|---|---|---|
| committer | janus <janus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-08-25 14:26:44 +0000 |
| commit | 0fd53ac9e79421de9b0d1f42521f15e9845983e7 (patch) | |
| tree | 3af99476a57f873526e5deb43b0c56abfcee584b /gcc/fortran/resolve.c | |
| parent | 235978c1d0b61f594af8e59257ccebdbb1b5d2fd (diff) | |
| download | ppe42-gcc-0fd53ac9e79421de9b0d1f42521f15e9845983e7.tar.gz ppe42-gcc-0fd53ac9e79421de9b0d1f42521f15e9845983e7.zip | |
2009-08-25 Janus Weil <janus@gcc.gnu.org>
PR fortran/41139
* primary.c (gfc_match_varspec): Make sure EXPR_PPC is only used for
calls to procedure pointer components, other references to procedure
pointer components are EXPR_VARIABLE.
* resolve.c (resolve_actual_arglist): Bugfix (there can be calls without
actual arglist).
* trans-expr.c (gfc_get_proc_ptr_comp): Renamed to 'get_proc_ptr_comp',
removed argument 'se' and made static. Avoid inserting a temporary
variable for calling the PPC.
(conv_function_val): Renamed gfc_get_proc_ptr_comp.
(gfc_conv_procedure_call): Distinguish functions returning a procedure
pointer from calls to a procedure pointer. Distinguish calls to
procedure pointer components from procedure pointer components as
actual arguments.
* trans-stmt.h (gfc_get_proc_ptr_comp): Make it static.
2009-08-25 Janus Weil <janus@gcc.gnu.org>
PR fortran/41139
* gfortran.dg/proc_ptr_25.f90: New.
* gfortran.dg/proc_ptr_comp_18.f90: New.
* gfortran.dg/proc_ptr_comp_19.f90: New.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@151081 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 411e2c8d9dc..3bc4c587da3 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -1279,9 +1279,7 @@ resolve_actual_arglist (gfc_actual_arglist *arg, procedure_type ptype, if (gfc_is_proc_ptr_comp (e, &comp)) { e->ts = comp->ts; - if (e->value.compcall.actual == NULL) - e->expr_type = EXPR_VARIABLE; - else + if (e->expr_type == EXPR_PPC) { if (comp->as != NULL) e->rank = comp->as->rank; |
