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

gcc/fortran/ChangeLog

 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.

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));
     }