OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
This commit is contained in:
Tobias Burnus 2008-01-19 00:04:50 +01:00 committed by Tobias Burnus
parent a6e0993cf8
commit 7939be8022
6 changed files with 16 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gcc/testsuite/ChangeLog
View File

@ -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

2
gcc/testsuite/gfortran.dg/bom_error.f90
View File

@ -1,4 +1,4 @@
牰湩⁴Ⱚ∠效汬潷汲Ⅴ<EFBFBD>
湥⁤‡⁻杤攭牲牯∠湉慶楬⁤档牡捡整≲素
‡⁻杤搭潣灭汩⁥<EFBFBD>
! { dg-excess-errors "Unexpected end of file" }
! { dg-error "Unexpected end of file" "" { target "*-*-*" } 0 }

3
gcc/testsuite/gfortran.dg/enum_4.f90
View File

@ -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 }

3
gcc/testsuite/gfortran.dg/enum_5.f90
View File

@ -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 }

2
gcc/testsuite/gfortran.dg/enum_6.f90
View File

@ -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

3
gcc/testsuite/gfortran.dg/func_decl_4.f90
View File

@ -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 }