[patch, fortran] PR31580 - improved error message if operator-not-found

[Daniel Franke]

This code

  implicit none
  real :: a,b
  if(a .nonex. b) stop
  end

is currently flagged as:
  Error: Operands of user operator 'nonex' at (1) are REAL(4)/REAL(4)

A more descriptive error message is preferable.
Attached simple patch speaks for itself.


:ADDPATCH fortran:

gcc/fortran:
2007-06-29  Daniel Franke  <franke.daniel@gmail.com>

	PR fortran/31580
	* resolve.c (resolve_operator): Added check whether a user defined 
	operator is available.

gcc/testsuite:
2007-06-29  Daniel Franke  <franke.daniel@gmail.com>

	PR fortran/31580
	* gfortran.dg/operator_3.f90: New test.


Regtested on i686-pc-linux-gnu. Ok for trunk?

Regards
	Daniel
-------------- next part --------------
A non-text attachment was scrubbed...
Name: pr31580.patch
Type: text/x-diff
Size: 1003 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20070629/13e23e6a/attachment.bin>