1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
// SPDX-License-Identifier: EPL-2.0 OR GPL-2.0-or-later
// SPDX-FileCopyrightText: Bradley M. Bell <bradbell@seanet.com>
// SPDX-FileContributor: 2003-22 Bradley M. Bell
// ----------------------------------------------------------------------------
/*
Test that ADFun copy constructor generates an error message.
*/
# include <cppad/cppad.hpp>
# include <string>
namespace { // BEGIN_EMPTY_NAMESPACE
bool adfun_empty(void)
{ bool ok = true;
size_t thread = CppAD::thread_alloc::thread_num();
//
// Allocate this memory first incase we are using
// CppAD::vector which uses thread_alloc.
CPPAD_TESTVECTOR( CppAD::AD<double> ) ax(1), ay(1);
//
// check that an empty function does not hold memory
size_t inuse_1 = CppAD::thread_alloc::inuse(thread);
CppAD::ADFun<double> f;
size_t inuse_2 = CppAD::thread_alloc::inuse(thread);
ok &= inuse_1 == inuse_2;
//
// check that creating an adfun uses memory
CppAD::Independent(ax);
ay = ax;
CppAD::ADFun<double> g(ax, ay);
size_t inuse_3 = CppAD::thread_alloc::inuse(thread);
ok &= inuse_1 < inuse_3;
//
// assigning to an empty function uses assignment to pod_vectors
// which just changes their length to zero
g = f;
size_t inuse_4 = CppAD::thread_alloc::inuse(thread);
ok &= inuse_3 == inuse_4;
//
// assigning to a temporary empty function to g
// uses move semantics (hence frees all memory in g)
g = CppAD::ADFun<double>();
size_t inuse_5 = CppAD::thread_alloc::inuse(thread);
ok &= inuse_1 == inuse_5;
//
return ok;
}
bool adfun_swap(void)
{ bool ok = true;
//
// Independent variables
CPPAD_TESTVECTOR( CppAD::AD<double> ) ax(1);
CppAD::Independent(ax);
//
// Dependent variables
CPPAD_TESTVECTOR( CppAD::AD<double> ) ay(2);
ay[0] = ax[0];
ay[1] = ax[0];
//
// Nonempty ADFun
CppAD::ADFun<double> f(ax, ay);
ok &= f.size_var() != 0;
//
// Empry ADFun
CppAD::ADFun<double> g;
ok &= g.size_var() == 0;
//
// swap
f.swap(g);
ok &= f.size_var() == 0;
ok &= g.size_var() != 0;
//
return ok;
}
} // END_EMPTY_NAMESPACE
bool adfun(void)
{ bool ok = true;
ok &= adfun_empty();
ok &= adfun_swap();
return ok;
}
|
