Commit ba6e57ba by Daniel Franke Committed by Daniel Franke

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
parent 22199fd2
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> 2008-02-03 Paul Thomas <pault@gcc.gnu.org>
PR fortran/32760 PR fortran/32760
......
...@@ -5732,7 +5732,7 @@ resolve_where (gfc_code *code, gfc_expr *mask) ...@@ -5732,7 +5732,7 @@ resolve_where (gfc_code *code, gfc_expr *mask)
case EXEC_ASSIGN_CALL: case EXEC_ASSIGN_CALL:
resolve_call (cnext); resolve_call (cnext);
if (!cnext->resolved_sym->attr.elemental) 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); &cnext->ext.actual->expr->where);
break; break;
...@@ -5817,7 +5817,7 @@ gfc_resolve_where_code_in_forall (gfc_code *code, int nvar, ...@@ -5817,7 +5817,7 @@ gfc_resolve_where_code_in_forall (gfc_code *code, int nvar,
case EXEC_ASSIGN_CALL: case EXEC_ASSIGN_CALL:
resolve_call (cnext); resolve_call (cnext);
if (!cnext->resolved_sym->attr.elemental) 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); &cnext->ext.actual->expr->where);
break; break;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment