1 files changed, 3 insertions, 0 deletions

diff --git a/files.f90 b/files.f90
index 0ca43a6..b30c436 100644
--- a/files.f90
+++ b/files.f90
@@ -50,6 +50,9 @@ contains
         allocate(character(len=length) :: res)
         res = repeat(' ', length)
         
+        ! Rewind seems necessary, especially on non-Windows...
+        rewind(unit_number)
+        
         read(unit_number, '(A1)', pos=startpos, advance='no', iostat=iostatus) c
         if(iostatus == 0) then
             res(1:1) = c