ra-ra/test/ra-11.cc

// -*- mode: c++; coding: utf-8 -*-
/// @file ra-11.cc
/// @brief Reduce a bug in gcc 8.3

// (c) Daniel Llorens - 2013-2015
// This library is free software; you can redistribute it and/or modify it under
// the terms of the GNU Lesser General Public License as published by the Free
// Software Foundation; either version 3 of the License, or (at your option) any
// later version.

#include <iostream>
#include <iterator>
#include <numeric>
#include "ra/test.hh"
#include "ra/ra.hh"
#include "ra/mpdebug.hh"

using std::cout, std::endl, std::flush, ra::TestRecorder;

int main()
{
    TestRecorder tr(std::cout);
    {
        double b[6] = { 1, 2, 3, 4, 5, 6 };
        ra::View<double *> ra { {6}, b }; // FIXME [ra28]
        tr.test_eq(b, ra);

        ra::Unique<double> A({2, 3}, 0);
        tr.test_eq(ra::Small<ra::dim_t, 2> {2, 3}, shape(iter<-2>(A)));
        tr.test_eq(ra::Small<ra::dim_t, 1> {2}, shape(iter<-1>(A)));

        double pool[6] = { 1, 2, 3, 4, 5, 6 };
        ra::Unique<double> u({3, 2}, pool, pool+6);
        tr.test(std::equal(pool, pool+6, u.begin()));

        ra::Unique<double> q(ra::scalar(44));
        tr.test_eq(1, q.size());

        double rpool[6] = { 1, 2, 3, 4, 5, 6 };
        ra::View<double *, 2> r { {{3, 1}, {2, 3}}, rpool };  // FIXME [ra28]
        double rcheck[6] = { 1, 4, 2, 5, 3, 6 };
        tr.test(std::equal(rcheck, rcheck+6, r.at(ra::Big<int>({0}, {})).begin()));
    }
    return tr.summary();
}

// copy ra-0.cc to dum0.cc and
// git bisect run sh -c '/opt/gcc-8.3/bin/g++ -o src/ext/ra/test/dum0 -std=c++17 -Wall -Werror -fdiagnostics-color=always -Wno-unknown-pragmas -finput-charset=UTF-8 -fextended-identifiers -Wno-error=strict-overflow -Werror=zero-as-null-pointer-constant -O3 -march=native -Isrc/ext/ra -Isrc/ext/ra/test src/ext/ra/test/dum0.cc && src/ext/ra/test/dum0'