From ba6e57ba62158ff6fb72948557eef72530fcad18 Mon Sep 17 00:00:00 2001 From: Daniel Franke Date: Mon, 4 Feb 2008 17:29:35 -0500 Subject: [PATCH] resolve.c (resolve_where): Fix typo. 2008-02-04 Daniel Franke * resolve.c (resolve_where): Fix typo. (gfc_resolve_where_code_in_forall): Likewise. From-SVN: r132098 --- 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 33f342391af..c21720efd1d 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2008-02-04 Daniel Franke + + * resolve.c (resolve_where): Fix typo. + (gfc_resolve_where_code_in_forall): Likewise. + 2008-02-03 Paul Thomas PR fortran/32760 diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 926f0455f48..5a3f7829341 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -5732,7 +5732,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; @@ -5817,7 +5817,7 @@ gfc_resolve_where_code_in_forall (gfc_code *code, int nvar, 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.30.2