diff --git a/example/demo_color.f90 b/example/demo_color.f90
index 0c50cf0f..ab65e975 100644
--- a/example/demo_color.f90
+++ b/example/demo_color.f90
@@ -59,7 +59,7 @@ program demo_color
 
 
    ! Set the color using a decimal value
-   call custom_color%set(name='custom_color', decimal=16088896)
+   call custom_color%set(name='custom_color', decimal=16088896_ik)
 
    ! Convert the color to other color spaces
    call custom_color%convert('decimal2all')
diff --git a/src/forcolor.f90 b/src/forcolor.f90
index c95f7a23..457c7ee5 100644
--- a/src/forcolor.f90
+++ b/src/forcolor.f90
@@ -775,7 +775,7 @@ end subroutine cmyk_to_rgb
    !> author: Seyed Ali Ghasemi
    elemental pure subroutine hsv_to_rgb(h, s, v, r, g, b)
       real(rk), intent(in) :: h, s, v
-      integer, intent(out) :: r, g, b
+      integer(ik), intent(out) :: r, g, b
       real(rk) :: c, h_prime, x, m
       real(rk) :: h_dash, r1, g1, b1
 
@@ -872,7 +872,7 @@ end subroutine rgb_to_hsv
    !===============================================================================
    !> author: Seyed Ali Ghasemi
    elemental pure subroutine rgb_to_hsl(r, g, b, h, s, l)
-      integer, intent(in) :: r, g, b
+      integer(ik), intent(in) :: r, g, b
       real(rk), intent(out) :: h, s, l
       real(rk) :: rn, gn, bn
       real(rk) :: cmax, cmin
diff --git a/test/test26.f90 b/test/test26.f90
index 6c5d6181..13313e3e 100644
--- a/test/test26.f90
+++ b/test/test26.f90
@@ -65,7 +65,7 @@ program example26
 
 
    ! Set the color using a decimal value
-   call custom_color%set(name='custom_color', decimal=16088896)
+   call custom_color%set(name='custom_color', decimal=16088896_ik)
 
    ! Convert the color to other color spaces
    call custom_color%convert('decimal2all')
diff --git a/test/test27.f90 b/test/test27.f90
index b8a9429e..58833fb0 100644
--- a/test/test27.f90
+++ b/test/test27.f90
@@ -1,11 +1,11 @@
 program example27
 
-   use forimage, only: color
+   use forimage, only: ik, color
    implicit none
 
    type(color) :: custom_color, nearest_color
 
-   call custom_color%set(name='custom_color', decimal=16711680)
+   call custom_color%set(name='custom_color', decimal=16711680_ik)
 
    print'(a)', 'Find the nearest color to the custom color'
    call custom_color%convert('decimal2rgb')