updating to use is_iostat_end in test_read_input_nml.F90

NOAA-GFDL · Jul 28, 2023 · d48ad25 · d48ad25
1 parent 405c923
commit d48ad25
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/test_fms/mpp/test_read_input_nml.F90 b/test_fms/mpp/test_read_input_nml.F90
@@ -68,7 +68,7 @@ program test_read_input_nml
   n = 1
   do
     read(1, '(A)', iostat=stat) line
-    if (stat < 0) then
+    if (is_iostat_end(stat)) then
       exit
     end if
     if (input_nml_file(n).ne.line) then