resolve.c (resolve_where): Fix typo.

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

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

From-SVN: r132098

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 33f342391af1adacea264fe611fb1e21e28018da..c21720efd1db2c5299ddd85c35b07232c4508685 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 926f0455f485210eb02f7e0a31ded302b2e2412b..5a3f782934102c3b93417c4663af252d93951e26 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;