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

char *name = "math.sqrt on complex, real part";

double f_if(float re, float im) {
        float r18715 = 0.5f;
        float r18716 = 2.0f;
        float r18717 = re;
        float r18718 = r18717 * r18717;
        float r18719 = im;
        float r18720 = r18719 * r18719;
        float r18721 = r18718 + r18720;
        float r18722 = sqrt(r18721);
        float r18723 = r18722 + r18717;
        float r18724 = r18716 * r18723;
        float r18725 = sqrt(r18724);
        float r18726 = r18715 * r18725;
        return r18726;
}

double f_id(double re, double im) {
        double r18727 = 0.5;
        double r18728 = 2.0;
        double r18729 = re;
        double r18730 = r18729 * r18729;
        double r18731 = im;
        double r18732 = r18731 * r18731;
        double r18733 = r18730 + r18732;
        double r18734 = sqrt(r18733);
        double r18735 = r18734 + r18729;
        double r18736 = r18728 * r18735;
        double r18737 = sqrt(r18736);
        double r18738 = r18727 * r18737;
        return r18738;
}


double f_of(float re, float im) {
        float r18739 = 0.5f;
        float r18740 = re;
        float r18741 = im;
        float r18742 = hypot(r18740, r18741);
        float r18743 = 2.0f;
        float r18744 = r18743 * r18740;
        float r18745 = fma(r18742, r18743, r18744);
        float r18746 = sqrt(r18745);
        float r18747 = r18739 * r18746;
        return r18747;
}

double f_od(double re, double im) {
        double r18748 = 0.5;
        double r18749 = re;
        double r18750 = im;
        double r18751 = hypot(r18749, r18750);
        double r18752 = 2.0;
        double r18753 = r18752 * r18749;
        double r18754 = fma(r18751, r18752, r18753);
        double r18755 = sqrt(r18754);
        double r18756 = r18748 * r18755;
        return r18756;
}

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 r18757, r18758, r18759, r18760, r18761, r18762, r18763, r18764, r18765, r18766, r18767, r18768;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(144);
        mpfr_init_set_str(r18757, "0.5", 10, MPFR_RNDN);
        mpfr_init_set_str(r18758, "2.0", 10, MPFR_RNDN);
        mpfr_init(r18759);
        mpfr_init(r18760);
        mpfr_init(r18761);
        mpfr_init(r18762);
        mpfr_init(r18763);
        mpfr_init(r18764);
        mpfr_init(r18765);
        mpfr_init(r18766);
        mpfr_init(r18767);
        mpfr_init(r18768);
}

double f_im(double re, double im) {
        ;
        ;
        mpfr_set_d(r18759, re, MPFR_RNDN);
        mpfr_mul(r18760, r18759, r18759, MPFR_RNDN);
        mpfr_set_d(r18761, im, MPFR_RNDN);
        mpfr_mul(r18762, r18761, r18761, MPFR_RNDN);
        mpfr_add(r18763, r18760, r18762, MPFR_RNDN);
        mpfr_sqrt(r18764, r18763, MPFR_RNDN);
        mpfr_add(r18765, r18764, r18759, MPFR_RNDN);
        mpfr_mul(r18766, r18758, r18765, MPFR_RNDN);
        mpfr_sqrt(r18767, r18766, MPFR_RNDN);
        mpfr_mul(r18768, r18757, r18767, MPFR_RNDN);
        return mpfr_get_d(r18768, MPFR_RNDN);
}

static mpfr_t r18769, r18770, r18771, r18772, r18773, r18774, r18775, r18776, r18777;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(144);
        mpfr_init_set_str(r18769, "0.5", 10, MPFR_RNDN);
        mpfr_init(r18770);
        mpfr_init(r18771);
        mpfr_init(r18772);
        mpfr_init_set_str(r18773, "2.0", 10, MPFR_RNDN);
        mpfr_init(r18774);
        mpfr_init(r18775);
        mpfr_init(r18776);
        mpfr_init(r18777);
}

double f_fm(double re, double im) {
        ;
        mpfr_set_d(r18770, re, MPFR_RNDN);
        mpfr_set_d(r18771, im, MPFR_RNDN);
        mpfr_hypot(r18772, r18770, r18771, MPFR_RNDN);
        ;
        mpfr_mul(r18774, r18773, r18770, MPFR_RNDN);
        mpfr_fma(r18775, r18772, r18773, r18774, MPFR_RNDN);
        mpfr_sqrt(r18776, r18775, MPFR_RNDN);
        mpfr_mul(r18777, r18769, r18776, MPFR_RNDN);
        return mpfr_get_d(r18777, MPFR_RNDN);
}

static mpfr_t r18778, r18779, r18780, r18781, r18782, r18783, r18784, r18785, r18786;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(144);
        mpfr_init_set_str(r18778, "0.5", 10, MPFR_RNDN);
        mpfr_init(r18779);
        mpfr_init(r18780);
        mpfr_init(r18781);
        mpfr_init_set_str(r18782, "2.0", 10, MPFR_RNDN);
        mpfr_init(r18783);
        mpfr_init(r18784);
        mpfr_init(r18785);
        mpfr_init(r18786);
}

double f_dm(double re, double im) {
        ;
        mpfr_set_d(r18779, re, MPFR_RNDN);
        mpfr_set_d(r18780, im, MPFR_RNDN);
        mpfr_hypot(r18781, r18779, r18780, MPFR_RNDN);
        ;
        mpfr_mul(r18783, r18782, r18779, MPFR_RNDN);
        mpfr_fma(r18784, r18781, r18782, r18783, MPFR_RNDN);
        mpfr_sqrt(r18785, r18784, MPFR_RNDN);
        mpfr_mul(r18786, r18778, r18785, MPFR_RNDN);
        return mpfr_get_d(r18786, MPFR_RNDN);
}