[patch, fortran] PR32432 SEGV/endless loop after: "ERROR: ... already is initialized"

[Jerry DeLisle]

:ADDPATCH fortran:

Hi,

This patch fixes this by returning SUCCESS or FAILURE to the caller to allow 
breaking out of the loop.

Fairly self explanatory.

Regression tested on x86-64-Gnu/Linux.

OK for trunk?

This clears of data_initialized_2.f90, no new test case needed.

Regards,

Jerry

2007-07-02  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/32432
	* gfortran.h: Change type of gfc_assign_data_value from void to try.
	* data.c (gfc_assign_data_value): Return FAILURE if error found.
	* resolve.c (check_data_variable): If gfc_assign_data_value returns
	failure, break out of loop and return failure.

-------------- next part --------------
A non-text attachment was scrubbed...
Name: pr32432.diff
Type: text/x-patch
Size: 3364 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20070703/ff6dd4ab/attachment.bin>