Using Shroud to generate the interface automatically about symengine.f90 HOT 5 OPEN

On Mon, Sep 28, 2020, at 7:52 PM, Ivan wrote: Out of curiosity I pulled together the interface routines needed to run the following program: module small_test use symengine_cwrapper use iso_c_binding implicit none contains function c_char_ptr_to_fstring(c_char_ptr) result(fc) type(c_ptr) :: c_char_ptr character(len=:,kind=c_char), allocatable :: fc character(len=1000,kind=c_char), pointer :: f_string if (.not. c_associated(c_char_ptr)) then fc = "" else call c_f_pointer(c_char_ptr,f_string) fc = f_string(1:index(f_string,c_null_char)) end if end function subroutine f(i) integer(c_long), intent(in) :: i type(c_ptr) :: s = c_null_ptr ! string type(c_ptr) :: x = c_null_ptr type(c_ptr) :: y = c_null_ptr type(c_ptr) :: e = c_null_ptr type(c_ptr) :: n = c_null_ptr type(c_ptr) :: exception = c_null_ptr print *, "Symengine version: "//c_char_ptr_to_fstring(symengine_version()) call basic_new_stack(x) call basic_new_stack(y) call basic_new_stack(e) call basic_new_stack(n) exception = symbol_set(x,"x"//c_null_char) exception = symbol_set(y,"y"//c_null_char) exception = integer_set_si(n, i); exception = basic_mul(e, n, x); exception = basic_add(e, e, y); s = basic_str(e) print *, "Result: ", c_char_ptr_to_fstring(s) call basic_str_free(s) s = c_null_ptr print *, c_associated(s), c_char_ptr_to_fstring(s) call basic_free_stack(x) call basic_free_stack(y) call basic_free_stack(e) call basic_free_stack(n) end subroutine end module program small_test_program use small_test use iso_c_binding implicit none call f(5_c_long) end program (Note: the `symengine_wrapper` module is not included because I have some mistakes left). After figuring out all the libraries needed to install symengine, I was able to compile the example using: `gfortran -Wall -c symengine_cwrapper.f90 gfortran -Wall -c test_symengine.f90 gfortran -o test_symengine -I/usr/local/include/symengine symengine_cwrapper.o test_symengine.o -L/usr/local/lib -lsymengine -lteuchos -lstdc++ -lmpfr -lgmp -lbfd ` And finally, the result of the program: `$ ./test_symengine Symengine version: 0.6.0 Result: 5*x + y F ` — You are receiving this because you commented. Reply to this email directly, view it on GitHub <#3 (comment)>, or unsubscribe <https://github.com/notifications/unsubscribe-auth/AAAFAWCXC4SPA7OOFS3KBBLSIE4WRANCNFSM4R4XAFYQ>.