@@ -47,6 +47,7 @@ program test1
4747 cycle
4848 end if
4949 func_evals = 0
50+ call my_prob% destroy()
5051 call my_prob% initialize(n,m,xlow,xhigh,perturb_mode,dpert,&
5152 problem_func= my_func,&
5253 sparsity_mode= sparsity_mode,&
@@ -99,6 +100,7 @@ program test1
99100 end if
100101
101102 func_evals = 0
103+ call my_prob% destroy()
102104 call my_prob% initialize(n,m,xlow,xhigh,perturb_mode,dpert,&
103105 problem_func= my_func,&
104106 sparsity_mode= sparsity_mode,&
@@ -166,6 +168,7 @@ program test1
166168 write (output_unit,' (A)' ) ' '
167169
168170 func_evals = 0
171+ call my_prob% destroy()
169172 call my_prob% initialize(n,m,xlow,xhigh,perturb_mode,dpert,&
170173 problem_func= my_func,&
171174 sparsity_mode= sparsity_mode,&
@@ -198,6 +201,7 @@ program test1
198201 write (output_unit,' (A)' ) ' '
199202
200203 func_evals = 0
204+ call my_prob% destroy()
201205 call my_prob% initialize(n,m,xlow,xhigh,perturb_mode,dpert,&
202206 problem_func= my_func,&
203207 sparsity_mode= sparsity_mode,&
0 commit comments