fix: specify dim=1 in cshift

Author: gha3mi

src/forcolormap.f90

@@ -1038,7 +1038,7 @@ pure subroutine shift(self, sh)
         class(Colormap), intent(inout) :: self
         integer, intent(in) :: sh   !! The shift
 
-        self%map = cshift(self%map, sh)
+        self%map = cshift(self%map, sh, dim=1)
     end subroutine
 
     !> Extracts colors from the colormap based on specified number of levels (extractedLevels).

test/check.f90

@@ -978,7 +978,7 @@ subroutine test_044(id, nfail)
 
       call cm%create("custom", 0.0_wp, 2.0_wp, map)
 
-      ref = cshift(map, 1)
+      ref = cshift(map, 1, dim=1)
       call cm%shift(1)
 
       ok = .true.
@@ -1104,7 +1104,7 @@ subroutine test_049(id, nfail)
 
       call cm%create("custom", 0.0_wp, 2.0_wp, map)
 
-      ref = cshift(map, -1)
+      ref = cshift(map, -1, dim=1)
       call cm%shift(-1)
 
       ok = .true.
@@ -1260,22 +1260,22 @@ subroutine test_054(id, nfail)
 
       call cmap%create("discrete", 0.0_wp, 2.0_wp, test_colormap)
 
-      ref = cshift(test_colormap, 2)
+      ref = cshift(test_colormap, 2, dim=1)
       call cmap%shift(2)
       ok = .true.
       do i = 0, 6
          call cmap%get_RGB(i, r, g, b)
          ok = ok .and. (r == ref(i,1)) .and. (g == ref(i,2)) .and. (b == ref(i,3))
       end do
 
-      ref = cshift(ref, -1)
+      ref = cshift(ref, -1, dim=1)
       call cmap%shift(-1)
       do i = 0, 6
          call cmap%get_RGB(i, r, g, b)
          ok = ok .and. (r == ref(i,1)) .and. (g == ref(i,2)) .and. (b == ref(i,3))
       end do
 
-      ref = cshift(ref, -1)
+      ref = cshift(ref, -1, dim=1)
       call cmap%shift(-1)
       do i = 0, 6
          call cmap%get_RGB(i, r, g, b)
@@ -1576,7 +1576,7 @@ subroutine test_067(id, nfail)
 
       sh    = 100
       shmod = modulo(sh, cm%get_levels())
-      ref   = cshift(test_colormap, shmod)
+      ref   = cshift(test_colormap, shmod, dim=1)
 
       call cm%shift(sh)