Sign in
android
/
toolchain
/
gcc
/
donut
/
.
/
gcc-4.3.1
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
execute
/
entry_10.f90
blob: 0c21d76e30366de483c24759302a5b692f0ebfcb [
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
)
call abort
()
if
(
bar
()
.
ne
.
3
)
call abort
()
end