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
Add support for ARMv8-R architecture
[official-gcc.git]
/
libgomp
/
testsuite
/
libgomp.fortran
/
examples-4
/
array_sections-4.f90
blob
6eb9bc1e5c33a4f57ae704efabeff153507c20b9
1
! { dg-do run }
2
3
call
foo
()
4
contains
5
subroutine
foo
()
6
integer
,
target
::
A
(
30
)
7
integer
,
pointer
::
p
(:)
8
!$omp target data map(A(1:10))
9
p
=>
A
10
!$omp target map(p(4:10)) map(A(1:10))
11
A
(
3
) =
777
12
p
(
9
) =
777
13
A
(
9
) =
999
14
!$omp end target
15
!$omp end target data
16
if
(
A
(
3
) /=
777
.
or
.
A
(
9
) /=
999
)
call
abort
17
end subroutine
18
end