From edbfca8fd7566476ebbf43e3e8aca99fa67fb502 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Tobias=20Schl=C3=BCter?= Date: Fri, 8 Oct 2004 02:16:28 +0200 Subject: [PATCH] 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 | 5 +++++ gcc/fortran/resolve.c | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 60cae9b3bc2..538486dcf90 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2004-10-07 Tobias Schlueter + + PR fortran/17676 + * resolve.c (resolve_operator): Use correct operator name in message. + 2004-10-07 Tobias Schlueter * primary.c (match_boz_constant): Allow kind parameter suffixes. diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 5169f5e8b0f..08f08da0cf2 100644 --- a/gcc/fortran/resolve.c +++ b/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;