diff options
| author | Daniel Franke <franke.daniel@gmail.com> | 2008-02-04 17:29:35 -0500 |
|---|---|---|
| committer | Daniel Franke <dfranke@gcc.gnu.org> | 2008-02-04 17:29:35 -0500 |
| commit | ba6e57ba62158ff6fb72948557eef72530fcad18 (patch) | |
| tree | f173f33198f8607be96633a8a17d9a32c80ba56e /gcc/fortran/resolve.c | |
| parent | 22199fd25dc76dd3c05d935b07761501911dad37 (diff) | |
| download | gcc-ba6e57ba62158ff6fb72948557eef72530fcad18.zip gcc-ba6e57ba62158ff6fb72948557eef72530fcad18.tar.gz gcc-ba6e57ba62158ff6fb72948557eef72530fcad18.tar.bz2 | |
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
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 926f045..5a3f782 100644 --- 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; |