Function reduce_all_promote

src/api/c/reduce.cpp:727–786

template<af_op_t op>
static af_err reduce_all_promote(double *real_val, double *imag_val,
                                 const af_array in, bool change_nan = false,
                                 double nanval = 0) {
    try {
        const ArrayInfo &in_info = getInfo(in);
        af_dtype type            = in_info.getType();

        ARG_ASSERT(0, real_val != nullptr);
        *real_val = 0;
        if (imag_val) { *imag_val = 0; }

        cfloat cfval;
        cdouble cdval;

        switch (type) {
            // clang-format off
            case f32: *real_val = reduce_all<op, float,   float>(in, change_nan, nanval); break;
            case f64: *real_val = reduce_all<op, double, double>(in, change_nan, nanval); break;
            case u32: *real_val = reduce_all<op, uint,     uint>(in, change_nan, nanval); break;
            case s32: *real_val = reduce_all<op, int,       int>(in, change_nan, nanval); break;
            case u64: *real_val = reduce_all<op, uintl,   uintl>(in, change_nan, nanval); break;
            case s64: *real_val = reduce_all<op, intl,     intl>(in, change_nan, nanval); break;
            case u16: *real_val = reduce_all<op, ushort,   uint>(in, change_nan, nanval); break;
            case s16: *real_val = reduce_all<op, short,     int>(in, change_nan, nanval); break;
            case u8:  *real_val = reduce_all<op, uchar,    uint>(in, change_nan, nanval); break;
            case s8:  *real_val = reduce_all<op, schar,     int>(in, change_nan, nanval); break;
            // clang-format on
            case b8: {
                if (op == af_mul_t) {
                    *real_val = reduce_all<af_and_t, char, char>(in, change_nan,
                                                                 nanval);
                } else {
                    *real_val = reduce_all<af_notzero_t, char, uint>(
                        in, change_nan, nanval);
                }
            } break;
            case c32:
                cfval = reduce_all<op, cfloat, cfloat, cfloat>(in);
                ARG_ASSERT(1, imag_val != nullptr);
                *real_val = real(cfval);
                *imag_val = imag(cfval);
                break;

            case c64:
                cdval = reduce_all<op, cdouble, cdouble, cdouble>(in);
                ARG_ASSERT(1, imag_val != nullptr);
                *real_val = real(cdval);
                *imag_val = imag(cdval);
                break;
            case f16:
                *real_val = reduce_all<op, half, float>(in, change_nan, nanval);
                break;

            default: TYPE_ERROR(1, type);
        }
    }
    CATCHALL;