resolve.c (resolve_where): Fix Typo in error message.

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

	* resolve.c (resolve_where): Fix Typo in error message.

From-SVN: r132100

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 1267304d96bf9ab8e210a1a1dd67a92e69dfb252..c8faa2b0958f78202140e0090e81fff3e48c5732 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+2008-02-04  Daniel Franke  <franke.daniel@gmail.com>
+
+       * resolve.c (resolve_where): Fix Typo in error message.
+
 2008-02-04  Daniel Franke  <franke.daniel@gmail.com>
 
        Backport from trunk:

diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c
index 29c461e7665a8154d69e285f77853e8d3276b736..dbcd811ea99f97b377ab62ff8fa74289059dd42b 100644 (file)
--- 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;