program test use iso_c_binding, only: c_ptrdiff_t end program