diff options
| -rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/bind_c_usage_7.f03 | 2 |
2 files changed, 7 insertions, 1 deletions
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 <tkoenig@gcc.gnu.org> + + 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 <nathan@acm.org> * 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 |