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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [forall_7.f90] - Blame information for rev 193

Line No.	Rev	Author	Line
1	149	jeremybenn	`! { dg-do run }`
2			`integer :: a(10,10)`
3			`integer :: tot`
4			`a(:,:) = 0`
5			`forall (i = 1:10)`
6			`forall (j = 1:10)`
7			`a(i,j) = 1`
8			`end forall`
9			`forall (k = 1:10)`
10			`a(i,k) = a(i,k) + 1`
11			`end forall`
12			`end forall`
13			`tot = sum(a(:,:))`
14			`! print *, tot`
15			`if (tot .ne. 200) call abort ()`
16			`end`