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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [sms-2.f90] - Blame information for rev 720

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! { dg-options "-O2 -fmodulo-sched" }`
3			`! This testcase related to wrong order within a cycle fix.`
4			`!`
5			`program foo`
6			`real, dimension (5, 5, 5, 5) :: a`
7
8			`a (:, :, :, :) = 4`
9			`a (:, 2, :, 4) = 10`
10			`a (:, 2, :, 1) = 0`
11
12			`forall (i = 1:5, i == 3)`
13			`a(i, i, i, i) = -5`
14			`end forall`
15
16			`if (sum (a) .ne. 2541.0) call abort ()`
17			`end`
18
19