Deploying to stdlib-fpm from @ 5ad2837 🚀

Author: milancurcic

src/stdlib_io_npy_load.f90

@@ -2683,12 +2683,12 @@ subroutine get_descriptor(io, filename, vtype, vshape, stat, msg)
 
         if (major > 1) then
             header_len = ichar(buf(1)) &
-                &      + ichar(buf(2)) * 2**8 &
-                &      + ichar(buf(3)) * 2**16 &
-                &      + ichar(buf(4)) * 2**32
+                &      + ichar(buf(2)) * 256**1 &
+                &      + ichar(buf(3)) * 256**2 &
+                &      + ichar(buf(4)) * 256**3
         else
             header_len = ichar(buf(1)) &
-                &      + ichar(buf(2)) * 2**8
+                &      + ichar(buf(2)) * 256**1
         end if
         allocate(character(header_len) :: dict, stat=stat)
         if (stat /= 0) return

src/stdlib_io_npy_save.f90

@@ -57,10 +57,10 @@ pure function to_bytes_i4(val) result(str)
         !> String of bytes
         character(len=4) :: str
 
-        str = achar(mod(val, 2**8)) // &
-            & achar(mod(val, 2**16) / 2**8) // &
-            & achar(mod(val, 2**32) / 2**16) // &
-            & achar(val / 2**32)
+        str = achar(mod(val, 256**1)) // &
+            & achar(mod(val, 256**2) / 256**1) // &
+            & achar(mod(val, 256**3) / 256**2) // &
+            & achar(val / 256**3)
     end function to_bytes_i4