first commit

extern/stdcxx/4.2.1/tests/regress/26.valarray.sub.stdcxx-309.cpp

@@ -0,0 +1,51 @@
+/************************************************************************
+ *
+ * 26.valarray.sub.stdcxx-309.cpp - regression test for STDCXX-309
+ *
+ *   https://issues.apache.org/jira/browse/STDCXX-309
+ *
+ * $Id: 26.valarray.sub.stdcxx-309.cpp 580483 2007-09-28 20:55:52Z sebor $
+ *
+ ***************************************************************************
+ *
+ * Licensed to the Apache Software  Foundation (ASF) under one or more
+ * contributor  license agreements.  See  the NOTICE  file distributed
+ * with  this  work  for  additional information  regarding  copyright
+ * ownership.   The ASF  licenses this  file to  you under  the Apache
+ * License, Version  2.0 (the  "License"); you may  not use  this file
+ * except in  compliance with the License.   You may obtain  a copy of
+ * the License at
+ *
+ * http://www.apache.org/licenses/LICENSE-2.0
+ *
+ * Unless required by applicable law or agreed to in writing, software
+ * distributed under the  License is distributed on an  "AS IS" BASIS,
+ * WITHOUT  WARRANTIES OR CONDITIONS  OF ANY  KIND, either  express or
+ * implied.   See  the License  for  the  specific language  governing
+ * permissions and limitations under the License.
+ * 
+ **************************************************************************/
+
+#include <cassert>
+#include <cstddef>
+#include <valarray>
+
+int main ()
+{
+    const int a[] = { 1, 2, 3, 4, 5, 6 };
+
+    const std::valarray<int> v (a, sizeof a / sizeof *a);
+
+    const std::size_t start = 5;
+    std::valarray<std::size_t> length (1, 1);
+    std::valarray<std::size_t> stride (1, 1);
+
+    const std::gslice gsl (start, length, stride);
+
+    for (int i = 0; i != 2; ++i) {
+        const std::valarray<int> vsl = v [gsl];
+        assert (a [start] == vsl [0]);
+    }
+
+    return 0;
+}