URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

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

Rev 302	Rev 384
`! { dg-do run }`	`! { dg-do run }`
`! { dg-shouldfail "Incorrect extent in SHIFT argument of CSHIFT intrinsic in dimension 1: is 3, should be 2" }`	`! { dg-shouldfail "Incorrect extent in SHIFT argument of CSHIFT intrinsic in dimension 1: is 3, should be 2" }`
`! { dg-options "-fbounds-check" }`	`! { dg-options "-fbounds-check" }`
`program main`	`program main`
`integer, dimension(:,:), allocatable :: a, b`	`integer, dimension(:,:), allocatable :: a, b`
`integer, dimension(:), allocatable :: sh`	`integer, dimension(:), allocatable :: sh`
`allocate (a(2,2))`	`allocate (a(2,2))`
`allocate (b(2,2))`	`allocate (b(2,2))`
`allocate (sh(3))`	`allocate (sh(3))`
`a = 1`	`a = 1`
`b = cshift(a,sh)`	`b = cshift(a,sh)`
`end program main`	`end program main`
`! { dg-output "Fortran runtime error: Incorrect extent in SHIFT argument of CSHIFT intrinsic in dimension 1: is 3, should be 2" }`	`! { dg-output "Fortran runtime error: Incorrect extent in SHIFT argument of CSHIFT intrinsic in dimension 1: is 3, should be 2" }`