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.
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;