]>
git.ipfire.org Git - thirdparty/gcc.git/blob - libstdc++-v3/testsuite/26_numerics/valarray/subset_assignment.cc
1 // 2004-01-03 Jerry Quinn <jlquinn@optonline.net>
3 // Copyright (C) 2004-2016 Free Software Foundation, Inc.
5 // This file is part of the GNU ISO C++ Library. This library is free
6 // software; you can redistribute it and/or modify it under the
7 // terms of the GNU General Public License as published by the
8 // Free Software Foundation; either version 3, or (at your option)
11 // This library is distributed in the hope that it will be useful,
12 // but WITHOUT ANY WARRANTY; without even the implied warranty of
13 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 // GNU General Public License for more details.
16 // You should have received a copy of the GNU General Public License along
17 // with this library; see the file COPYING3. If not see
18 // <http://www.gnu.org/licenses/>.
23 // This is DR-253. Test for accessible assignment-operators.
25 #include <testsuite_hooks.h>
27 bool check_array(std::valarray
<double>& a
, double b
[])
29 for (unsigned int i
=0; i
< a
.size(); i
++)
30 if (a
[i
] != b
[i
]) return false;
36 std::valarray
<double> val_d(10); // 0 1 2 3 4 5 6 7 8 9
37 std::valarray
<double> val_d1(10); // 10 9 8 7 6 5 4 3 2 1
39 for (int i
=0; i
< 10; i
++) { val_d
[i
] = 10; val_d1
[i
] = i
; }
40 std::valarray
<double> val_c(val_d
);
41 std::valarray
<double> val_f(val_d
);
42 std::valarray
<double> val_g(val_d
);
44 std::slice
slc(1, 3, 3); // 1 4 7
45 val_d
[slc
] = val_d1
[slc
];
47 double ans1
[10] = {10, 1, 10, 10, 4, 10, 10, 7, 10, 10};
48 VERIFY(check_array(val_d
, ans1
));
50 std::valarray
<std::size_t> val_size(2);
51 std::valarray
<std::size_t> val_stride(2);
52 val_size
[0] = 2; val_size
[1] = 3;
53 val_stride
[0] = 4; val_stride
[1] = 1;
55 std::gslice
gslc(1, val_size
, val_stride
);
56 val_c
[gslc
] = val_d1
[gslc
];
58 double ans2
[10] = {10, 1, 2, 3, 10, 5, 6, 7, 10, 10};
59 VERIFY(check_array(val_c
, ans2
));
61 std::valarray
<bool> val_b(false, 10);
62 val_b
[2] = val_b
[6] = val_b
[9] = true;
63 val_f
[val_b
] = val_d1
[val_b
];
65 double ans3
[10] = {10, 10, 2, 10, 10, 10, 6, 10, 10, 9};
66 VERIFY(check_array(val_f
, ans3
));
68 size_t addr
[] = {1, 2, 3, 4, 5};
69 size_t addr1
[] = {2, 7, 1, 9, 4};
70 std::valarray
<std::size_t> val_indirect(addr
, 5);
71 std::valarray
<std::size_t> val_indirect1(addr1
, 5);
72 val_g
[val_indirect
] = val_d1
[val_indirect1
];
74 double ans4
[10] = {10, 2, 7, 1, 9, 4, 10, 10, 10, 10};
75 VERIFY(check_array(val_g
, ans4
));