URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [where_3.f90] - Rev 318
Go to most recent revision | Compare with Previous | Blame | View Log
! Program to test WHERE on unknown size arrays
program where_3
integer A(10, 2)
A = 0
call sub(A)
contains
subroutine sub(B)
integer, dimension(:, :) :: B
B(1:5, 1) = 0
B(6:10, 1) = 5
where (B(:,1)>0)
B(:,1) = B(:,1) + 10
endwhere
if (any (B .ne. reshape ((/0, 0, 0, 0, 0, 15, 15, 15, 15, 15, &
0, 0, 0, 0, 0, 0, 0, 0, 0, 0/), (/10, 2/)))) call abort
end subroutine
end program
Go to most recent revision | Compare with Previous | Blame | View Log