diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/block_name_2.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/block_name_2.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.dg/block_name_2.f90 b/gcc/testsuite/gfortran.dg/block_name_2.f90 index 590a015ffe9..d86e77e7a8c 100644 --- a/gcc/testsuite/gfortran.dg/block_name_2.f90 +++ b/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 |
