Fixes #706 - spurious failure due unassigned value in intent(out) argument.

14NGiestas · web-flow · commit 5e014753c35c · 2023-05-04T17:21:05.000-03:00
diff --git a/src/stdlib_io_npy_load.fypp b/src/stdlib_io_npy_load.fypp
@@ -122,7 +122,10 @@ contains
         character(len=8) :: header
         character :: buf(4)
         logical :: fortran_order
-
+        
+        ! stat should be zero by default, if no error occured
+        stat = 0
+        
         read(io, iostat=stat) header
         if (stat /= 0) return
 
