From f2e015b1fb5de7b23e45d0db1955fb6c97593943 Mon Sep 17 00:00:00 2001
From: Guilhem Lavaux <lavaux@iap.fr>
Date: Thu, 28 Jan 2016 16:08:54 +0100
Subject: [PATCH] Reset checkpoint on seek

---
 src/fortran.cpp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/fortran.cpp b/src/fortran.cpp
index e497ff1..679f409 100644
--- 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