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

gcc/testsuite/ChangeLog

+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

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 }

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 }

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        

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 }