From de82624b1b54319032afb334a540033dea371fae Mon Sep 17 00:00:00 2001 From: Daniel Franke Date: Mon, 4 Feb 2008 17:32:34 -0500 Subject: [PATCH] resolve.c (resolve_where): Fix Typo in error message. 2008-02-04 Daniel Franke * resolve.c (resolve_where): Fix Typo in error message. From-SVN: r132100 --- gcc/fortran/ChangeLog | 4 ++++ gcc/fortran/resolve.c | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 1267304d96bf..c8faa2b0958f 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,7 @@ +2008-02-04 Daniel Franke + + * resolve.c (resolve_where): Fix Typo in error message. + 2008-02-04 Daniel Franke Backport from trunk: diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 29c461e7665a..dbcd811ea99f 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -4571,7 +4571,7 @@ resolve_where (gfc_code *code, gfc_expr *mask) case EXEC_ASSIGN_CALL: resolve_call (cnext); if (!cnext->resolved_sym->attr.elemental) - gfc_error("Non-ELEMETAL user-defined assignment in WHERE at %L", + gfc_error("Non-ELEMENTAL user-defined assignment in WHERE at %L", &cnext->ext.actual->expr->where); break; -- 2.47.2