Skip to content

Commit 93d5bc6

Browse files
14NGiestasdegawa
andauthored
Fixes #706 - failure due unassigned value to a intent(out) variable.
Co-authored-by: degawa <[email protected]>
1 parent 2fdfab4 commit 93d5bc6

File tree

1 file changed

+4
-1
lines changed

1 file changed

+4
-1
lines changed

Diff for: src/stdlib_io_npy_load.fypp

+4-1
Original file line numberDiff line numberDiff line change
@@ -122,7 +122,10 @@ contains
122122
character(len=8) :: header
123123
character :: buf(4)
124124
logical :: fortran_order
125-
125+
126+
! stat should be zero by default, if no error occured
127+
stat = 0
128+
126129
read(io, iostat=stat) header
127130
if (stat /= 0) return
128131

0 commit comments

Comments
 (0)