Initialize integer to make sure

minhqdao · Jul 31, 2024 · 968e023 · 968e023
1 parent b13208f
commit 968e023
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/run_f.f90 b/src/run_f.f90
@@ -90,6 +90,7 @@ function run(cmd, has_error, print_cmd) result(str)
       str = str//c2f(line)
     end do
 
+    istat = 0
     istat = pclose(handle)
     if (present(has_error)) has_error = istat /= 0
   end