program hi
character(5) :: w
interface
subroutine greet(hello, world)
character(*), intent(in) :: hello, world
end subroutine greet
subroutine world(w)
character(*), intent(out) :: w
end subroutine world
end interface
call world(w)
call greet('Hello', w)
end program hi
