diff --git a/src/types.f90 b/src/types.f90
index b4f7fc1..0be5bd0 100644
--- a/src/types.f90
+++ b/src/types.f90
@@ -204,6 +204,7 @@ contains
     character(len=len(self%title) + 4) :: filepath_
     character(len=10) :: fmt
 
+    error = 0
     if (self%empty()) return
 
     ! set default file name