fixed 32bit integer overflow

Author: degawa

src/stdlib_io_npy_load.fypp

@@ -136,7 +136,7 @@ contains
             header_len = ichar(buf(1)) &
                 &      + ichar(buf(2)) * 2**8 &
                 &      + ichar(buf(3)) * 2**16 &
-                &      + ichar(buf(4)) * 2**32
+                &      + ichar(buf(4)) * 2**24
         else
             header_len = ichar(buf(1)) &
                 &      + ichar(buf(2)) * 2**8

src/stdlib_io_npy_save.fypp

@@ -62,8 +62,8 @@ contains
 
         str = achar(mod(val, 2**8)) // &
             & achar(mod(val, 2**16) / 2**8) // &
-            & achar(mod(val, 2**32) / 2**16) // &
-            & achar(val / 2**32)
+            & achar(mod(val, 2**24) / 2**16) // &
+            & achar(val / 2**24)
     end function to_bytes_i4