Ticket #12431: test2.cpp

// -*- Mode: C++; tab-width: 4; c-basic-offset: 4; indent-tabs-mode: nil -*-
// ex: set softtabstop=4 tabstop=4 shiftwidth=4 expandtab:

// g++ -Wall -Wextra -Werror -g -O0 -save-temps -o test2.o -c -fpic test2.cpp

#include <boost/preprocessor/facilities/expand.hpp>
#include <boost/preprocessor/tuple/push_front.hpp>
#include <boost/preprocessor/seq/push_front.hpp>
#include <boost/preprocessor/seq/to_tuple.hpp>
#include <cstdio>

#define TEST2_RESULT(NAME, I, J) NAME##I
#define TEST2_WORKS \
    BOOST_PP_EXPAND(\
        TEST2_RESULT \
        BOOST_PP_SEQ_TO_TUPLE(\
            BOOST_PP_SEQ_PUSH_FRONT((0)(1), arg)\
        )\
    )
#define TEST2_FAILS \
    BOOST_PP_EXPAND(\
        TEST2_RESULT \
        BOOST_PP_TUPLE_PUSH_FRONT((0, 1), arg) \
    )

int main()
{
        double const arg0 = 1;
    ::printf("%f\n", TEST2_WORKS);
    ::printf("%f\n", TEST2_FAILS);
    return 0;
}