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

Subversion Repositories openrisc

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

Line No.	Rev	Author	Line
1	735	jeremybenn	`! { dg-do run }`
2
3			`use omp_lib`
4			`integer :: i, j, k, m, n`
5			`logical :: l`
6			`equivalence (i, m)`
7			`equivalence (j, n)`
8			`i = 4`
9			`j = 8`
10			`l = .false.`
11			`!$omp parallel private (k) firstprivate (i) shared (j) num_threads (2) &`
12			`!$omp& reduction (.or.:l)`
13			`l = l .or. i .ne. 4`
14			`l = l .or. j .ne. 8`
15			`!$omp barrier`
16			`k = omp_get_thread_num ()`
17			`if (k .eq. 0) then`
18			`i = 14`
19			`j = 15`
20			`end if`
21			`!$omp barrier`
22			`if (k .eq. 1) then`
23			`if (i .ne. 4 .or. j .ne. 15) l = .true.`
24			`i = 24`
25			`j = 25`
26			`end if`
27			`!$omp barrier`
28			`if (j .ne. 25 .or. i .ne. (k * 10 + 14)) l = .true.`
29			`!$omp end parallel`
30			`if (l) call abort`
31			`if (j .ne. 25) call abort`
32			`end`