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

Rev 302	Rev 384
`! { dg-do run }`	`! { dg-do run }`
`! { dg-options "-fbounds-check" }`	`! { dg-options "-fbounds-check" }`
`! { dg-shouldfail "Fortran runtime error: Incorrect extent in return array in MATMUL intrinsic: is 3, should be 2" }`	`! { dg-shouldfail "Fortran runtime error: Incorrect extent in return array in MATMUL intrinsic: is 3, should be 2" }`
`program main`	`program main`
`real, dimension(3) :: a`	`real, dimension(3) :: a`
`real, dimension(3,2) :: b`	`real, dimension(3,2) :: b`
`real, dimension(:), allocatable :: ret`	`real, dimension(:), allocatable :: ret`
`allocate (ret(2))`	`allocate (ret(2))`
`a = 1.0`	`a = 1.0`
`b = 2.3`	`b = 2.3`
`ret = matmul(a,b) ! This is OK`	`ret = matmul(a,b) ! This is OK`
`deallocate(ret)`	`deallocate(ret)`
`allocate(ret(3))`	`allocate(ret(3))`
`ret = matmul(a,b) ! This should throw an error.`	`ret = matmul(a,b) ! This should throw an error.`
`end program main`	`end program main`
`! { dg-output "Fortran runtime error: Incorrect extent in return array in MATMUL intrinsic: is 3, should be 2" }`	`! { dg-output "Fortran runtime error: Incorrect extent in return array in MATMUL intrinsic: is 3, should be 2" }`