diff options
| author | tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-01-31 22:52:49 +0000 |
|---|---|---|
| committer | tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-01-31 22:52:49 +0000 |
| commit | 4a24eb13f10c8dc5b14c077144cbe82e8b172731 (patch) | |
| tree | 6d1a58afeaf8925745ad490371ec9535a34ee9fc /gcc/fortran/expr.c | |
| parent | bd1da57219ac371290d66a58c94684dab603f8c9 (diff) | |
| download | gcc-4a24eb13f10c8dc5b14c077144cbe82e8b172731.tar.gz | |
2006-01-31 Thomas Koenig <Thomas.Koenig@online.de>
PR fortran/26039
expr.c (gfc_check_conformance): Reorder error message
to avoid plural.
check.c(gfc_check_minloc_maxloc): Call gfc_check_conformance
for checking arguments array and mask.
(check_reduction): Likewise.
2006-01-31 Thomas Koenig <Thomas.Koenig@online.de>
PR fortran/26039
maxval_maxloc_conformance_1.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@110453 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/expr.c')
| -rw-r--r-- | gcc/fortran/expr.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/expr.c b/gcc/fortran/expr.c index 0e699c26de7..92a7dc02792 100644 --- a/gcc/fortran/expr.c +++ b/gcc/fortran/expr.c @@ -1821,7 +1821,7 @@ gfc_check_conformance (const char *optype_msgid, if (op1_flag && op2_flag && mpz_cmp (op1_size, op2_size) != 0) { - gfc_error ("%s at %L has different shape on dimension %d (%d/%d)", + gfc_error ("different shape for %s at %L on dimension %d (%d/%d)", _(optype_msgid), &op1->where, d + 1, (int) mpz_get_si (op1_size), (int) mpz_get_si (op2_size)); |