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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [forall_2.f90] - Rev 843

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

!program to test nested forall construct and forall mask
program test
  implicit none
  integer a(4,4)
  integer i, j

  do i=1,4
    do j=1,4
      a(j,i) = j-i
    enddo
  enddo
  forall (i=2:4, a(1,i).GT.-2)
    forall (j=1:4, a(j,2).GT.0)
      a(j,i) = a(j,i-1)
    end forall
  end forall
  if (any (a.ne.reshape ((/0,1,2,3,-1,0,2,3,-2,-1,0,1,-3,-2,-1,0/),&
                          (/4,4/)))) call abort
end

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

powered by: WebSVN 2.1.0

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