diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2018-11-01 12:00:59 +0000 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2018-11-01 12:00:59 +0000 |
| commit | 86ba9ce62614375784f5ce92d711e00db391d81e (patch) | |
| tree | 943aa2a600575925925857d2bd166fb710c5af4d /gcc | |
| parent | 45f159a0a036544bf50ada7bb7927c78d3b2cfb5 (diff) | |
| download | gcc-86ba9ce62614375784f5ce92d711e00db391d81e.zip gcc-86ba9ce62614375784f5ce92d711e00db391d81e.tar.gz gcc-86ba9ce62614375784f5ce92d711e00db391d81e.tar.bz2 | |
re PR fortran/46020 (Improve error string for BIND(C) diagnostic for len>1 character return type)
2018-11-01 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/46020
* decl.c (verify_bind_c_sym): Improve error message.
From-SVN: r265719
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)); } |