|
6 | 6 | ! Licence: ISC |
7 | 7 | module sqlite3 |
8 | 8 | use, intrinsic :: iso_c_binding |
9 | | - use, intrinsic :: iso_fortran_env, only: i8 => int64 |
10 | 9 | use :: sqlite3_util |
11 | 10 | implicit none (type, external) |
12 | 11 | private |
@@ -945,14 +944,14 @@ end function sqlite3_bind_parameter_index |
945 | 944 | function sqlite3_bind_text(stmt, idx, val, destructor) |
946 | 945 | !! Binds text to column. This wrapper passes destructor |
947 | 946 | !! `SQLITE_TRANSIENT` by default! |
948 | | - type(c_ptr), intent(inout) :: stmt |
949 | | - integer, intent(in) :: idx |
950 | | - character(len=*), intent(in) :: val |
951 | | - integer(kind=i8), intent(in), optional :: destructor |
952 | | - integer :: sqlite3_bind_text |
| 947 | + type(c_ptr), intent(inout) :: stmt |
| 948 | + integer, intent(in) :: idx |
| 949 | + character(len=*), intent(in) :: val |
| 950 | + integer(kind=c_size_t), intent(in), optional :: destructor |
| 951 | + integer :: sqlite3_bind_text |
953 | 952 |
|
954 | 953 | if (present(destructor)) then |
955 | | - sqlite3_bind_text = sqlite3_bind_text_(stmt, idx, val, len(val), int(destructor, kind=c_size_t)) |
| 954 | + sqlite3_bind_text = sqlite3_bind_text_(stmt, idx, val, len(val), destructor) |
956 | 955 | return |
957 | 956 | end if |
958 | 957 |
|
|
0 commit comments