| 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
|
|
|
|
|