diff options
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/decl.c | 4 |
2 files changed, 7 insertions, 2 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 4e0869b..87f3312 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,5 +1,10 @@ 2018-11-01 Thomas Koenig <tkoenig@gcc.gnu.org> + PR fortran/46020 + * decl.c (verify_bind_c_sym): Improve error message. + +2018-11-01 Thomas Koenig <tkoenig@gcc.gnu.org> + PR fortran/54613 * gfortran.texi (File format of unformatted sequential files): Replace random comma with period. 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)); } |