[Patch, Fortran] PR 46060: [F03] procedure pointer component referenced without argument list

[Janus Weil]

Hi all,

here is a patch for an ice-on-invalid problem with procedure pointer
components. The original patch I posted in comment #5 of the PR did
regress on proc_ptr_comp_{2,3,4,13,14,24}.f90 in the testsuite. To fix
those regressions I introduced two new variables to keep track of what
kind of statement the parser is currently matching
("gfc_matching_ptr_assignment" and "matching_actual_arglist").

The attached version of the patch is free of regressions on
x86_64-unknown-linux-gnu. Ok for trunk?

Cheers,
Janus



2010-10-19  Janus Weil  <janus@gcc.gnu.org>

	PR fortran/46060
	* match.h (gfc_matching_ptr_assignment): New global variable to indicate
	we're currently matching a (non-proc-)pointer assignment.
	* decl.c (match_pointer_init): Set it.
	* match.c (gfc_match_pointer_assignment): Ditto.
	* primary.c (matching_actual_arglist): New global variable to indicate
	we're currently matching an actual argument list.
	(gfc_match_actual_arglist): Set it.
	(gfc_match_varspec): Reject procedure pointer component calls with
	missing argument list.

2010-10-19  Janus Weil  <janus@gcc.gnu.org>

	PR fortran/46060
	* gfortran.dg/proc_ptr_comp_25.f90: New.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: pr46060_v2.diff
Type: application/octet-stream
Size: 3737 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20101020/75337e37/attachment.obj>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: proc_ptr_comp_25.f90
Type: application/octet-stream
Size: 532 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20101020/75337e37/attachment-0001.obj>