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

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [where_6.f90] - Blame information for rev 12

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 12 jlechner
! Program to test WHERE inside FORALL and the WHERE assignment need temporary
2
program where_6
3
   integer :: A(5,5)
4
 
5
   A(1,:) = (/1,0,0,0,0/)
6
   A(2,:) = (/2,1,1,1,0/)
7
   A(3,:) = (/1,2,2,0,2/)
8
   A(4,:) = (/2,1,0,2,3/)
9
   A(5,:) = (/1,0,0,0,0/)
10
 
11
   ! Where inside FORALL.
12
   ! WHERE masks must be evaluated before executing the assignments
13
   m=5
14
   forall (I=1:4)
15
      where (A(I,:) .EQ. 0)
16
         A(1:m,I) = A(1:m,I+1) + I
17
      elsewhere (A(I,:) >2)
18
         A(I,1:m) = 6
19
      endwhere
20
   end forall
21
   if (any (A .ne. reshape ((/1,2,6,2,1,0,1,2,1,2,0,1,2,5,0,0,1,6,2,0,0,0,2,&
22
                             6,0/), (/5, 5/)))) call abort
23
end

powered by: WebSVN 2.1.0

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