repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
[4/n] PR85694: Remove redundant calls to types_compatible_p
[official-gcc.git]
/
libgomp
/
testsuite
/
libgomp.oacc-fortran
/
data-2.f90
blob
22525b8f59ed57285243a25f47cd27e425babdc8
1
! { dg-do run }
2
3
program
test
4
integer
,
parameter
::
N
=
8
5
real
,
allocatable
::
a
(:,:),
b
(:,:)
6
7
allocate
(
a
(
N
,
N
))
8
allocate
(
b
(
N
,
N
))
9
10
a
(:,:) =
3.0
11
b
(:,:) =
0.0
12
13
!$acc enter data copyin (a(1:N,1:N), b(1:N,1:N))
14
15
!$acc parallel
16
do
i
=
1
,
n
17
do
j
=
1
,
n
18
b
(
j
,
i
) =
a
(
j
,
i
)
19
end do
20
end do
21
!$acc end parallel
22
23
!$acc exit data copyout (a(1:N,1:N), b(1:N,1:N))
24
25
do
i
=
1
,
n
26
do
j
=
1
,
n
27
if
(
a
(
j
,
i
) .
ne
.
3.0
)
STOP
1
28
if
(
b
(
j
,
i
) .
ne
.
3.0
)
STOP
2
29
end do
30
end do
31
end program
test