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
[C++ PATCH] Deprecate -ffriend-injection
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
func_result_1.f90
blob
51f5cd4ca9ee96a31e598c639843237fdb0d9f11
1
! { dg-do run }
2
! From PR 19673 : We didn't dereference the result from POINTER
3
! functions with a RESULT clause
4
program
ret_ptr
5
if
(
foo
(
99
) /=
bar
(
99
))
call
abort
()
6
contains
7
function
foo
(
arg
)
result
(
ptr
)
8
integer
::
arg
9
integer
,
pointer
::
ptr
10
allocate
(
ptr
)
11
ptr
=
arg
12
end function
foo
13
function
bar
(
arg
)
14
integer
::
arg
15
integer
,
pointer
::
bar
16
allocate
(
bar
)
17
bar
=
arg
18
end function
bar
19
end program
ret_ptr