Add support for LLVM 20.

Author: interkosmos

Makefile

@@ -9,10 +9,10 @@ PREFIX  = /usr/local
 DEBUG   = -g -O0 -Wall
 RELEASE = -O2 -march=native
 
-CFLAGS  = $(RELEASE)
+CFLAGS  = $(RELEASE) -I$(PREFIX)/include
 FFLAGS  = $(RELEASE)
 PPFLAGS = -DSQLITE_ENABLE_COLUMN_METADATA=0
-LDFLAGS = -I$(PREFIX)/include -L$(PREFIX)/lib
+LDFLAGS = -L$(PREFIX)/lib
 LDLIBS  = -lsqlite3
 ARFLAGS = rcs
 INCDIR  = $(PREFIX)/include/libfortran-sqlite3

README.md

@@ -37,8 +37,8 @@ $ git clone --depth 1 https://github.com/interkosmos/fortran-sqlite3
 $ cd fortran-sqlite3/
 ```
 
-Either build the library with `fpm` or `make`. Once compiled, link your Fortran
-application against `libfortran-sqlite3.a` and `-lsqlite3`.
+Either build the library with _fpm(1)_ or _make(1)_. Once compiled, link your
+Fortran application against `libfortran-sqlite3.a` and `-lsqlite3`.
 
 ### Fortran Package Manager
 
@@ -50,7 +50,7 @@ $ fpm build --profile release
 
 The output files are written to `build/`.
 
-### make
+### Make
 
 Execute the provided `Makefile`:
 
@@ -178,8 +178,8 @@ contains
 end program example
 ```
 
-If the library is installed to `/opt`, then compile, link, and run the example
-with:
+If the library has been installed to `/opt`, then compile, link, and run the
+example with:
 
 ```
 $ gfortran -I/opt/include/libfortran-sqlite3 -o example example.f90 /opt/lib/libfortran-sqlite3.a -lsqlite3

src/sqlite3.F90

@@ -10,7 +10,15 @@ module sqlite3
     implicit none (type, external)
     private
 
-    integer, parameter :: c_unsigned_int = c_int
+#if defined (__flang__)
+
+    public :: c_unsigned
+
+#else
+
+    integer, parameter :: c_unsigned = c_int
+
+#endif
 
     integer(kind=c_int), parameter, public :: SQLITE_INTEGER = 1
     integer(kind=c_int), parameter, public :: SQLITE_FLOAT   = 2
@@ -750,15 +758,15 @@ end function sqlite3_prepare_v2_
 
         ! int sqlite3_prepare_v3(sqlite3 *db, const char *sql, int nbyte, unsigned int prepFlags, sqlite3_stmt **stmt, const char **tail)
         function sqlite3_prepare_v3_(db, sql, nbyte, prep_flags, stmt, tail) bind(c, name='sqlite3_prepare_v3')
-            import :: c_char, c_int, c_ptr, c_unsigned_int
-            implicit none
-            type(c_ptr),                  intent(in), value :: db
-            character(kind=c_char),       intent(in)        :: sql
-            integer(kind=c_int),          intent(in), value :: nbyte
-            integer(kind=c_unsigned_int), intent(in), value :: prep_flags
-            type(c_ptr),                  intent(inout)     :: stmt
-            type(c_ptr),                  intent(in)        :: tail
-            integer(kind=c_int)                             :: sqlite3_prepare_v3_
+            import :: c_char, c_int, c_ptr, c_unsigned
+            implicit none
+            type(c_ptr),              intent(in), value :: db
+            character(kind=c_char),   intent(in)        :: sql
+            integer(kind=c_int),      intent(in), value :: nbyte
+            integer(kind=c_unsigned), intent(in), value :: prep_flags
+            type(c_ptr),              intent(inout)     :: stmt
+            type(c_ptr),              intent(in)        :: tail
+            integer(kind=c_int)                         :: sqlite3_prepare_v3_
         end function sqlite3_prepare_v3_
 
         ! int sqlite3_reset(sqlite3_stmt *stmt)
@@ -950,6 +958,7 @@ end subroutine sqlite3_str_reset
     end interface
 
 #if SQLITE_ENABLE_COLUMN_METADATA
+
     interface
         ! const char *sqlite3_column_database_name(sqlite3_stmt *stmt, int icol)
         function sqlite3_column_database_name_(stmt, icol) bind(c, name='sqlite3_column_database_name')
@@ -978,6 +987,7 @@ function sqlite3_column_table_name_(stmt, icol) bind(c, name='sqlite3_column_tab
             type(c_ptr)                            :: sqlite3_column_table_name_
         end function sqlite3_column_table_name_
     end interface
+
 #endif
 contains
     type(c_ptr) function sqlite3_backup_init(dest, dest_name, source, source_name) result(ptr)
@@ -1250,6 +1260,7 @@ subroutine sqlite3_log(ierr_code, str)
     end subroutine sqlite3_log
 
 #if SQLITE_ENABLE_COLUMN_METADATA
+
     function sqlite3_column_database_name(stmt, icol) result(name)
         type(c_ptr), intent(inout)    :: stmt
         integer,     intent(in)       :: icol
@@ -1279,5 +1290,6 @@ function sqlite3_column_table_name(stmt, icol) result(name)
         ptr = sqlite3_column_table_name_(stmt, icol)
         call c_f_str_ptr(ptr, name)
     end function sqlite3_column_table_name
+
 #endif
 end module sqlite3