Updated test.

interkosmos · Apr 11, 2024 · adc2fa3 · adc2fa3
1 parent 932ed9c
commit adc2fa3
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/test/test_sqlite3.f90 b/test/test_sqlite3.f90
@@ -216,6 +216,10 @@ program test_sqlite3
     ! Close SQLite handle.
     rc = sqlite3_close_v2(db)
     if (rc /= SQLITE_OK) stop 'sqlite3_close(): failed'
+
+    if (c_associated(db)) then
+        print '("warning: database handle still associated (this is probably a compiler bug)")'
+    end if
 contains
     integer function journal_mode_wal(db) result(rc)
         !! Enables WAL mode.