diff options
Diffstat (limited to 'captain/sqlite.f90')
-rw-r--r-- | captain/sqlite.f90 | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/captain/sqlite.f90 b/captain/sqlite.f90 index 6bad946..f9bc5b4 100644 --- a/captain/sqlite.f90 +++ b/captain/sqlite.f90 @@ -173,6 +173,7 @@ implicit none procedure::column_text => stmt_column_text procedure::column_type => stmt_column_type procedure::column_text_length => stmt_column_text_length + procedure::column_is_null => stmt_column_is_null end type @@ -357,6 +358,17 @@ contains end function stmt_column_type + function stmt_column_is_null(self, i) + implicit none + + class(sqlite3_stmt), intent(inout)::self + integer, intent(in)::i + logical::stmt_column_is_null + + stmt_column_is_null = (sqlite3_column_type(self%stmt, i) == SQLITE_NULL) + + end function stmt_column_is_null + subroutine stmt_column_text(self, i, res) implicit none |