7 REAL :: val(5) = (/ 1.0,2.0,3.0,4.0,5.0 /)
8 handle = fvhcall_install(
'./libvhcall.so')
10 sym = fvhcall_find(handle,
'VH_SBR')
11 ca = fvhcall_args_alloc()
14 WRITE(*,*)
"VH subroutine INPUT > ",val
15 ir = fvhcall_invoke_with_args(sym, ca)
17 WRITE(*,*)
"Fail to invoke subroutine"
20 WRITE(*,*)
"VH subroutine OUTPUT> ",val
22 sym = fvhcall_find(handle,
'VH_MOD::VH_FUNC')
23 CALL fvhcall_args_clear(ca)
24 ir = fvhcall_invoke_with_args(sym, ca, retval)
26 WRITE(*,*)
"Fail to invoke function"
29 WRITE(*,*)
"VH function return ",retval
30 CALL fvhcall_args_free(ca)
31 ir = fvhcall_uninstall(handle)