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.0rc1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [intrinsic_mmloc_2.f90] - Diff between revs 303 and 338

Rev 303	Rev 338
`program intrinsic_mmloc_2`	`program intrinsic_mmloc_2`
`real a(-1:1), b(2:3), c(1:2)`	`real a(-1:1), b(2:3), c(1:2)`
`integer, dimension(1):: i`	`integer, dimension(1):: i`
`real (kind = 8), dimension(-1:1) :: vc`	`real (kind = 8), dimension(-1:1) :: vc`

`a = 0`	`a = 0`
`b = 0`	`b = 0`
`c = 0`	`c = 0`
`a(-1) = 1`	`a(-1) = 1`
`b(2) = 1`	`b(2) = 1`
`c(1) = 1`	`c(1) = 1`

`if (maxloc (a, 1) .ne. 1) call abort()`	`if (maxloc (a, 1) .ne. 1) call abort()`
`if (maxloc (b, 1) .ne. 1) call abort()`	`if (maxloc (b, 1) .ne. 1) call abort()`
`if (maxloc (c, 1) .ne. 1) call abort()`	`if (maxloc (c, 1) .ne. 1) call abort()`


`! We were giving MINLOC and MAXLOC the wrong return type`	`! We were giving MINLOC and MAXLOC the wrong return type`
`vc = (/4.0d0, 2.50d1, 1.0d1/)`	`vc = (/4.0d0, 2.50d1, 1.0d1/)`
`i = minloc (vc)`	`i = minloc (vc)`
`if (i(1) .ne. 1) call abort()`	`if (i(1) .ne. 1) call abort()`
`END PROGRAM`	`END PROGRAM`