diff options
| author | Tobias Burnus <tburnus@baylibre.com> | 2024-10-19 10:19:14 +0200 |
|---|---|---|
| committer | Tobias Burnus <tburnus@baylibre.com> | 2024-10-19 10:34:44 +0200 |
| commit | efae253b9f863b066e899106d7f3ad9ef0cd3c58 (patch) | |
| tree | e73d8ee33fd542233f5c8034be943c380f58228a /gcc/fortran/data.cc | |
| parent | ffdfc5b045d7364f76d1f41022b2286108898699 (diff) | |
| download | gcc-efae253b9f863b066e899106d7f3ad9ef0cd3c58.zip gcc-efae253b9f863b066e899106d7f3ad9ef0cd3c58.tar.gz gcc-efae253b9f863b066e899106d7f3ad9ef0cd3c58.tar.bz2 | |
Fortran: Fix translatability of diagnostic strings
gcc/fortran/ChangeLog:
* check.cc (is_c_interoperable): Use _(...) around to mark strings
as translatable.
* data.cc (gfc_assign_data_value): Move string literal to gfc_error
to make it translatable.
* resolve.cc (resolve_fl_variable, resolve_equivalence): Use G_(...)
around string literals.
* scanner.cc (skip_fixed_omp_sentinel): Replace '...' by %<...%>.
* trans-openmp.cc (gfc_split_omp_clauses,
gfc_trans_omp_declare_variant): Likewise.
Diffstat (limited to 'gcc/fortran/data.cc')
| -rw-r--r-- | gcc/fortran/data.cc | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/fortran/data.cc b/gcc/fortran/data.cc index c0974be..e720245 100644 --- a/gcc/fortran/data.cc +++ b/gcc/fortran/data.cc @@ -272,8 +272,6 @@ gfc_assign_data_value (gfc_expr *lvalue, gfc_expr *rvalue, mpz_t index, gfc_symbol *symbol; gfc_typespec *last_ts; mpz_t offset; - const char *msg = "F18(R841): data-implied-do object at %L is neither an " - "array-element nor a scalar-structure-component"; symbol = lvalue->symtree->n.sym; init = symbol->value; @@ -523,7 +521,9 @@ gfc_assign_data_value (gfc_expr *lvalue, gfc_expr *rvalue, mpz_t index, violates F18(R841). If the error is removed, the expected result is obtained. Leaving the code in place ensures a clean error recovery. */ - gfc_error (msg, &lvalue->where); + gfc_error ("data-implied-do object at %L is neither an array-element " + "nor a scalar-structure-component (F2018: R841)", + &lvalue->where); /* This breaks with the other reference types in that the output constructor has to be of type COMPLEX, whereas the lvalue is |