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/] [bounds_check_2.f] - Diff between revs 302 and 384

Rev 302	Rev 384
`! { dg-do run }`	`! { dg-do run }`
`! { dg-options "-fbounds-check" }`	`! { dg-options "-fbounds-check" }`
`! PR fortran/19777`	`! PR fortran/19777`
`implicit none`	`implicit none`
`integer npts`	`integer npts`
`parameter (npts=10)`	`parameter (npts=10)`
`double precision v(npts)`	`double precision v(npts)`
`double precision w(npts,npts,npts)`	`double precision w(npts,npts,npts)`
`external init1`	`external init1`
`external init2`	`external init2`

`call init1 (npts, v)`	`call init1 (npts, v)`
`call init2 (npts, w)`	`call init2 (npts, w)`
`end`	`end`

`subroutine init1 (npts, v)`	`subroutine init1 (npts, v)`
`implicit none`	`implicit none`
`integer npts`	`integer npts`
`double precision v(*)`	`double precision v(*)`

`integer i`	`integer i`

`do 10 i = 1, npts`	`do 10 i = 1, npts`
`v(i) = 0`	`v(i) = 0`
`10 continue`	`10 continue`
`end`	`end`

`subroutine init2 (npts, w)`	`subroutine init2 (npts, w)`
`implicit none`	`implicit none`
`integer npts`	`integer npts`
`double precision w(npts,npts,*)`	`double precision w(npts,npts,*)`

`integer i`	`integer i`

`do 20 i = 1, npts`	`do 20 i = 1, npts`
`w(i,1,1) = 0`	`w(i,1,1) = 0`
`w(1,npts,i) = 0`	`w(1,npts,i) = 0`
`20 continue`	`20 continue`
`end`	`end`