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 |