From 186c1ae951b7a934bec99da7d7e860bc97e87e98 Mon Sep 17 00:00:00 2001
From: Tomohiro Degawa <degawa.tomohiro@gmail.com>
Date: Sun, 7 May 2023 13:22:04 +0900
Subject: [PATCH] fixed unassigned value to a intent(out) variable

---
 src/stdlib_io_npy_load.fypp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/stdlib_io_npy_load.fypp b/src/stdlib_io_npy_load.fypp
index 05c82b1a5..389f24cd2 100644
--- 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)))//"' "//&