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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 5e35a9dc4cd58722694ed201ab94e055342c885a..61b720ce49b9eea89ba03f9a88e8af4fa1123201 100644 (file)
--- 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 7c2c86d18115224d2c1f719e7504957e331e9eef..142d7509e1716784d64a0a35f09f19dcc07bd375 100644 (file)
--- 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 be506b400db7f8206605c15b7beb9b0a066fc100..6cca2ebc64878850cd01b2b2fb865984e0dee091 100644 (file)
--- 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 b27aaf289c04517d02958363f2e651a04fd16035..c5617b8c1ba72d92b04fc1854a5746163400c2ae 100644 (file)
--- 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 a03072755391e69449c57a63c5ae2ff91457dbe1..1c7c027a351b51e945b9711ba2cbf48944de304d 100644 (file)
--- 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 7c08f316827c52d6d031d594fd373b2ac2adb884..972454dce04b8cb4769671cdd4fb8173576db5e1 100644 (file)
--- 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 }