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

char *name = "Expression 1, p15";

double f_if(float a, float b, float c, float d, float e) {
        float r26314 = e;
        float r26315 = d;
        float r26316 = r26314 + r26315;
        float r26317 = c;
        float r26318 = r26316 + r26317;
        float r26319 = b;
        float r26320 = r26318 + r26319;
        float r26321 = a;
        float r26322 = r26320 + r26321;
        return r26322;
}

double f_id(double a, double b, double c, double d, double e) {
        double r26323 = e;
        double r26324 = d;
        double r26325 = r26323 + r26324;
        double r26326 = c;
        double r26327 = r26325 + r26326;
        double r26328 = b;
        double r26329 = r26327 + r26328;
        double r26330 = a;
        double r26331 = r26329 + r26330;
        return r26331;
}


double f_of(float a, float b, float c, float d, float e) {
        float r26332 = e;
        float r26333 = d;
        float r26334 = r26332 + r26333;
        float r26335 = c;
        float r26336 = r26334 + r26335;
        float r26337 = b;
        float r26338 = a;
        float r26339 = r26337 + r26338;
        float r26340 = r26336 + r26339;
        return r26340;
}

double f_od(double a, double b, double c, double d, double e) {
        double r26341 = e;
        double r26342 = d;
        double r26343 = r26341 + r26342;
        double r26344 = c;
        double r26345 = r26343 + r26344;
        double r26346 = b;
        double r26347 = a;
        double r26348 = r26346 + r26347;
        double r26349 = r26345 + r26348;
        return r26349;
}

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 r26350, r26351, r26352, r26353, r26354, r26355, r26356, r26357, r26358;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(336);
        mpfr_init(r26350);
        mpfr_init(r26351);
        mpfr_init(r26352);
        mpfr_init(r26353);
        mpfr_init(r26354);
        mpfr_init(r26355);
        mpfr_init(r26356);
        mpfr_init(r26357);
        mpfr_init(r26358);
}

double f_im(double a, double b, double c, double d, double e) {
        mpfr_set_d(r26350, e, MPFR_RNDN);
        mpfr_set_d(r26351, d, MPFR_RNDN);
        mpfr_add(r26352, r26350, r26351, MPFR_RNDN);
        mpfr_set_d(r26353, c, MPFR_RNDN);
        mpfr_add(r26354, r26352, r26353, MPFR_RNDN);
        mpfr_set_d(r26355, b, MPFR_RNDN);
        mpfr_add(r26356, r26354, r26355, MPFR_RNDN);
        mpfr_set_d(r26357, a, MPFR_RNDN);
        mpfr_add(r26358, r26356, r26357, MPFR_RNDN);
        return mpfr_get_d(r26358, MPFR_RNDN);
}

static mpfr_t r26359, r26360, r26361, r26362, r26363, r26364, r26365, r26366, r26367;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(336);
        mpfr_init(r26359);
        mpfr_init(r26360);
        mpfr_init(r26361);
        mpfr_init(r26362);
        mpfr_init(r26363);
        mpfr_init(r26364);
        mpfr_init(r26365);
        mpfr_init(r26366);
        mpfr_init(r26367);
}

double f_fm(double a, double b, double c, double d, double e) {
        mpfr_set_d(r26359, e, MPFR_RNDN);
        mpfr_set_d(r26360, d, MPFR_RNDN);
        mpfr_add(r26361, r26359, r26360, MPFR_RNDN);
        mpfr_set_d(r26362, c, MPFR_RNDN);
        mpfr_add(r26363, r26361, r26362, MPFR_RNDN);
        mpfr_set_d(r26364, b, MPFR_RNDN);
        mpfr_set_d(r26365, a, MPFR_RNDN);
        mpfr_add(r26366, r26364, r26365, MPFR_RNDN);
        mpfr_add(r26367, r26363, r26366, MPFR_RNDN);
        return mpfr_get_d(r26367, MPFR_RNDN);
}

static mpfr_t r26368, r26369, r26370, r26371, r26372, r26373, r26374, r26375, r26376;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(336);
        mpfr_init(r26368);
        mpfr_init(r26369);
        mpfr_init(r26370);
        mpfr_init(r26371);
        mpfr_init(r26372);
        mpfr_init(r26373);
        mpfr_init(r26374);
        mpfr_init(r26375);
        mpfr_init(r26376);
}

double f_dm(double a, double b, double c, double d, double e) {
        mpfr_set_d(r26368, e, MPFR_RNDN);
        mpfr_set_d(r26369, d, MPFR_RNDN);
        mpfr_add(r26370, r26368, r26369, MPFR_RNDN);
        mpfr_set_d(r26371, c, MPFR_RNDN);
        mpfr_add(r26372, r26370, r26371, MPFR_RNDN);
        mpfr_set_d(r26373, b, MPFR_RNDN);
        mpfr_set_d(r26374, a, MPFR_RNDN);
        mpfr_add(r26375, r26373, r26374, MPFR_RNDN);
        mpfr_add(r26376, r26372, r26375, MPFR_RNDN);
        return mpfr_get_d(r26376, MPFR_RNDN);
}