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

char *name = "3.9.1 imaginary part (p56)";

double f_if() {
        float r25189 = -1;
        float r25190 = 1;
        float r25191 = /* ERROR: no complex support in C */;
        float r25192 = r25191 * r25191;
        float r25193 = r25192 * r25191;
        float r25194 = r25193 * r25191;
        float r25195 = r25194 * r25191;
        float r25196 = r25195 * r25191;
        float r25197 = 6;
        float r25198 = 0;
        float r25199 = /* ERROR: no complex support in C */;
        float r25200 = r25199 * r25191;
        float r25201 = r25200 * r25191;
        float r25202 = r25201 * r25191;
        float r25203 = r25202 * r25191;
        float r25204 = r25203 * r25191;
        float r25205 = r25196 + r25204;
        float r25206 = 15;
        float r25207 = /* ERROR: no complex support in C */;
        float r25208 = r25207 * r25191;
        float r25209 = r25208 * r25191;
        float r25210 = r25209 * r25191;
        float r25211 = r25210 * r25191;
        float r25212 = r25205 + r25211;
        float r25213 = 20;
        float r25214 = /* ERROR: no complex support in C */;
        float r25215 = r25214 * r25191;
        float r25216 = r25215 * r25191;
        float r25217 = r25216 * r25191;
        float r25218 = r25212 + r25217;
        float r25219 = r25218 + r25209;
        float r25220 = r25219 + r25200;
        float r25221 = /* ERROR: no complex support in C */;
        float r25222 = r25220 + r25221;
        float r25223 = /* ERROR: no complex support in C */;
        return r25223;
}

double f_id() {
        double r25224 = -1;
        double r25225 = 1;
        double r25226 = /* ERROR: no complex support in C */;
        double r25227 = r25226 * r25226;
        double r25228 = r25227 * r25226;
        double r25229 = r25228 * r25226;
        double r25230 = r25229 * r25226;
        double r25231 = r25230 * r25226;
        double r25232 = 6;
        double r25233 = 0;
        double r25234 = /* ERROR: no complex support in C */;
        double r25235 = r25234 * r25226;
        double r25236 = r25235 * r25226;
        double r25237 = r25236 * r25226;
        double r25238 = r25237 * r25226;
        double r25239 = r25238 * r25226;
        double r25240 = r25231 + r25239;
        double r25241 = 15;
        double r25242 = /* ERROR: no complex support in C */;
        double r25243 = r25242 * r25226;
        double r25244 = r25243 * r25226;
        double r25245 = r25244 * r25226;
        double r25246 = r25245 * r25226;
        double r25247 = r25240 + r25246;
        double r25248 = 20;
        double r25249 = /* ERROR: no complex support in C */;
        double r25250 = r25249 * r25226;
        double r25251 = r25250 * r25226;
        double r25252 = r25251 * r25226;
        double r25253 = r25247 + r25252;
        double r25254 = r25253 + r25244;
        double r25255 = r25254 + r25235;
        double r25256 = /* ERROR: no complex support in C */;
        double r25257 = r25255 + r25256;
        double r25258 = /* ERROR: no complex support in C */;
        return r25258;
}


double f_of() {
        float r25259 = -1;
        float r25260 = 1;
        float r25261 = /* ERROR: no complex support in C */;
        float r25262 = r25261 * r25261;
        float r25263 = r25262 * r25261;
        float r25264 = r25263 * r25261;
        float r25265 = r25264 * r25261;
        float r25266 = r25265 * r25261;
        float r25267 = 6;
        float r25268 = 0;
        float r25269 = /* ERROR: no complex support in C */;
        float r25270 = r25269 * r25261;
        float r25271 = r25270 * r25261;
        float r25272 = r25271 * r25261;
        float r25273 = r25272 * r25261;
        float r25274 = r25273 * r25261;
        float r25275 = r25266 + r25274;
        float r25276 = 15;
        float r25277 = /* ERROR: no complex support in C */;
        float r25278 = r25277 * r25261;
        float r25279 = r25278 * r25261;
        float r25280 = r25279 * r25261;
        float r25281 = r25280 * r25261;
        float r25282 = r25275 + r25281;
        float r25283 = 20;
        float r25284 = /* ERROR: no complex support in C */;
        float r25285 = r25284 * r25261;
        float r25286 = r25285 * r25261;
        float r25287 = r25286 * r25261;
        float r25288 = r25282 + r25287;
        float r25289 = r25288 + r25279;
        float r25290 = r25289 + r25270;
        float r25291 = /* ERROR: no complex support in C */;
        float r25292 = r25290 + r25291;
        float r25293 = /* ERROR: no complex support in C */;
        return r25293;
}

double f_od() {
        double r25294 = -1;
        double r25295 = 1;
        double r25296 = /* ERROR: no complex support in C */;
        double r25297 = r25296 * r25296;
        double r25298 = r25297 * r25296;
        double r25299 = r25298 * r25296;
        double r25300 = r25299 * r25296;
        double r25301 = r25300 * r25296;
        double r25302 = 6;
        double r25303 = 0;
        double r25304 = /* ERROR: no complex support in C */;
        double r25305 = r25304 * r25296;
        double r25306 = r25305 * r25296;
        double r25307 = r25306 * r25296;
        double r25308 = r25307 * r25296;
        double r25309 = r25308 * r25296;
        double r25310 = r25301 + r25309;
        double r25311 = 15;
        double r25312 = /* ERROR: no complex support in C */;
        double r25313 = r25312 * r25296;
        double r25314 = r25313 * r25296;
        double r25315 = r25314 * r25296;
        double r25316 = r25315 * r25296;
        double r25317 = r25310 + r25316;
        double r25318 = 20;
        double r25319 = /* ERROR: no complex support in C */;
        double r25320 = r25319 * r25296;
        double r25321 = r25320 * r25296;
        double r25322 = r25321 * r25296;
        double r25323 = r25317 + r25322;
        double r25324 = r25323 + r25314;
        double r25325 = r25324 + r25305;
        double r25326 = /* ERROR: no complex support in C */;
        double r25327 = r25325 + r25326;
        double r25328 = /* ERROR: no complex support in C */;
        return r25328;
}

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 r25329, r25330, r25331, r25332, r25333, r25334, r25335, r25336, r25337, r25338, r25339, r25340, r25341, r25342, r25343, r25344, r25345, r25346, r25347, r25348, r25349, r25350, r25351, r25352, r25353, r25354, r25355, r25356, r25357, r25358, r25359, r25360, r25361, r25362, r25363;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(336);
        mpfr_init_set_str(r25329, "-1", 10, MPFR_RNDN);
        mpfr_init_set_str(r25330, "1", 10, MPFR_RNDN);
        mpfr_init(r25331);
        mpfr_init(r25332);
        mpfr_init(r25333);
        mpfr_init(r25334);
        mpfr_init(r25335);
        mpfr_init(r25336);
        mpfr_init_set_str(r25337, "6", 10, MPFR_RNDN);
        mpfr_init_set_str(r25338, "0", 10, MPFR_RNDN);
        mpfr_init(r25339);
        mpfr_init(r25340);
        mpfr_init(r25341);
        mpfr_init(r25342);
        mpfr_init(r25343);
        mpfr_init(r25344);
        mpfr_init(r25345);
        mpfr_init_set_str(r25346, "15", 10, MPFR_RNDN);
        mpfr_init(r25347);
        mpfr_init(r25348);
        mpfr_init(r25349);
        mpfr_init(r25350);
        mpfr_init(r25351);
        mpfr_init(r25352);
        mpfr_init_set_str(r25353, "20", 10, MPFR_RNDN);
        mpfr_init(r25354);
        mpfr_init(r25355);
        mpfr_init(r25356);
        mpfr_init(r25357);
        mpfr_init(r25358);
        mpfr_init(r25359);
        mpfr_init(r25360);
        mpfr_init(r25361);
        mpfr_init(r25362);
        mpfr_init(r25363);
}

double f_im() {
        ;
        ;
        /* ERROR: no complex support in C */;
        mpfr_mul(r25332, r25331, r25331, MPFR_RNDN);
        mpfr_mul(r25333, r25332, r25331, MPFR_RNDN);
        mpfr_mul(r25334, r25333, r25331, MPFR_RNDN);
        mpfr_mul(r25335, r25334, r25331, MPFR_RNDN);
        mpfr_mul(r25336, r25335, r25331, MPFR_RNDN);
        ;
        ;
        /* ERROR: no complex support in C */;
        mpfr_mul(r25340, r25339, r25331, MPFR_RNDN);
        mpfr_mul(r25341, r25340, r25331, MPFR_RNDN);
        mpfr_mul(r25342, r25341, r25331, MPFR_RNDN);
        mpfr_mul(r25343, r25342, r25331, MPFR_RNDN);
        mpfr_mul(r25344, r25343, r25331, MPFR_RNDN);
        mpfr_add(r25345, r25336, r25344, MPFR_RNDN);
        ;
        /* ERROR: no complex support in C */;
        mpfr_mul(r25348, r25347, r25331, MPFR_RNDN);
        mpfr_mul(r25349, r25348, r25331, MPFR_RNDN);
        mpfr_mul(r25350, r25349, r25331, MPFR_RNDN);
        mpfr_mul(r25351, r25350, r25331, MPFR_RNDN);
        mpfr_add(r25352, r25345, r25351, MPFR_RNDN);
        ;
        /* ERROR: no complex support in C */;
        mpfr_mul(r25355, r25354, r25331, MPFR_RNDN);
        mpfr_mul(r25356, r25355, r25331, MPFR_RNDN);
        mpfr_mul(r25357, r25356, r25331, MPFR_RNDN);
        mpfr_add(r25358, r25352, r25357, MPFR_RNDN);
        mpfr_add(r25359, r25358, r25349, MPFR_RNDN);
        mpfr_add(r25360, r25359, r25340, MPFR_RNDN);
        /* ERROR: no complex support in C */;
        mpfr_add(r25362, r25360, r25361, MPFR_RNDN);
        /* ERROR: no complex support in C */;
        return mpfr_get_d(r25363, MPFR_RNDN);
}

static mpfr_t r25364, r25365, r25366, r25367, r25368, r25369, r25370, r25371, r25372, r25373, r25374, r25375, r25376, r25377, r25378, r25379, r25380, r25381, r25382, r25383, r25384, r25385, r25386, r25387, r25388, r25389, r25390, r25391, r25392, r25393, r25394, r25395, r25396, r25397, r25398;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(336);
        mpfr_init_set_str(r25364, "-1", 10, MPFR_RNDN);
        mpfr_init_set_str(r25365, "1", 10, MPFR_RNDN);
        mpfr_init(r25366);
        mpfr_init(r25367);
        mpfr_init(r25368);
        mpfr_init(r25369);
        mpfr_init(r25370);
        mpfr_init(r25371);
        mpfr_init_set_str(r25372, "6", 10, MPFR_RNDN);
        mpfr_init_set_str(r25373, "0", 10, MPFR_RNDN);
        mpfr_init(r25374);
        mpfr_init(r25375);
        mpfr_init(r25376);
        mpfr_init(r25377);
        mpfr_init(r25378);
        mpfr_init(r25379);
        mpfr_init(r25380);
        mpfr_init_set_str(r25381, "15", 10, MPFR_RNDN);
        mpfr_init(r25382);
        mpfr_init(r25383);
        mpfr_init(r25384);
        mpfr_init(r25385);
        mpfr_init(r25386);
        mpfr_init(r25387);
        mpfr_init_set_str(r25388, "20", 10, MPFR_RNDN);
        mpfr_init(r25389);
        mpfr_init(r25390);
        mpfr_init(r25391);
        mpfr_init(r25392);
        mpfr_init(r25393);
        mpfr_init(r25394);
        mpfr_init(r25395);
        mpfr_init(r25396);
        mpfr_init(r25397);
        mpfr_init(r25398);
}

double f_fm() {
        ;
        ;
        /* ERROR: no complex support in C */;
        mpfr_mul(r25367, r25366, r25366, MPFR_RNDN);
        mpfr_mul(r25368, r25367, r25366, MPFR_RNDN);
        mpfr_mul(r25369, r25368, r25366, MPFR_RNDN);
        mpfr_mul(r25370, r25369, r25366, MPFR_RNDN);
        mpfr_mul(r25371, r25370, r25366, MPFR_RNDN);
        ;
        ;
        /* ERROR: no complex support in C */;
        mpfr_mul(r25375, r25374, r25366, MPFR_RNDN);
        mpfr_mul(r25376, r25375, r25366, MPFR_RNDN);
        mpfr_mul(r25377, r25376, r25366, MPFR_RNDN);
        mpfr_mul(r25378, r25377, r25366, MPFR_RNDN);
        mpfr_mul(r25379, r25378, r25366, MPFR_RNDN);
        mpfr_add(r25380, r25371, r25379, MPFR_RNDN);
        ;
        /* ERROR: no complex support in C */;
        mpfr_mul(r25383, r25382, r25366, MPFR_RNDN);
        mpfr_mul(r25384, r25383, r25366, MPFR_RNDN);
        mpfr_mul(r25385, r25384, r25366, MPFR_RNDN);
        mpfr_mul(r25386, r25385, r25366, MPFR_RNDN);
        mpfr_add(r25387, r25380, r25386, MPFR_RNDN);
        ;
        /* ERROR: no complex support in C */;
        mpfr_mul(r25390, r25389, r25366, MPFR_RNDN);
        mpfr_mul(r25391, r25390, r25366, MPFR_RNDN);
        mpfr_mul(r25392, r25391, r25366, MPFR_RNDN);
        mpfr_add(r25393, r25387, r25392, MPFR_RNDN);
        mpfr_add(r25394, r25393, r25384, MPFR_RNDN);
        mpfr_add(r25395, r25394, r25375, MPFR_RNDN);
        /* ERROR: no complex support in C */;
        mpfr_add(r25397, r25395, r25396, MPFR_RNDN);
        /* ERROR: no complex support in C */;
        return mpfr_get_d(r25398, MPFR_RNDN);
}

static mpfr_t r25399, r25400, r25401, r25402, r25403, r25404, r25405, r25406, r25407, r25408, r25409, r25410, r25411, r25412, r25413, r25414, r25415, r25416, r25417, r25418, r25419, r25420, r25421, r25422, r25423, r25424, r25425, r25426, r25427, r25428, r25429, r25430, r25431, r25432, r25433;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(336);
        mpfr_init_set_str(r25399, "-1", 10, MPFR_RNDN);
        mpfr_init_set_str(r25400, "1", 10, MPFR_RNDN);
        mpfr_init(r25401);
        mpfr_init(r25402);
        mpfr_init(r25403);
        mpfr_init(r25404);
        mpfr_init(r25405);
        mpfr_init(r25406);
        mpfr_init_set_str(r25407, "6", 10, MPFR_RNDN);
        mpfr_init_set_str(r25408, "0", 10, MPFR_RNDN);
        mpfr_init(r25409);
        mpfr_init(r25410);
        mpfr_init(r25411);
        mpfr_init(r25412);
        mpfr_init(r25413);
        mpfr_init(r25414);
        mpfr_init(r25415);
        mpfr_init_set_str(r25416, "15", 10, MPFR_RNDN);
        mpfr_init(r25417);
        mpfr_init(r25418);
        mpfr_init(r25419);
        mpfr_init(r25420);
        mpfr_init(r25421);
        mpfr_init(r25422);
        mpfr_init_set_str(r25423, "20", 10, MPFR_RNDN);
        mpfr_init(r25424);
        mpfr_init(r25425);
        mpfr_init(r25426);
        mpfr_init(r25427);
        mpfr_init(r25428);
        mpfr_init(r25429);
        mpfr_init(r25430);
        mpfr_init(r25431);
        mpfr_init(r25432);
        mpfr_init(r25433);
}

double f_dm() {
        ;
        ;
        /* ERROR: no complex support in C */;
        mpfr_mul(r25402, r25401, r25401, MPFR_RNDN);
        mpfr_mul(r25403, r25402, r25401, MPFR_RNDN);
        mpfr_mul(r25404, r25403, r25401, MPFR_RNDN);
        mpfr_mul(r25405, r25404, r25401, MPFR_RNDN);
        mpfr_mul(r25406, r25405, r25401, MPFR_RNDN);
        ;
        ;
        /* ERROR: no complex support in C */;
        mpfr_mul(r25410, r25409, r25401, MPFR_RNDN);
        mpfr_mul(r25411, r25410, r25401, MPFR_RNDN);
        mpfr_mul(r25412, r25411, r25401, MPFR_RNDN);
        mpfr_mul(r25413, r25412, r25401, MPFR_RNDN);
        mpfr_mul(r25414, r25413, r25401, MPFR_RNDN);
        mpfr_add(r25415, r25406, r25414, MPFR_RNDN);
        ;
        /* ERROR: no complex support in C */;
        mpfr_mul(r25418, r25417, r25401, MPFR_RNDN);
        mpfr_mul(r25419, r25418, r25401, MPFR_RNDN);
        mpfr_mul(r25420, r25419, r25401, MPFR_RNDN);
        mpfr_mul(r25421, r25420, r25401, MPFR_RNDN);
        mpfr_add(r25422, r25415, r25421, MPFR_RNDN);
        ;
        /* ERROR: no complex support in C */;
        mpfr_mul(r25425, r25424, r25401, MPFR_RNDN);
        mpfr_mul(r25426, r25425, r25401, MPFR_RNDN);
        mpfr_mul(r25427, r25426, r25401, MPFR_RNDN);
        mpfr_add(r25428, r25422, r25427, MPFR_RNDN);
        mpfr_add(r25429, r25428, r25419, MPFR_RNDN);
        mpfr_add(r25430, r25429, r25410, MPFR_RNDN);
        /* ERROR: no complex support in C */;
        mpfr_add(r25432, r25430, r25431, MPFR_RNDN);
        /* ERROR: no complex support in C */;
        return mpfr_get_d(r25433, MPFR_RNDN);
}