Skip to content

Commit a80d35a

Browse files
committed
test update: destroy before reusing the class
since the initialize method will no longer do that.
1 parent 7446d77 commit a80d35a

1 file changed

Lines changed: 4 additions & 0 deletions

File tree

tests/test1.f90

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -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

Comments
 (0)