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

char *name = "subtraction fraction";

double f_if(float f, float n) {
        float r19531 = f;
        float r19532 = n;
        float r19533 = r19531 + r19532;
        float r19534 = -r19533;
        float r19535 = r19531 - r19532;
        float r19536 = r19534 / r19535;
        return r19536;
}

double f_id(double f, double n) {
        double r19537 = f;
        double r19538 = n;
        double r19539 = r19537 + r19538;
        double r19540 = -r19539;
        double r19541 = r19537 - r19538;
        double r19542 = r19540 / r19541;
        return r19542;
}


double f_of(float f, float n) {
        float r19543 = f;
        float r19544 = n;
        float r19545 = r19543 + r19544;
        float r19546 = -r19545;
        float r19547 = r19543 - r19544;
        float r19548 = r19546 / r19547;
        return r19548;
}

double f_od(double f, double n) {
        double r19549 = f;
        double r19550 = n;
        double r19551 = r19549 + r19550;
        double r19552 = -r19551;
        double r19553 = r19549 - r19550;
        double r19554 = r19552 / r19553;
        return r19554;
}

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 r19555, r19556, r19557, r19558, r19559, r19560;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(400);
        mpfr_init(r19555);
        mpfr_init(r19556);
        mpfr_init(r19557);
        mpfr_init(r19558);
        mpfr_init(r19559);
        mpfr_init(r19560);
}

double f_im(double f, double n) {
        mpfr_set_d(r19555, f, MPFR_RNDN);
        mpfr_set_d(r19556, n, MPFR_RNDN);
        mpfr_add(r19557, r19555, r19556, MPFR_RNDN);
        mpfr_neg(r19558, r19557, MPFR_RNDN);
        mpfr_sub(r19559, r19555, r19556, MPFR_RNDN);
        mpfr_div(r19560, r19558, r19559, MPFR_RNDN);
        return mpfr_get_d(r19560, MPFR_RNDN);
}

static mpfr_t r19561, r19562, r19563, r19564, r19565, r19566;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(400);
        mpfr_init(r19561);
        mpfr_init(r19562);
        mpfr_init(r19563);
        mpfr_init(r19564);
        mpfr_init(r19565);
        mpfr_init(r19566);
}

double f_fm(double f, double n) {
        mpfr_set_d(r19561, f, MPFR_RNDN);
        mpfr_set_d(r19562, n, MPFR_RNDN);
        mpfr_add(r19563, r19561, r19562, MPFR_RNDN);
        mpfr_neg(r19564, r19563, MPFR_RNDN);
        mpfr_sub(r19565, r19561, r19562, MPFR_RNDN);
        mpfr_div(r19566, r19564, r19565, MPFR_RNDN);
        return mpfr_get_d(r19566, MPFR_RNDN);
}

static mpfr_t r19567, r19568, r19569, r19570, r19571, r19572;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(400);
        mpfr_init(r19567);
        mpfr_init(r19568);
        mpfr_init(r19569);
        mpfr_init(r19570);
        mpfr_init(r19571);
        mpfr_init(r19572);
}

double f_dm(double f, double n) {
        mpfr_set_d(r19567, f, MPFR_RNDN);
        mpfr_set_d(r19568, n, MPFR_RNDN);
        mpfr_add(r19569, r19567, r19568, MPFR_RNDN);
        mpfr_neg(r19570, r19569, MPFR_RNDN);
        mpfr_sub(r19571, r19567, r19568, MPFR_RNDN);
        mpfr_div(r19572, r19570, r19571, MPFR_RNDN);
        return mpfr_get_d(r19572, MPFR_RNDN);
}