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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [where_3.f90] - Blame information for rev 801

Go to most recent revision | Details | Compare with Previous | 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

Line No.	Rev	Author	Line
1	695	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`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [where_3.f90] - Blame information for rev 801