fixed unassigned value to a intent(out) variable

fortran-lang · May 7, 2023 · 186c1ae · 186c1ae
1 parent c004bbe
commit 186c1ae
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/stdlib_io_npy_load.fypp b/src/stdlib_io_npy_load.fypp
@@ -185,6 +185,9 @@ contains
 
         integer :: minor
 
+        ! stat should be zero if no error occurred
+        stat = 0
+
         if (header(1:1) /= magic_number) then
             stat = 1
             msg = "Expected z'93' but got z'"//to_string(ichar(header(1:1)))//"' "//&