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
Unsigned constants for ISO_FORTRAN_ENV and ISO_C_BINDING.
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
gomp
/
crayptr5.f90
blob
460a7d38fa0f3d6f9a6e5488669f85fff4672ba5
1
! { dg-do compile }
2
! { dg-options "-fopenmp -fcray-pointer" }
3
!
4
! PR fortran/43985
5
6
subroutine
pete
(
A
)
7
real
(
8
) ::
A
8
print
*,
'pete got '
,
A
9
if
(
A
/=
3.0
)
STOP
1
10
end subroutine
pete
11
12
subroutine
bob
()
13
implicit none
14
real
(
8
)
peted
15
pointer
(
ipeted
,
peted
(*))
16
integer
(
4
)
sz
17
ipeted
=
malloc
(
5
*
8
)
18
peted
(
1
:
5
) = [
1
.,
2
.,
3
.,
4
.,
5
.]
19
sz
=
3
20
!$omp parallel default(shared)
21
call
pete
(
peted
(
sz
))
22
!$omp end parallel
23
return
24
end subroutine
bob
25
26
call
bob
()
27
end