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
* config/i386/i386.md (paritydi2, paritysi2): New expanders.
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
pure_byref_2.f90
blob
805653e2ed3d6099c929a1dfce41693ba92ed304
1
! { dg-do run }
2
! PR 22607: PURE return-by-reference functions
3
program
main
4
implicit none
5
integer
,
dimension
(
2
) ::
b
6
b
=
fun
(
size
(
b
))
7
if
(
b
(
1
) /=
1
.
or
.
b
(
2
) /=
2
)
call
abort
()
8
contains
9
pure
function
fun
(
n
)
10
integer
,
intent
(
in
) ::
n
11
integer
::
fun
(
n
)
12
integer
::
i
13
do
i
=
1
,
n
14
fun
(
i
) =
i
15
end do
16
end function
fun
17
end program
main