Index: gcc/gcc/testsuite/gfortran.dg/block_name_2.f90 |
diff --git a/gcc/gcc/testsuite/gfortran.dg/block_name_2.f90 b/gcc/gcc/testsuite/gfortran.dg/block_name_2.f90 |
index 590a015ffe9209f70ddc90f896b6b00eff48f6c7..d86e77e7a8c93b93fa6855453c80282b1cd7d843 100644 |
--- a/gcc/gcc/testsuite/gfortran.dg/block_name_2.f90 |
+++ b/gcc/gcc/testsuite/gfortran.dg/block_name_2.f90 |
@@ -43,8 +43,8 @@ program blocks |
end if |
select case (i) |
- case (1) s2 ! { dg-error "Expected the name of the SELECT CASE construct" } |
- case default s2 ! { dg-error "Expected the name of the SELECT CASE construct" } |
+ case (1) s2 ! { dg-error "Syntax error in CASE specification" } |
+ case default s2 ! { dg-error "Syntax error in CASE specification" } |
end select s2 ! { dg-error "Syntax error in END SELECT statement" } |
end select |