diff options
Diffstat (limited to 'gcc/fortran/decl.c')
| -rw-r--r-- | gcc/fortran/decl.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index 87c736f..47c939c 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -5647,8 +5647,8 @@ verify_bind_c_sym (gfc_symbol *tmp_sym, gfc_typespec *ts, if (tmp_sym->ts.u.cl == NULL || tmp_sym->ts.u.cl->length == NULL || tmp_sym->ts.u.cl->length->expr_type != EXPR_CONSTANT || mpz_cmp_si (tmp_sym->ts.u.cl->length->value.integer, 1) != 0) - gfc_error ("Return type of BIND(C) function %qs at %L cannot " - "be a character string", tmp_sym->name, + gfc_error ("Return type of BIND(C) function %qs of character " + "type at %L must have length 1 ", tmp_sym->name, &(tmp_sym->declared_at)); } |