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

gcc/fortran/ChangeLog

+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

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;