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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [libgomp/] [testsuite/] [libgomp.fortran/] [allocatable4.f90] - Blame information for rev 407

Line No.	Rev	Author	Line
1	273	jeremybenn	`! { dg-do run }`
2
3			`integer, allocatable :: a(:, :)`
4			`integer :: b(6, 3)`
5			`integer :: i, j`
6			`logical :: k, l`
7			`b(:, :) = 16`
8			`l = .false.`
9			`if (allocated (a)) call abort`
10			`!$omp task private (a, b) shared (l)`
11			`l = l.or.allocated (a)`
12			`allocate (a(3, 6))`
13			`l = l.or..not.allocated (a)`
14			`l = l.or.size(a).ne.18.or.size(a,1).ne.3.or.size(a,2).ne.6`
15			`a(3, 2) = 1`
16			`b(3, 2) = 1`
17			`deallocate (a)`
18			`l = l.or.allocated (a)`
19			`!$omp end task`
20			`!$omp taskwait`
21			`if (allocated (a).or.l) call abort`
22			`allocate (a(6, 3))`
23			`a(:, :) = 3`
24			`if (.not.allocated (a)) call abort`
25			`l = l.or.size(a).ne.18.or.size(a,1).ne.6.or.size(a,2).ne.3`
26			`if (l) call abort`
27			`!$omp task private (a, b) shared (l)`
28			`l = l.or..not.allocated (a)`
29			`a(3, 2) = 1`
30			`b(3, 2) = 1`
31			`!$omp end task`
32			`!$omp taskwait`
33			`if (l.or..not.allocated (a)) call abort`
34			`!$omp task firstprivate (a, b) shared (l)`
35			`l = l.or..not.allocated (a)`
36			`l = l.or.size(a).ne.18.or.size(a,1).ne.6.or.size(a,2).ne.3`
37			`do i = 1, 6`
38			`l = l.or.(a(i, 1).ne.3).or.(a(i, 2).ne.3)`
39			`l = l.or.(a(i, 3).ne.3).or.(b(i, 1).ne.16)`
40			`l = l.or.(b(i, 2).ne.16).or.(b(i, 3).ne.16)`
41			`end do`
42			`a(:, :) = 7`
43			`b(:, :) = 8`
44			`!$omp end task`
45			`!$omp taskwait`
46			`if (any (a.ne.3).or.any (b.ne.16).or.l) call abort`
47			`end`