re PR fortran/17676 (Problem with user operator)

PR fortran/17676
* resolve.c (resolve_operator): Use correct operator name in message.

From-SVN: r88726

gcc/fortran/ChangeLog

 2004-10-07  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>
 
+	PR fortran/17676
+	* resolve.c (resolve_operator): Use correct operator name in message.
+
+2004-10-07  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>
+
 	* primary.c (match_boz_constant): Allow kind parameter suffixes.
 	Move standard warning further to the front.
 

gcc/fortran/resolve.c

@@ -1413,10 +1413,10 @@ resolve_operator (gfc_expr * e)
     case INTRINSIC_USER:
       if (op2 == NULL)
 	sprintf (msg, "Operand of user operator '%s' at %%L is %s",
-		 e->uop->ns->proc_name->name, gfc_typename (&op1->ts));
+		 e->uop->name, gfc_typename (&op1->ts));
       else
 	sprintf (msg, "Operands of user operator '%s' at %%L are %s/%s",
-		 e->uop->ns->proc_name->name, gfc_typename (&op1->ts),
+		 e->uop->name, gfc_typename (&op1->ts),
 		 gfc_typename (&op2->ts));
 
       goto bad_op;