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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 303 jeremybenn
! Check to ensure result is calculated from unmodified
2
! version of the right-hand-side in WHERE statements.
3
program where_19
4
   integer :: a(4)
5
   integer :: b(3)
6
   integer :: c(3)
7
   equivalence (a(1), b(1)), (a(2), c(1))
8
 
9
   a = (/1, 2, 3, 4/)
10
   where (b .gt. 1)
11
     c = b
12
   endwhere
13
   if (any (a .ne. (/1, 2, 2, 3/))) &
14
     call abort ()
15
 
16
   a = (/1, 2, 3, 4/)
17
   where (c .gt. 1)
18
     b = c
19
   endwhere
20
   if (any (a .ne. (/2, 3, 4, 4/))) &
21
     call abort ()
22
end program
23
 

powered by: WebSVN 2.1.0

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