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
PR rtl-optimization/82913
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
execute
/
entry_8.f90
blob
c68d75af7689ae98ccec821beb973487bb94da8a
1
module
entry_8_m
2
type
t
3
integer
i
4
real
x
(
5
)
5
end type
t
6
end module
entry_8_m
7
8
function
f
(
i
)
9
use
entry_8_m
10
type
(
t
) ::
f
,
g
11
f
%
i
=
i
12
return
13
entry
g
(
x
)
14
g
%
x
=
x
15
end function
f
16
17
use
entry_8_m
18
type
(
t
) ::
f
,
g
,
res
19
20
res
=
f
(
42
)
21
if
(
res
%
i
/=
42
)
call
abort
()
22
res
=
g
(
1
.)
23
if
(
any
(
res
%
x
/=
1
.))
call
abort
()
24
end