Merge pull request #711 from degawa/fix-stat-in-parse_header

fixed unassigned value to a intent(out) variable in `parse_header`
fortran-lang · May 7, 2023 · 061512e · 061512e
2 parents c004bbe + 186c1ae
commit 061512e
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)))//"' "//&