Added interface to sqlite3_log().

Author: interkosmos

src/sqlite.f90

@@ -216,6 +216,7 @@ module sqlite
     public :: sqlite3_libversion
     public :: sqlite3_libversion_
     public :: sqlite3_libversion_number
+    public :: sqlite3_log
     public :: sqlite3_open
     public :: sqlite3_open_
     public :: sqlite3_prepare
@@ -606,6 +607,14 @@ subroutine sqlite3_free(ptr) bind(c, name='sqlite3_free')
             type(c_ptr), intent(in), value :: ptr
         end subroutine sqlite3_free
 
+        ! void sqlite3_log(int iErrCode, const char *zFormat, ...)
+        subroutine sqlite3_log(ierr_code, zformat) bind(c, name='sqlite3_log')
+            import :: c_char, c_int
+            implicit none
+            integer(kind=c_int),    intent(in), value :: ierr_code
+            character(kind=c_char), intent(in)        :: zformat
+        end subroutine sqlite3_log
+
         ! void sqlite3_str_append(sqlite3_str *str, const char *zIn, int N)
         subroutine sqlite3_str_append(str, zin, n) bind(c, name='slqite3_str_append')
             import :: c_char, c_int, c_ptr

test/test_sqlite.f90

@@ -88,6 +88,7 @@ program test_sqlite
     use, intrinsic :: iso_c_binding
     use :: sqlite
     use :: callbacks
+    implicit none (type, external)
     character(len=*), parameter :: DB_FILE  = 'test.db'
     character(len=*), parameter :: DB_TABLE = 'test_table'
 
@@ -111,6 +112,9 @@ program test_sqlite
     rc = sqlite3_open(DB_FILE, db)
     if (rc /= SQLITE_OK) stop 'sqlite3_open(): failed'
 
+    ! Testing logging.
+    call sqlite3_log(1, 'TEST LOG' // c_null_char)
+
     ! Enable WAL mode.
     print '("Turning WAL mode on ...")'
     rc = journal_mode_wal(db)