Reset checkpoint on seek

2016-01-28 16:08:54 +01:00 · 2016-01-28 16:08:54 +01:00 · f2e015b1fb
commit f2e015b1fb
parent 3e775180fa
1 changed files with 1 additions and 0 deletions
--- a/src/fortran.cpp
+++ b/src/fortran.cpp
@ -79,6 +79,7 @@ int64_t UnformattedRead::position() const
 void UnformattedRead::seek(int64_t pos)
 {
  f->seekg(pos, istream::beg);
+  checkPointRef = checkPointAccum = 0;
 }

 // Todo implement primitive description