diff --git a/src/fortran.cpp b/src/fortran.cpp
index 376d62d..d831dc5 100644
--- a/src/fortran.cpp
+++ b/src/fortran.cpp
@@ -139,6 +139,8 @@ void UnformattedRead::beginCheckpoint(bool bufferRecord)
 
 void UnformattedRead::endCheckpoint(bool autodrop)
 {
+  bool always_fail = false;
+
   if (recordBuffer != 0) {
     delete[] recordBuffer;
     recordBuffer = 0;