/************************************************************************
 *
 * 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;
} 
