fixed an uninitialized variable issue in get_current_line_from_file_stream

Author: jacobwilliams

src/json_value_module.F90

@@ -10064,6 +10064,7 @@ subroutine get_current_line_from_file_stream(json,iunit,line)
     integer(IK)              :: iend    !! end position of current line
     integer(IK)              :: ios     !! file read `iostat` code
     character(kind=CK,len=1) :: c       !! a character read from the file
+    logical                  :: done    !! flag to exit the loop
 
     istart = json%ipos
     do
@@ -10072,7 +10073,9 @@ subroutine get_current_line_from_file_stream(json,iunit,line)
             exit
         end if
         read(iunit,pos=istart,iostat=ios) c
-        if (c==newline .or. ios/=0) then
+        done = ios /= 0_IK
+        if (.not. done) done = c==newline
+        if (done) then
             if (istart/=1) istart = istart - 1
             exit
         end if