From 7939be80229a0d2867b50d5240186c0a1dc84aac Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Sat, 19 Jan 2008 00:04:50 +0100 Subject: [PATCH] enum_4.f90: Replace dg-excess-errors by dg-error. 2008-01-18 Tobias Burnus * gfortran.dg/enum_4.f90: Replace dg-excess-errors by dg-error. * gfortran.dg/enum_5.f90: Ditto. * gfortran.dg/enum_6.f90: Ditto. * gfortran.dg/bom_error.f90: Ditto. * gfortran.dg/func_decl_4.f90: Ditto. From-SVN: r131642 --- gcc/testsuite/ChangeLog | 8 ++++++++ gcc/testsuite/gfortran.dg/bom_error.f90 | 2 +- gcc/testsuite/gfortran.dg/enum_4.f90 | 3 ++- gcc/testsuite/gfortran.dg/enum_5.f90 | 3 ++- gcc/testsuite/gfortran.dg/enum_6.f90 | 2 +- gcc/testsuite/gfortran.dg/func_decl_4.f90 | 3 ++- 6 files changed, 16 insertions(+), 5 deletions(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 5e35a9dc4cd..61b720ce49b 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,11 @@ +2008-01-18 Tobias Burnus + + * gfortran.dg/enum_4.f90: Replace dg-excess-errors by dg-error. + * gfortran.dg/enum_5.f90: Ditto. + * gfortran.dg/enum_6.f90: Ditto. + * gfortran.dg/bom_error.f90: Ditto. + * gfortran.dg/func_decl_4.f90: Ditto. + 2007-01-18 Jerry DeLisle PR target/34782 diff --git a/gcc/testsuite/gfortran.dg/bom_error.f90 b/gcc/testsuite/gfortran.dg/bom_error.f90 index 7c2c86d1811..142d7509e17 100644 --- a/gcc/testsuite/gfortran.dg/bom_error.f90 +++ b/gcc/testsuite/gfortran.dg/bom_error.f90 @@ -1,4 +1,4 @@ ÿþprint *, "Hello world!" ÿþend ! { dg-error "Invalid character" } ! { dg-do compile } -! { dg-excess-errors "Unexpected end of file" } +! { dg-error "Unexpected end of file" "" { target "*-*-*" } 0 } diff --git a/gcc/testsuite/gfortran.dg/enum_4.f90 b/gcc/testsuite/gfortran.dg/enum_4.f90 index be506b400db..6cca2ebc648 100644 --- a/gcc/testsuite/gfortran.dg/enum_4.f90 +++ b/gcc/testsuite/gfortran.dg/enum_4.f90 @@ -13,4 +13,5 @@ program main enumerator , save :: g = 1 ! { dg-error "Syntax error" } end ! { dg-error " END ENUM" } -end program main ! { dg-excess-errors "" } +end program main ! { dg-error "Expecting END ENUM statement" } +! { dg-error "Unexpected end of file" "" { target "*-*-*" } 0 } diff --git a/gcc/testsuite/gfortran.dg/enum_5.f90 b/gcc/testsuite/gfortran.dg/enum_5.f90 index b27aaf289c0..c5617b8c1ba 100644 --- a/gcc/testsuite/gfortran.dg/enum_5.f90 +++ b/gcc/testsuite/gfortran.dg/enum_5.f90 @@ -12,4 +12,5 @@ program main blue = 10 ! { dg-error " assign to a named constant" } -end program main ! { dg-excess-errors "" } +end program main ! { dg-error "Expecting END ENUM" } + ! { dg-error "Unexpected end of file" "" { target "*-*-*" } 0 } diff --git a/gcc/testsuite/gfortran.dg/enum_6.f90 b/gcc/testsuite/gfortran.dg/enum_6.f90 index a0307275539..1c7c027a351 100644 --- a/gcc/testsuite/gfortran.dg/enum_6.f90 +++ b/gcc/testsuite/gfortran.dg/enum_6.f90 @@ -16,6 +16,6 @@ program main enum, bind (c) ! { dg-error "Unexpected" } enumerator :: red, black = 2 ! { dg-error "ENUM definition statement expected" } enumerator :: blue = 1 ! { dg-error "ENUM definition statement expected" } - end enum ! { dg-excess-errors "Expecting END PROGRAM" } + end enum ! { dg-error "Expecting END PROGRAM" } end program main diff --git a/gcc/testsuite/gfortran.dg/func_decl_4.f90 b/gcc/testsuite/gfortran.dg/func_decl_4.f90 index 7c08f316827..972454dce04 100644 --- a/gcc/testsuite/gfortran.dg/func_decl_4.f90 +++ b/gcc/testsuite/gfortran.dg/func_decl_4.f90 @@ -14,4 +14,5 @@ end function function f3() RESULT (f3) ! { dg-error "must be different than function name" } integer :: f3 = 42 -end function ! { dg-excess-errors "" } +end function ! { dg-error "Expecting END PROGRAM" } +! { dg-error "Unexpected end of file" "" { target "*-*-*" } 0 }