Commit 0f4f8561 by Thomas Koenig

re PR fortran/46020 (Improve error string for BIND(C) diagnostic for len>1 character return type)

2018-11-02  Thomas Koenig  <tkoenig@gcc.gnu.org>

    PR fortran/46020
    * decl.c (verify_bind_c_sym): Remove unnecessary space
    in error message.

From-SVN: r265757
parent 361420ee
2018-11-02 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/46020
* decl.c (verify_bind_c_sym): Remove unnecessary space
in error message.
2018-11-01 Thomas Koenig <tkoenig@gcc.gnu.org> 2018-11-01 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/87782 PR fortran/87782
......
...@@ -5648,7 +5648,7 @@ verify_bind_c_sym (gfc_symbol *tmp_sym, gfc_typespec *ts, ...@@ -5648,7 +5648,7 @@ verify_bind_c_sym (gfc_symbol *tmp_sym, gfc_typespec *ts,
|| tmp_sym->ts.u.cl->length->expr_type != EXPR_CONSTANT || tmp_sym->ts.u.cl->length->expr_type != EXPR_CONSTANT
|| mpz_cmp_si (tmp_sym->ts.u.cl->length->value.integer, 1) != 0) || mpz_cmp_si (tmp_sym->ts.u.cl->length->value.integer, 1) != 0)
gfc_error ("Return type of BIND(C) function %qs of character " gfc_error ("Return type of BIND(C) function %qs of character "
"type at %L must have length 1 ", tmp_sym->name, "type at %L must have length 1", tmp_sym->name,
&(tmp_sym->declared_at)); &(tmp_sym->declared_at));
} }
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment