From: Thomas Koenig <tkoenig@gcc.gnu.org>
Date: Thu, 1 Nov 2018 18:41:28 +0000 (+0000)
Subject: re PR fortran/46020 (Improve error string for BIND(C) diagnostic for len>1 character... 
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=c92e96fa1a5289dfe4cd493d25bd952a66e2b634;p=gcc.git

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
    * gfortran.dg/bind_c_18.f90: Adjust error message.

From-SVN: r265727
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index e85b37cdb8a..4bdd6ac7184 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2018-11-01  Thomas Koenig  <tkoenig@gcc.gnu.org>
+
+	PR fortran/46020
+	* gfortran.dg/bind_c_18.f90: Adjust error message.
+
 2018-11-01  Marek Polacek  <polacek@redhat.com>
 
 	* g++.dg/cpp1z/constexpr-lambda22.C: New test,
diff --git a/gcc/testsuite/gfortran.dg/bind_c_18.f90 b/gcc/testsuite/gfortran.dg/bind_c_18.f90
index 6360f01aacc..b5d52704ea6 100644
--- a/gcc/testsuite/gfortran.dg/bind_c_18.f90
+++ b/gcc/testsuite/gfortran.dg/bind_c_18.f90
@@ -11,7 +11,7 @@ implicit none
     END FUNCTION
   END INTERFACE
   INTERFACE 
-    FUNCTION two() BIND(C,name="two") RESULT(r) ! { dg-error "cannot be a character string" }
+    FUNCTION two() BIND(C,name="two") RESULT(r) ! { dg-error "must have length 1" }
       USE iso_c_binding
       CHARACTER(kind=C_CHAR,len=2) :: r
     END FUNCTION