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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [forall_7.f90] - Blame information for rev 694

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