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

Subversion Repositories openrisc

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

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


! Check to ensure result is calculated from unmodified
! version of the right-hand-side in WHERE statements.
program where_19
   integer :: a(4)
   integer :: b(3)
   integer :: c(3)
   equivalence (a(1), b(1)), (a(2), c(1))
 
   a = (/1, 2, 3, 4/)
   where (b .gt. 1)
     c = b
   endwhere
   if (any (a .ne. (/1, 2, 2, 3/))) &
     call abort ()
 
   a = (/1, 2, 3, 4/)
   where (c .gt. 1)
     b = c
   endwhere
   if (any (a .ne. (/2, 3, 4, 4/))) &
     call abort ()
end program
 

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

Browse

Tools

Subversion Repositories openrisc

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