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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [gomp/] [pr39354.f90] - Blame information for rev 312

Line No.	Rev	Author	Line
1	302	jeremybenn	`! PR fortran/39354`
2			`! { dg-do compile }`
3			`! { dg-options "-fopenmp" }`
4			`SUBROUTINE ltest(l1, l2, l3, l4, r1, r2, r3, r4)`
5			`LOGICAL l1, l2, l3, l4, r1, r2, r3, r4`
6			`!$OMP ATOMIC`
7			`l1 = l1 .and. r1`
8			`!$OMP ATOMIC`
9			`l2 = l2 .or. r2`
10			`!$OMP ATOMIC`
11			`l3 = l3 .eqv. r3`
12			`!$OMP ATOMIC`
13			`l4 = l4 .neqv. r4`
14			`END`
15			`SUBROUTINE itest(l1, l2, l3, l4, l5, l6, l7, l8, l9, &`
16			`& r1, r2, r3, r4, r5, r6, r7, r8, r9)`
17			`INTEGER l1, l2, l3, l4, l5, l6, l7, l8, l9, &`
18			`& r1, r2, r3, r4, r5, r6, r7, r8, r9`
19			`!$OMP ATOMIC`
20			`l1 = l1 + r1`
21			`!$OMP ATOMIC`
22			`l2 = l2 - r2`
23			`!$OMP ATOMIC`
24			`l3 = l3 * r3`
25			`!$OMP ATOMIC`
26			`l4 = l4 / r4`
27			`!$OMP ATOMIC`
28			`l5 = max (l5, r1, r5)`
29			`!$OMP ATOMIC`
30			`l6 = min (r1, r6, l6)`
31			`!$OMP ATOMIC`
32			`l7 = iand (l7, r7)`
33			`!$OMP ATOMIC`
34			`l8 = ior (r8, l8)`
35			`!$OMP ATOMIC`
36			`l9 = ieor (l9, r9)`
37			`END`