Sign in
llvm
/
llvm-archive
/
cfaec05de39adb34392b8c7b1ad4b32abbf3663d
/
.
/
llvm-gcc-4.2
/
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