Added iso_fortran_env types.

Author: interkosmos

src/sqlite.f90

@@ -6,6 +6,7 @@
 ! Licence: ISC
 module sqlite
     use, intrinsic :: iso_c_binding
+    use, intrinsic :: iso_fortran_env, only: i8 => int64
     use :: sqlite_util
     implicit none (type, external)
     private
@@ -649,7 +650,7 @@ function sqlite3_bind_text(stmt, idx, val, destructor)
         type(c_ptr),      intent(inout)        :: stmt
         integer,          intent(in)           :: idx
         character(len=*), intent(in)           :: val
-        integer(kind=8),  intent(in), optional :: destructor
+        integer(kind=i8), intent(in), optional :: destructor
         integer                                :: sqlite3_bind_text
 
         if (present(destructor)) then

src/sqlite_util.f90

@@ -6,6 +6,7 @@
 ! Licence: ISC
 module sqlite_util
     use, intrinsic :: iso_c_binding
+    use, intrinsic :: iso_fortran_env, only: i8 => int64, r8 => real64
     implicit none (type, external)
     private
 
@@ -26,7 +27,7 @@ end function c_strlen
     pure function copy(a)
         character, intent(in)  :: a(:)
         character(len=size(a)) :: copy
-        integer(kind=8)        :: i
+        integer(kind=i8)       :: i
 
         do i = 1, size(a)
             copy(i:i) = a(i)
@@ -37,7 +38,7 @@ subroutine c_f_str_ptr(c_str, f_str)
         type(c_ptr),                   intent(in)  :: c_str
         character(len=:), allocatable, intent(out) :: f_str
         character(kind=c_char), pointer            :: ptrs(:)
-        integer(kind=8)                            :: sz
+        integer(kind=i8)                           :: sz
 
         if (.not. c_associated(c_str)) return
         sz = c_strlen(c_str)