URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [do_check_4.f90] - Diff between revs 302 and 384

Rev 302	Rev 384
`! { dg-do run }`	`! { dg-do run }`
`! { dg-options "-fcheck=do" }`	`! { dg-options "-fcheck=do" }`
`! { dg-shouldfail "DO check" }`	`! { dg-shouldfail "DO check" }`
`!`	`!`
`! PR fortran/34656`	`! PR fortran/34656`
`! Run-time check for modifing loop variables`	`! Run-time check for modifing loop variables`
`!`	`!`
`PROGRAM test`	`PROGRAM test`
`IMPLICIT NONE`	`IMPLICIT NONE`
`INTEGER :: i`	`INTEGER :: i`
`DO i=1,100`	`DO i=1,100`
`CALL do_something()`	`CALL do_something()`
`ENDDO`	`ENDDO`
`CONTAINS`	`CONTAINS`
`SUBROUTINE do_something()`	`SUBROUTINE do_something()`
`IMPLICIT NONE`	`IMPLICIT NONE`
`DO i=1,10`	`DO i=1,10`
`ENDDO`	`ENDDO`
`END SUBROUTINE do_something`	`END SUBROUTINE do_something`
`END PROGRAM test`	`END PROGRAM test`
`! { dg-output "Fortran runtime error: Loop variable has been modified" }`	`! { dg-output "Fortran runtime error: Loop variable has been modified" }`