| Index: gcc/gcc/testsuite/gfortran.dg/selected_char_kind_3.f90
|
| diff --git a/gcc/gcc/testsuite/gfortran.dg/selected_char_kind_3.f90 b/gcc/gcc/testsuite/gfortran.dg/selected_char_kind_3.f90
|
| index a7b7ae7d895b37d5e8f3b15a5dd5f7355e0feb8a..fad5e46c287b7dcfb9a886e87d1c503614cf6ccc 100644
|
| --- a/gcc/gcc/testsuite/gfortran.dg/selected_char_kind_3.f90
|
| +++ b/gcc/gcc/testsuite/gfortran.dg/selected_char_kind_3.f90
|
| @@ -4,7 +4,7 @@
|
| ! Check that SELECTED_CHAR_KIND is rejected with -std=f95
|
| !
|
| implicit none
|
| - character(kind=selected_char_kind("ascii")) :: s ! { dg-error "must be an intrinsic or a specification function" }
|
| + character(kind=selected_char_kind("ascii")) :: s ! { dg-error "has no IMPLICIT type" }
|
| s = "" ! { dg-error "has no IMPLICIT type" }
|
| print *, s
|
| end
|
|
|