aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorThomas Koenig <tkoenig@gcc.gnu.org>2018-11-01 18:41:28 +0000
committerThomas Koenig <tkoenig@gcc.gnu.org>2018-11-01 18:41:28 +0000
commitc92e96fa1a5289dfe4cd493d25bd952a66e2b634 (patch)
tree51580f071ed99f39bd8d0904e565e2de0f95eae0
parent4310ca662ab30f0bf73cd71d9a89f0779189c00d (diff)
downloadgcc-c92e96fa1a5289dfe4cd493d25bd952a66e2b634.zip
gcc-c92e96fa1a5289dfe4cd493d25bd952a66e2b634.tar.gz
gcc-c92e96fa1a5289dfe4cd493d25bd952a66e2b634.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 * gfortran.dg/bind_c_18.f90: Adjust error message. From-SVN: r265727
-rw-r--r--gcc/testsuite/ChangeLog5
-rw-r--r--gcc/testsuite/gfortran.dg/bind_c_18.f902
2 files changed, 6 insertions, 1 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index e85b37c..4bdd6ac 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 6360f01..b5d5270 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