#include <tgmath.h>
#include <gmp.h>
#include <mpfr.h>
#include <stdio.h>
#include <stdbool.h>

char *name = "FastMath test3";

double f_if(float d1, float d2, float d3) {
        float r18766 = d1;
        float r18767 = 3.0f;
        float r18768 = r18766 * r18767;
        float r18769 = d2;
        float r18770 = r18766 * r18769;
        float r18771 = r18768 + r18770;
        float r18772 = d3;
        float r18773 = r18766 * r18772;
        float r18774 = r18771 + r18773;
        return r18774;
}

double f_id(double d1, double d2, double d3) {
        double r18775 = d1;
        double r18776 = 3.0;
        double r18777 = r18775 * r18776;
        double r18778 = d2;
        double r18779 = r18775 * r18778;
        double r18780 = r18777 + r18779;
        double r18781 = d3;
        double r18782 = r18775 * r18781;
        double r18783 = r18780 + r18782;
        return r18783;
}


double f_of(float d1, float d2, float d3) {
        float r18784 = d1;
        float r18785 = 3.0f;
        float r18786 = d2;
        float r18787 = r18785 + r18786;
        float r18788 = r18784 * r18787;
        float r18789 = d3;
        float r18790 = r18784 * r18789;
        float r18791 = r18788 + r18790;
        return r18791;
}

double f_od(double d1, double d2, double d3) {
        double r18792 = d1;
        double r18793 = 3.0;
        double r18794 = d2;
        double r18795 = r18793 + r18794;
        double r18796 = r18792 * r18795;
        double r18797 = d3;
        double r18798 = r18792 * r18797;
        double r18799 = r18796 + r18798;
        return r18799;
}

void mpfr_fmod2(mpfr_t r, mpfr_t n, mpfr_t d, mpfr_rnd_t rmd) {
        mpfr_fmod(r, n, d, rmd);
        if (mpfr_cmp_ui(r, 0) < 0) mpfr_add(r, r, d, rmd);
}


static mpfr_t r18800, r18801, r18802, r18803, r18804, r18805, r18806, r18807, r18808;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(144);
        mpfr_init(r18800);
        mpfr_init_set_str(r18801, "3", 10, MPFR_RNDN);
        mpfr_init(r18802);
        mpfr_init(r18803);
        mpfr_init(r18804);
        mpfr_init(r18805);
        mpfr_init(r18806);
        mpfr_init(r18807);
        mpfr_init(r18808);
}

double f_im(double d1, double d2, double d3) {
        mpfr_set_d(r18800, d1, MPFR_RNDN);
        ;
        mpfr_mul(r18802, r18800, r18801, MPFR_RNDN);
        mpfr_set_d(r18803, d2, MPFR_RNDN);
        mpfr_mul(r18804, r18800, r18803, MPFR_RNDN);
        mpfr_add(r18805, r18802, r18804, MPFR_RNDN);
        mpfr_set_d(r18806, d3, MPFR_RNDN);
        mpfr_mul(r18807, r18800, r18806, MPFR_RNDN);
        mpfr_add(r18808, r18805, r18807, MPFR_RNDN);
        return mpfr_get_d(r18808, MPFR_RNDN);
}

static mpfr_t r18809, r18810, r18811, r18812, r18813, r18814, r18815, r18816;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(144);
        mpfr_init(r18809);
        mpfr_init_set_str(r18810, "3", 10, MPFR_RNDN);
        mpfr_init(r18811);
        mpfr_init(r18812);
        mpfr_init(r18813);
        mpfr_init(r18814);
        mpfr_init(r18815);
        mpfr_init(r18816);
}

double f_fm(double d1, double d2, double d3) {
        mpfr_set_d(r18809, d1, MPFR_RNDN);
        ;
        mpfr_set_d(r18811, d2, MPFR_RNDN);
        mpfr_add(r18812, r18810, r18811, MPFR_RNDN);
        mpfr_mul(r18813, r18809, r18812, MPFR_RNDN);
        mpfr_set_d(r18814, d3, MPFR_RNDN);
        mpfr_mul(r18815, r18809, r18814, MPFR_RNDN);
        mpfr_add(r18816, r18813, r18815, MPFR_RNDN);
        return mpfr_get_d(r18816, MPFR_RNDN);
}

static mpfr_t r18817, r18818, r18819, r18820, r18821, r18822, r18823, r18824;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(144);
        mpfr_init(r18817);
        mpfr_init_set_str(r18818, "3", 10, MPFR_RNDN);
        mpfr_init(r18819);
        mpfr_init(r18820);
        mpfr_init(r18821);
        mpfr_init(r18822);
        mpfr_init(r18823);
        mpfr_init(r18824);
}

double f_dm(double d1, double d2, double d3) {
        mpfr_set_d(r18817, d1, MPFR_RNDN);
        ;
        mpfr_set_d(r18819, d2, MPFR_RNDN);
        mpfr_add(r18820, r18818, r18819, MPFR_RNDN);
        mpfr_mul(r18821, r18817, r18820, MPFR_RNDN);
        mpfr_set_d(r18822, d3, MPFR_RNDN);
        mpfr_mul(r18823, r18817, r18822, MPFR_RNDN);
        mpfr_add(r18824, r18821, r18823, MPFR_RNDN);
        return mpfr_get_d(r18824, MPFR_RNDN);
}