[patch, fortran] PR34661- ICE on user defined assignment in WHERE statement

[Daniel Franke]

The ICE was triggered by gcc_assert making sure that only ELEMENTAL 
subroutines are used for user-defined assignment. All one needs to do, is to 
find the appropriate place for a similar check and report an error.

Q: Is there a way to access the position of the assignment operator? For now, 
I placed the error indicator next to the first actual argument, i.e. the left 
hand side of the assignment?!


gcc/fortran:
2008-24-01  Daniel Franke  <franke.daniel@gmail.com>

	PR fortran/34661
	* resolve.c (resolve_where): Added check if user-defined assignment 
	operator is an elemental subroutine.
	(gfc_resolve_where_code_in_forall): Likewise.

gcc/testsuite:
2008-24-01  Daniel Franke  <franke.daniel@gmail.com>

	PR fortran/34661
	* gfortran.dg/where_operator_assign_4.f90: New test.


Regression tested on i686-pc-linux-gnu. Ok for trunk?

Regards
	Daniel
-------------- next part --------------
A non-text attachment was scrubbed...
Name: pr34661.patch
Type: text/x-diff
Size: 1919 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20080125/f1ca5ecb/attachment.bin>