2,652
edits
LIB: Difference between revisions
→Glue code: make strlen a 64bit integer !
(→Client code example: little enhancements and better comments in test_generic_client.f90 code) |
(→Glue code: make strlen a 64bit integer !) |
||
| Line 260: | Line 260: | ||
interface ! strlen is a standard C function from <string.h> | interface ! strlen is a standard C function from <string.h> | ||
function strlen(string) result(len) bind(C,name="strlen") | integer(int64) function strlen(string) result(len) bind(C,name="strlen") | ||
use iso_fortran_env, only : int64 | |||
use iso_c_binding | use iso_c_binding | ||
type(c_ptr), value :: string ! a C pointer | type(c_ptr), value :: string ! a C pointer | ||