Listing 8

subroutine foo( i )
integer  i
write(*,*) 'In Fortran'
write(*,*) i
return
end subroutine foo