From c92e96fa1a5289dfe4cd493d25bd952a66e2b634 Mon Sep 17 00:00:00 2001 From: Thomas Koenig Date: Thu, 1 Nov 2018 18:41:28 +0000 Subject: [PATCH] re PR fortran/46020 (Improve error string for BIND(C) diagnostic for len>1 character return type) 2018-11-01 Thomas Koenig PR fortran/46020 * gfortran.dg/bind_c_18.f90: Adjust error message. From-SVN: r265727 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/bind_c_18.f90 | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + + PR fortran/46020 + * gfortran.dg/bind_c_18.f90: Adjust error message. + 2018-11-01 Marek Polacek * 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 -- 2.30.2