OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
fortran/
[pf3gnuchains/gcc-fork.git]
/
gcc
/
testsuite
/
gfortran.dg
/
pure_byref_3.f90
1
! { dg-do run }
2
! PR 22607: External/module pure return-by-reference functions
3
4
pure function hoj()
5
integer :: hoj(3)
6
hoj = (/1, 2, 3/)
7
end function hoj
8
9
module huj_mod
10
contains
11
pure function huj()
12
integer :: huj(3)
13
huj = (/1, 2, 3/)
14
end function huj
15
end module huj_mod
16
17
program pure_byref_3
18
use huj_mod
19
implicit none
20
21
interface
22
pure function hoj()
23
integer :: hoj(3)
24
end function hoj
25
end interface
26
integer :: a(3)
27
28
a = huj()
29
if (.not. all(a == (/1, 2, 3/))) call abort()
30
31
a = hoj()
32
if (.not. all(a == (/1, 2, 3/))) call abort()
33
end program pure_byref_3
34
35
! { dg-final { cleanup-modules "huj_mod" } }