#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 r25455 = 0.5;
        float r25456 = 2.0;
        float r25457 = re;
        float r25458 = r25457 * r25457;
        float r25459 = im;
        float r25460 = r25459 * r25459;
        float r25461 = r25458 + r25460;
        float r25462 = sqrt(r25461);
        float r25463 = r25462 + r25457;
        float r25464 = r25456 * r25463;
        float r25465 = sqrt(r25464);
        float r25466 = r25455 * r25465;
        return r25466;
}

double f_id(double re, double im) {
        double r25467 = 0.5;
        double r25468 = 2.0;
        double r25469 = re;
        double r25470 = r25469 * r25469;
        double r25471 = im;
        double r25472 = r25471 * r25471;
        double r25473 = r25470 + r25472;
        double r25474 = sqrt(r25473);
        double r25475 = r25474 + r25469;
        double r25476 = r25468 * r25475;
        double r25477 = sqrt(r25476);
        double r25478 = r25467 * r25477;
        return r25478;
}


double f_of(float re, float im) {
        float r25479 = 0.5;
        float r25480 = re;
        float r25481 = im;
        float r25482 = hypot(r25480, r25481);
        float r25483 = 2.0;
        float r25484 = r25480 * r25483;
        float r25485 = fma(r25482, r25483, r25484);
        float r25486 = sqrt(r25485);
        float r25487 = r25479 * r25486;
        return r25487;
}

double f_od(double re, double im) {
        double r25488 = 0.5;
        double r25489 = re;
        double r25490 = im;
        double r25491 = hypot(r25489, r25490);
        double r25492 = 2.0;
        double r25493 = r25489 * r25492;
        double r25494 = fma(r25491, r25492, r25493);
        double r25495 = sqrt(r25494);
        double r25496 = r25488 * r25495;
        return r25496;
}

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 r25497, r25498, r25499, r25500, r25501, r25502, r25503, r25504, r25505, r25506, r25507, r25508;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(3664);
        mpfr_init_set_str(r25497, "0.5", 10, MPFR_RNDN);
        mpfr_init_set_str(r25498, "2.0", 10, MPFR_RNDN);
        mpfr_init(r25499);
        mpfr_init(r25500);
        mpfr_init(r25501);
        mpfr_init(r25502);
        mpfr_init(r25503);
        mpfr_init(r25504);
        mpfr_init(r25505);
        mpfr_init(r25506);
        mpfr_init(r25507);
        mpfr_init(r25508);
}

double f_im(double re, double im) {
        ;
        ;
        mpfr_set_d(r25499, re, MPFR_RNDN);
        mpfr_mul(r25500, r25499, r25499, MPFR_RNDN);
        mpfr_set_d(r25501, im, MPFR_RNDN);
        mpfr_mul(r25502, r25501, r25501, MPFR_RNDN);
        mpfr_add(r25503, r25500, r25502, MPFR_RNDN);
        mpfr_sqrt(r25504, r25503, MPFR_RNDN);
        mpfr_add(r25505, r25504, r25499, MPFR_RNDN);
        mpfr_mul(r25506, r25498, r25505, MPFR_RNDN);
        mpfr_sqrt(r25507, r25506, MPFR_RNDN);
        mpfr_mul(r25508, r25497, r25507, MPFR_RNDN);
        return mpfr_get_d(r25508, MPFR_RNDN);
}

static mpfr_t r25509, r25510, r25511, r25512, r25513, r25514, r25515, r25516, r25517;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(3664);
        mpfr_init_set_str(r25509, "0.5", 10, MPFR_RNDN);
        mpfr_init(r25510);
        mpfr_init(r25511);
        mpfr_init(r25512);
        mpfr_init_set_str(r25513, "2.0", 10, MPFR_RNDN);
        mpfr_init(r25514);
        mpfr_init(r25515);
        mpfr_init(r25516);
        mpfr_init(r25517);
}

double f_fm(double re, double im) {
        ;
        mpfr_set_d(r25510, re, MPFR_RNDN);
        mpfr_set_d(r25511, im, MPFR_RNDN);
        mpfr_hypot(r25512, r25510, r25511, MPFR_RNDN);
        ;
        mpfr_mul(r25514, r25510, r25513, MPFR_RNDN);
        mpfr_fma(r25515, r25512, r25513, r25514, MPFR_RNDN);
        mpfr_sqrt(r25516, r25515, MPFR_RNDN);
        mpfr_mul(r25517, r25509, r25516, MPFR_RNDN);
        return mpfr_get_d(r25517, MPFR_RNDN);
}

static mpfr_t r25518, r25519, r25520, r25521, r25522, r25523, r25524, r25525, r25526;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(3664);
        mpfr_init_set_str(r25518, "0.5", 10, MPFR_RNDN);
        mpfr_init(r25519);
        mpfr_init(r25520);
        mpfr_init(r25521);
        mpfr_init_set_str(r25522, "2.0", 10, MPFR_RNDN);
        mpfr_init(r25523);
        mpfr_init(r25524);
        mpfr_init(r25525);
        mpfr_init(r25526);
}

double f_dm(double re, double im) {
        ;
        mpfr_set_d(r25519, re, MPFR_RNDN);
        mpfr_set_d(r25520, im, MPFR_RNDN);
        mpfr_hypot(r25521, r25519, r25520, MPFR_RNDN);
        ;
        mpfr_mul(r25523, r25519, r25522, MPFR_RNDN);
        mpfr_fma(r25524, r25521, r25522, r25523, MPFR_RNDN);
        mpfr_sqrt(r25525, r25524, MPFR_RNDN);
        mpfr_mul(r25526, r25518, r25525, MPFR_RNDN);
        return mpfr_get_d(r25526, MPFR_RNDN);
}