[Patch, fortran] PR34872 - [4.3 Regression] Spurious error in snapshot of 01/18/08: Statement at (1) is not a valid branch target statement for the branch statement at (2)

[Paul Richard Thomas]

:ADDPATCH fortran:

This is a regression caused by my function characteristics patch.  I
did not take account of the possibility that the first executable
statement might have a lable.  The patch is self-explanatory and the
testcase based on the reporter's.

Bootstrapped and regtested on x86_ia64/FC8 - OK for trunk?

Paul

2008-01-23  Paul Thomas  <pault@gcc.gnu.org>

	PR fortran/34872
	* parse.c (next_statement) : If ST_GET_FCN_CHARACTERISTICS  is
	seen, check for a statement label and, if present, delete it
	and set the locus to the start of the statement.

2008-01-23  Paul Thomas  <pault@gcc.gnu.org>

	PR fortran/34872
	* gfortran.dg/function_charlen_3.f: New test.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: submit.diff
Type: text/x-patch
Size: 1551 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20080123/19c9f524/attachment.bin>