#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 r18590 = d1;
        float r18591 = 3.0f;
        float r18592 = r18590 * r18591;
        float r18593 = d2;
        float r18594 = r18590 * r18593;
        float r18595 = r18592 + r18594;
        float r18596 = d3;
        float r18597 = r18590 * r18596;
        float r18598 = r18595 + r18597;
        return r18598;
}

double f_id(double d1, double d2, double d3) {
        double r18599 = d1;
        double r18600 = 3.0;
        double r18601 = r18599 * r18600;
        double r18602 = d2;
        double r18603 = r18599 * r18602;
        double r18604 = r18601 + r18603;
        double r18605 = d3;
        double r18606 = r18599 * r18605;
        double r18607 = r18604 + r18606;
        return r18607;
}


double f_of(float d1, float d2, float d3) {
        float r18608 = d1;
        float r18609 = d2;
        float r18610 = 3.0f;
        float r18611 = r18609 + r18610;
        float r18612 = d3;
        float r18613 = r18612 * r18608;
        float r18614 = fma(r18608, r18611, r18613);
        return r18614;
}

double f_od(double d1, double d2, double d3) {
        double r18615 = d1;
        double r18616 = d2;
        double r18617 = 3.0;
        double r18618 = r18616 + r18617;
        double r18619 = d3;
        double r18620 = r18619 * r18615;
        double r18621 = fma(r18615, r18618, r18620);
        return r18621;
}

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 r18622, r18623, r18624, r18625, r18626, r18627, r18628, r18629, r18630;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(144);
        mpfr_init(r18622);
        mpfr_init_set_str(r18623, "3", 10, MPFR_RNDN);
        mpfr_init(r18624);
        mpfr_init(r18625);
        mpfr_init(r18626);
        mpfr_init(r18627);
        mpfr_init(r18628);
        mpfr_init(r18629);
        mpfr_init(r18630);
}

double f_im(double d1, double d2, double d3) {
        mpfr_set_d(r18622, d1, MPFR_RNDN);
        ;
        mpfr_mul(r18624, r18622, r18623, MPFR_RNDN);
        mpfr_set_d(r18625, d2, MPFR_RNDN);
        mpfr_mul(r18626, r18622, r18625, MPFR_RNDN);
        mpfr_add(r18627, r18624, r18626, MPFR_RNDN);
        mpfr_set_d(r18628, d3, MPFR_RNDN);
        mpfr_mul(r18629, r18622, r18628, MPFR_RNDN);
        mpfr_add(r18630, r18627, r18629, MPFR_RNDN);
        return mpfr_get_d(r18630, MPFR_RNDN);
}

static mpfr_t r18631, r18632, r18633, r18634, r18635, r18636, r18637;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(144);
        mpfr_init(r18631);
        mpfr_init(r18632);
        mpfr_init_set_str(r18633, "3", 10, MPFR_RNDN);
        mpfr_init(r18634);
        mpfr_init(r18635);
        mpfr_init(r18636);
        mpfr_init(r18637);
}

double f_fm(double d1, double d2, double d3) {
        mpfr_set_d(r18631, d1, MPFR_RNDN);
        mpfr_set_d(r18632, d2, MPFR_RNDN);
        ;
        mpfr_add(r18634, r18632, r18633, MPFR_RNDN);
        mpfr_set_d(r18635, d3, MPFR_RNDN);
        mpfr_mul(r18636, r18635, r18631, MPFR_RNDN);
        mpfr_fma(r18637, r18631, r18634, r18636, MPFR_RNDN);
        return mpfr_get_d(r18637, MPFR_RNDN);
}

static mpfr_t r18638, r18639, r18640, r18641, r18642, r18643, r18644;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(144);
        mpfr_init(r18638);
        mpfr_init(r18639);
        mpfr_init_set_str(r18640, "3", 10, MPFR_RNDN);
        mpfr_init(r18641);
        mpfr_init(r18642);
        mpfr_init(r18643);
        mpfr_init(r18644);
}

double f_dm(double d1, double d2, double d3) {
        mpfr_set_d(r18638, d1, MPFR_RNDN);
        mpfr_set_d(r18639, d2, MPFR_RNDN);
        ;
        mpfr_add(r18641, r18639, r18640, MPFR_RNDN);
        mpfr_set_d(r18642, d3, MPFR_RNDN);
        mpfr_mul(r18643, r18642, r18638, MPFR_RNDN);
        mpfr_fma(r18644, r18638, r18641, r18643, MPFR_RNDN);
        return mpfr_get_d(r18644, MPFR_RNDN);
}