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

char *name = "expm1 (example 3.7)";

double f_if(float x) {
        float r10385 = x;
        float r10386 = exp(r10385);
        float r10387 = 1.0f;
        float r10388 = r10386 - r10387;
        return r10388;
}

double f_id(double x) {
        double r10389 = x;
        double r10390 = exp(r10389);
        double r10391 = 1.0;
        double r10392 = r10390 - r10391;
        return r10392;
}


double f_of(float x) {
        float r10393 = x;
        float r10394 = 0.16666666666666666f;
        float r10395 = r10393 * r10394;
        float r10396 = 0.5f;
        float r10397 = r10395 + r10396;
        float r10398 = r10393 * r10393;
        float r10399 = r10397 * r10398;
        float r10400 = r10393 + r10399;
        return r10400;
}

double f_od(double x) {
        double r10401 = x;
        double r10402 = 0.16666666666666666;
        double r10403 = r10401 * r10402;
        double r10404 = 0.5;
        double r10405 = r10403 + r10404;
        double r10406 = r10401 * r10401;
        double r10407 = r10405 * r10406;
        double r10408 = r10401 + r10407;
        return r10408;
}

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 r10409, r10410, r10411, r10412;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(1360);
        mpfr_init(r10409);
        mpfr_init(r10410);
        mpfr_init_set_str(r10411, "1", 10, MPFR_RNDN);
        mpfr_init(r10412);
}

double f_im(double x) {
        mpfr_set_d(r10409, x, MPFR_RNDN);
        mpfr_exp(r10410, r10409, MPFR_RNDN);
        ;
        mpfr_sub(r10412, r10410, r10411, MPFR_RNDN);
        return mpfr_get_d(r10412, MPFR_RNDN);
}

static mpfr_t r10413, r10414, r10415, r10416, r10417, r10418, r10419, r10420;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(1360);
        mpfr_init(r10413);
        mpfr_init_set_str(r10414, "1/6", 10, MPFR_RNDN);
        mpfr_init(r10415);
        mpfr_init_set_str(r10416, "1/2", 10, MPFR_RNDN);
        mpfr_init(r10417);
        mpfr_init(r10418);
        mpfr_init(r10419);
        mpfr_init(r10420);
}

double f_fm(double x) {
        mpfr_set_d(r10413, x, MPFR_RNDN);
        ;
        mpfr_mul(r10415, r10413, r10414, MPFR_RNDN);
        ;
        mpfr_add(r10417, r10415, r10416, MPFR_RNDN);
        mpfr_mul(r10418, r10413, r10413, MPFR_RNDN);
        mpfr_mul(r10419, r10417, r10418, MPFR_RNDN);
        mpfr_add(r10420, r10413, r10419, MPFR_RNDN);
        return mpfr_get_d(r10420, MPFR_RNDN);
}

static mpfr_t r10421, r10422, r10423, r10424, r10425, r10426, r10427, r10428;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(1360);
        mpfr_init(r10421);
        mpfr_init_set_str(r10422, "1/6", 10, MPFR_RNDN);
        mpfr_init(r10423);
        mpfr_init_set_str(r10424, "1/2", 10, MPFR_RNDN);
        mpfr_init(r10425);
        mpfr_init(r10426);
        mpfr_init(r10427);
        mpfr_init(r10428);
}

double f_dm(double x) {
        mpfr_set_d(r10421, x, MPFR_RNDN);
        ;
        mpfr_mul(r10423, r10421, r10422, MPFR_RNDN);
        ;
        mpfr_add(r10425, r10423, r10424, MPFR_RNDN);
        mpfr_mul(r10426, r10421, r10421, MPFR_RNDN);
        mpfr_mul(r10427, r10425, r10426, MPFR_RNDN);
        mpfr_add(r10428, r10421, r10427, MPFR_RNDN);
        return mpfr_get_d(r10428, MPFR_RNDN);
}