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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [where_3.f90] - Blame information for rev 867

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 149 jeremybenn
! Program to test WHERE on unknown size arrays
2
program where_3
3
   integer A(10, 2)
4
 
5
   A = 0
6
   call sub(A)
7
 
8
contains
9
 
10
subroutine sub(B)
11
   integer, dimension(:, :) :: B
12
 
13
   B(1:5, 1) = 0
14
   B(6:10, 1) = 5
15
   where (B(:,1)>0)
16
      B(:,1) = B(:,1) + 10
17
   endwhere
18
   if (any (B .ne. reshape ((/0, 0, 0, 0, 0, 15, 15, 15, 15, 15, &
19
      0, 0, 0, 0, 0, 0, 0, 0, 0, 0/), (/10, 2/)))) call abort
20
end subroutine
21
end program

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.