Sign in
gnu
/
gcc
/
e5cfb9cac1d7aba9a8ea73bfe7922cfaff9d61f3
/
.
/
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