enum_4.f90: Replace dg-excess-errors by dg-error.

2008-01-18  Tobias Burnus  <burnus@net-b.de>

        * 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

6 files changed, 16 insertions, 5 deletions

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 5e35a9d..61b720c 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,11 @@
+2008-01-18  Tobias Burnus  <burnus@net-b.de>
+
+	* 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  <jvdelisle@gcc.gnu.org>
 
 	PR target/34782
diff --git a/gcc/testsuite/gfortran.dg/bom_error.f90 b/gcc/testsuite/gfortran.dg/bom_error.f90
index 7c2c86d..142d750 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 be506b4..6cca2eb 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 b27aaf2..c5617b8 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 a030727..1c7c027 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 7c08f31..972454d 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 }