OpenCores
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/] [forall_2.f90] - Blame information for rev 303

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 303 jeremybenn
!program to test nested forall construct and forall mask
2
program test
3
  implicit none
4
  integer a(4,4)
5
  integer i, j
6
 
7
  do i=1,4
8
    do j=1,4
9
      a(j,i) = j-i
10
    enddo
11
  enddo
12
  forall (i=2:4, a(1,i).GT.-2)
13
    forall (j=1:4, a(j,2).GT.0)
14
      a(j,i) = a(j,i-1)
15
    end forall
16
  end forall
17
  if (any (a.ne.reshape ((/0,1,2,3,-1,0,2,3,-2,-1,0,1,-3,-2,-1,0/),&
18
                          (/4,4/)))) call abort
19
end
20
 

powered by: WebSVN 2.1.0

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