From 508da9f932741f7273cfd6bf22829bfefe01e7e8 Mon Sep 17 00:00:00 2001 From: Thomas Koenig Date: Thu, 1 Nov 2018 11:55:43 +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_usage_7.f90: Adjust error message. * gfortran.dg/bind_c_usage_32.f90: New test. From-SVN: r265716 --- gcc/testsuite/ChangeLog | 6 ++++++ gcc/testsuite/gfortran.dg/bind_c_usage_7.f03 | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 13e1a1c..5cb6373 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2018-11-01 Thomas Koenig + + PR fortran/46020 + * gfortran.dg/bind_c_usage_7.f90: Adjust error message. + * gfortran.dg/bind_c_usage_32.f90: New test. + 2018-11-01 Nathan Sidwell * g++.dg/abi/anon5.C: New. diff --git a/gcc/testsuite/gfortran.dg/bind_c_usage_7.f03 b/gcc/testsuite/gfortran.dg/bind_c_usage_7.f03 index 25adb2c..73ee6dc 100644 --- a/gcc/testsuite/gfortran.dg/bind_c_usage_7.f03 +++ b/gcc/testsuite/gfortran.dg/bind_c_usage_7.f03 @@ -7,7 +7,7 @@ contains integer(c_int) :: bar(5) end function bar - function my_string_func() bind(c) ! { dg-error "cannot be a character string" } + function my_string_func() bind(c) ! { dg-error "must have length 1" } character(kind=c_char, len=10) :: my_string_func my_string_func = 'my_string' // C_NULL_CHAR end function my_string_func -- 2.7.4