2008-02-04 Daniel Franke <franke.daniel@gmail.com>

	* resolve.c (resolve_where): Fix typo.
	(gfc_resolve_where_code_in_forall): Likewise.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@132098 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 33f3423..c21720e 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2008-02-04  Daniel Franke  <franke.daniel@gmail.com>
+
+       * resolve.c (resolve_where): Fix typo.
+       (gfc_resolve_where_code_in_forall): Likewise.
+
 2008-02-03  Paul Thomas  <pault@gcc.gnu.org>
 
        PR fortran/32760

diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c
index 926f045..5a3f782 100644 (file)
--- 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;