From 6f6743faa7dd8ab9e8497ef45eb6d6cc002fb7ba Mon Sep 17 00:00:00 2001
From: tobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Fri, 8 Oct 2004 00:16:28 +0000
Subject: [PATCH] PR fortran/17676 * resolve.c (resolve_operator): Use correct
operator name in message.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@88726 138bc75d-0d04-0410-961f-82ee72b054a4
---
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 60cae9b3bc24..538486dcf90b 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+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.
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c
index 5169f5e8b0f6..08f08da0cf25 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;
--
GitLab