diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2018-11-01 11:55:43 +0000 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2018-11-01 11:55:43 +0000 |
| commit | 508da9f932741f7273cfd6bf22829bfefe01e7e8 (patch) | |
| tree | dafc47b7ba41c69ce8a38490bcb734f40c05919b /gcc | |
| parent | ff5115e20368297ec8caac7e249b64601adeee6c (diff) | |
| download | gcc-508da9f932741f7273cfd6bf22829bfefe01e7e8.zip gcc-508da9f932741f7273cfd6bf22829bfefe01e7e8.tar.gz gcc-508da9f932741f7273cfd6bf22829bfefe01e7e8.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_usage_7.f90: Adjust error message.
* gfortran.dg/bind_c_usage_32.f90: New test.
From-SVN: r265716
Diffstat (limited to 'gcc')
| -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 |