Added sqlite3_finalize() wrapper.

Author: interkosmos

README.md

@@ -23,7 +23,7 @@ application against `libfortran-sqlite3.a` and `-lsqlite3`.
 Simply execute the Fortran Package Manager:
 
 ```
-$ fpm build --profile release
+$ fpm build --profile=release
 ```
 
 The output files are written to `build/`.

src/sqlite.f90

@@ -169,6 +169,7 @@ module sqlite
     public :: sqlite3_exec
     public :: sqlite3_exec_
     public :: sqlite3_finalize
+    public :: sqlite3_finalize_
     public :: sqlite3_free
     public :: sqlite3_initialize
     public :: sqlite3_last_insert_rowid
@@ -398,12 +399,12 @@ function sqlite3_exec_(db, sql, callback, client_data, errmsg) bind(c, name='sql
         end function sqlite3_exec_
 
         ! int sqlite3_finalize(sqlite3_stmt *stmt)
-        function sqlite3_finalize(stmt) bind(c, name='sqlite3_finalize')
+        function sqlite3_finalize_(stmt) bind(c, name='sqlite3_finalize')
             import :: c_int, c_ptr
             implicit none
             type(c_ptr), intent(in), value :: stmt
-            integer(kind=c_int)            :: sqlite3_finalize
-        end function sqlite3_finalize
+            integer(kind=c_int)            :: sqlite3_finalize_
+        end function sqlite3_finalize_
 
         ! int sqlite3_initialize(void)
         function sqlite3_initialize() bind(c, name='sqlite3_initialize')
@@ -723,6 +724,14 @@ function sqlite3_exec(db, sql, callback, client_data, errmsg)
         if (present(errmsg)) call c_f_str_ptr(ptr, errmsg)
     end function sqlite3_exec
 
+    function sqlite3_finalize(stmt)
+        type(c_ptr), intent(inout) :: stmt
+        integer                    :: sqlite3_finalize
+
+        sqlite3_finalize = sqlite3_finalize_(stmt)
+        if (sqlite3_finalize == SQLITE_OK) stmt = c_null_ptr
+    end function sqlite3_finalize
+
     function sqlite3_libversion()
         type(c_ptr)                   :: ptr
         character(len=:), allocatable :: sqlite3_libversion