Workaround to prevent double initialization of CUTEst

abelsiqueira · Feb 16, 2015 · 6412f63 · 6412f63
1 parent 9c0a807
commit 6412f63
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/CUTEst.jl b/src/CUTEst.jl
@@ -12,6 +12,8 @@ type CUTEstModel
   initialized :: Bool;
 end
 
+global csetup_calls = 0
+
 cint(n)     = convert(Cint, n)
 cdouble(n)  = convert(Cdouble, n)
 
@@ -63,6 +65,10 @@ end
 
 # Initialize problem.
 function CUTEstModel(name :: ASCIIString; raw :: Bool = false)
+  @eval csetup_calls += 1;
+  if csetup_calls > 1
+    throw("CUTEst cannot be initialized a second time. See https://github.com/optimizers/CUTEst.jl/issues/4.")
+  end
   libname = sifdecoder(name, raw=raw)
   io_err = Cint[0];