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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [libgomp/] [testsuite/] [libgomp.fortran/] [collapse1.f90] - Blame information for rev 801

Line No.	Rev	Author	Line
1	735	jeremybenn	`! { dg-do run }`
2
3			`program collapse1`
4			`integer :: i, j, k, a(1:3, 4:6, 5:7)`
5			`logical :: l`
6			`l = .false.`
7			`a(:, :, :) = 0`
8			`!$omp parallel do collapse(4 - 1) schedule(static, 4)`
9			`do i = 1, 3`
10			`do j = 4, 6`
11			`do k = 5, 7`
12			`a(i, j, k) = i + j + k`
13			`end do`
14			`end do`
15			`end do`
16			`!$omp parallel do collapse(2) reduction(.or.:l)`
17			`do i = 1, 3`
18			`do j = 4, 6`
19			`do k = 5, 7`
20			`if (a(i, j, k) .ne. (i + j + k)) l = .true.`
21			`end do`
22			`end do`
23			`end do`
24			`!$omp end parallel do`
25			`if (l) call abort`
26			`end program collapse1`