diff options
| author | Tobias Burnus <burnus@net-b.de> | 2012-02-17 11:51:10 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2012-02-17 11:51:10 +0100 |
| commit | 0c133211da84ca416cbb02d4a48b1597e6db8077 (patch) | |
| tree | ad8fdc2ad0d9a5e02c6d98ba0db7ba2dcc281920 /gcc/fortran/check.c | |
| parent | 459e2649e4257c56662f5c232d49fdeef5f7bc3b (diff) | |
| download | gcc-0c133211da84ca416cbb02d4a48b1597e6db8077.zip gcc-0c133211da84ca416cbb02d4a48b1597e6db8077.tar.gz gcc-0c133211da84ca416cbb02d4a48b1597e6db8077.tar.bz2 | |
re PR translation/52232 (translatable string typos: "conindexed" (should be "coindexed"))
2012-02-17 Tobias Burnus <burnus@net-b.de>
Roland Stigge <stigge@antcom.de>
PR translation/52232
PR translation/52234
PR translation/52245
PR translation/52246
PR translation/52262
PR translation/52273
* io.c (gfc_match_open): Fix typo.
* interface.c (compare_actual_formal): Ditto.
* lang.opt (freal-4-real-8, freal-4-real-16, freal-8-real-16):
* Ditto.
* match.c (alloc_opt_list, gfc_match_nullify): Ditto.
* check.c (gfc_check_associated, gfc_check_null): Ditto.
2012-02-17 Tobias Burnus <burnus@net-b.de>
PR translation/52232
PR translation/52234
PR translation/52245
PR translation/52246
PR translation/52262
PR translation/52273
* gfortran.dg/coarray_22.f90: Update dg-error.
* gfortran.dg/allocate_alloc_opt_4.f90: Ditto.
Co-Authored-By: Roland Stigge <stigge@antcom.de>
From-SVN: r184331
Diffstat (limited to 'gcc/fortran/check.c')
| -rw-r--r-- | gcc/fortran/check.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/fortran/check.c b/gcc/fortran/check.c index 4b72a5fb..afeb653 100644 --- a/gcc/fortran/check.c +++ b/gcc/fortran/check.c @@ -908,7 +908,7 @@ gfc_check_associated (gfc_expr *pointer, gfc_expr *target) if (attr1.pointer && gfc_is_coindexed (pointer)) { gfc_error ("'%s' argument of '%s' intrinsic at %L shall not be " - "conindexed", gfc_current_intrinsic_arg[0]->name, + "coindexed", gfc_current_intrinsic_arg[0]->name, gfc_current_intrinsic, &pointer->where); return FAILURE; } @@ -944,7 +944,7 @@ gfc_check_associated (gfc_expr *pointer, gfc_expr *target) if (attr1.pointer && gfc_is_coindexed (target)) { gfc_error ("'%s' argument of '%s' intrinsic at %L shall not be " - "conindexed", gfc_current_intrinsic_arg[1]->name, + "coindexed", gfc_current_intrinsic_arg[1]->name, gfc_current_intrinsic, &target->where); return FAILURE; } @@ -2851,7 +2851,7 @@ gfc_check_null (gfc_expr *mold) if (gfc_is_coindexed (mold)) { gfc_error ("'%s' argument of '%s' intrinsic at %L shall not be " - "conindexed", gfc_current_intrinsic_arg[0]->name, + "coindexed", gfc_current_intrinsic_arg[0]->name, gfc_current_intrinsic, &mold->where); return FAILURE; } |