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-3.f90
blob
94da51e4fc3437e7420d4494fc9ffa6312232fa0
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:4))
9
p
=>
A
10
!$omp target map(p(8:27)) map(A(1:4))
11
A
(
3
) =
777
12
p
(
9
) =
777
13
!$omp end target
14
!$omp end target data
15
if
(
A
(
3
) /=
777
.
or
.
A
(
9
) /=
777
)
call
abort
16
end subroutine
17
end