@@ -196,6 +196,8 @@ module sqlite3
196196 public :: sqlite3_bind_text_
197197 public :: sqlite3_busy_handler
198198 public :: sqlite3_busy_timeout
199+ public :: sqlite3_changes
200+ public :: sqlite3_changes64
199201 public :: sqlite3_clear_bindings
200202 public :: sqlite3_close
201203 public :: sqlite3_close_
@@ -431,6 +433,22 @@ function sqlite3_busy_timeout(db, ms) bind(c, name='sqlite3_busy_timeout')
431433 integer (kind= c_int) :: sqlite3_busy_timeout
432434 end function sqlite3_busy_timeout
433435
436+ ! int sqlite3_changes(sqlite3 *db)
437+ function sqlite3_changes (db ) bind(c, name= ' sqlite3_changes' )
438+ import :: c_int, c_ptr
439+ implicit none
440+ type (c_ptr), intent (in ), value :: db
441+ integer (kind= c_int) :: sqlite3_changes
442+ end function sqlite3_changes
443+
444+ ! sqlite3_int64 sqlite3_changes64(sqlite3 *db)
445+ function sqlite3_changes64 (db ) bind(c, name= ' sqlite3_changes64' )
446+ import :: c_int64_t, c_ptr
447+ implicit none
448+ type (c_ptr), intent (in ), value :: db
449+ integer (kind= c_int64_t) :: sqlite3_changes64
450+ end function sqlite3_changes64
451+
434452 ! int sqlite3_clear_bindings(sqlite3_stmt *stmt)
435453 function sqlite3_clear_bindings (stmt ) bind(c, name= ' sqlite3_clear_bindings' )
436454 import :: c_int, c_ptr
0 commit comments