diff --git a/gcc/testsuite/gfortran.dg/select_6.f90 b/gcc/testsuite/gfortran.dg/select_6.f90
index 2d995b0e237be679bef81797052d8ab33a997e62..926659c28b4c65f3ea1c75164c1bd33d1a1d8cf0 100644
--- a/gcc/testsuite/gfortran.dg/select_6.f90
+++ b/gcc/testsuite/gfortran.dg/select_6.f90
@@ -5,6 +5,6 @@
         integer(kind=1) :: i
         real :: r(3)
         select case (i)
-        case (129) r(4) = 0 { dg-error "Unclassifiable" }
+        case (129) r(4) = 0 { dg-error "Expected the name" }
         end select
         end