Sign in
gnu
/
gcc
/
a6d3012b274f38b20e2a57162106f625746af6c6
/
.
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
execute
/
entry_10.f90
blob: 289265d96ad92c19f9f21cbc56a5f425b99d31f1 [
file
] [
log
] [
blame
]
function
foo
()
foo
=
4
foo
=
foo
/
2
return
entry bar
()
bar
=
9
bar
=
bar
/
3
end
program entrytest
if
(
foo
()
.
ne
.
2
)
STOP
1
if
(
bar
()
.
ne
.
3
)
STOP
2
end