#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 r8680 = -1.0f;
        float r8681 = 1.0f;
        float r8682 = /* ERROR: no complex support in C */;
        float r8683 = r8682 * r8682;
        float r8684 = r8683 * r8682;
        float r8685 = r8684 * r8682;
        float r8686 = r8685 * r8682;
        float r8687 = r8686 * r8682;
        float r8688 = 6.0f;
        float r8689 = 0.0f;
        float r8690 = /* ERROR: no complex support in C */;
        float r8691 = r8690 * r8682;
        float r8692 = r8691 * r8682;
        float r8693 = r8692 * r8682;
        float r8694 = r8693 * r8682;
        float r8695 = r8694 * r8682;
        float r8696 = r8687 + r8695;
        float r8697 = 15.0f;
        float r8698 = /* ERROR: no complex support in C */;
        float r8699 = r8698 * r8682;
        float r8700 = r8699 * r8682;
        float r8701 = r8700 * r8682;
        float r8702 = r8701 * r8682;
        float r8703 = r8696 + r8702;
        float r8704 = 20.0f;
        float r8705 = /* ERROR: no complex support in C */;
        float r8706 = r8705 * r8682;
        float r8707 = r8706 * r8682;
        float r8708 = r8707 * r8682;
        float r8709 = r8703 + r8708;
        float r8710 = r8709 + r8700;
        float r8711 = r8710 + r8691;
        float r8712 = /* ERROR: no complex support in C */;
        float r8713 = r8711 + r8712;
        float r8714 = /* ERROR: no complex support in C */;
        return r8714;
}

double f_id() {
        double r8715 = -1.0;
        double r8716 = 1.0;
        double r8717 = /* ERROR: no complex support in C */;
        double r8718 = r8717 * r8717;
        double r8719 = r8718 * r8717;
        double r8720 = r8719 * r8717;
        double r8721 = r8720 * r8717;
        double r8722 = r8721 * r8717;
        double r8723 = 6.0;
        double r8724 = 0.0;
        double r8725 = /* ERROR: no complex support in C */;
        double r8726 = r8725 * r8717;
        double r8727 = r8726 * r8717;
        double r8728 = r8727 * r8717;
        double r8729 = r8728 * r8717;
        double r8730 = r8729 * r8717;
        double r8731 = r8722 + r8730;
        double r8732 = 15.0;
        double r8733 = /* ERROR: no complex support in C */;
        double r8734 = r8733 * r8717;
        double r8735 = r8734 * r8717;
        double r8736 = r8735 * r8717;
        double r8737 = r8736 * r8717;
        double r8738 = r8731 + r8737;
        double r8739 = 20.0;
        double r8740 = /* ERROR: no complex support in C */;
        double r8741 = r8740 * r8717;
        double r8742 = r8741 * r8717;
        double r8743 = r8742 * r8717;
        double r8744 = r8738 + r8743;
        double r8745 = r8744 + r8735;
        double r8746 = r8745 + r8726;
        double r8747 = /* ERROR: no complex support in C */;
        double r8748 = r8746 + r8747;
        double r8749 = /* ERROR: no complex support in C */;
        return r8749;
}


double f_of() {
        float r8750 = 6.0f;
        float r8751 = 0.0f;
        float r8752 = /* ERROR: no complex support in C */;
        float r8753 = -1.0f;
        float r8754 = 1.0f;
        float r8755 = /* ERROR: no complex support in C */;
        float r8756 = r8752 * r8755;
        float r8757 = 15.0f;
        float r8758 = /* ERROR: no complex support in C */;
        float r8759 = r8755 * r8758;
        float r8760 = r8755 * r8759;
        float r8761 = 20.0f;
        float r8762 = /* ERROR: no complex support in C */;
        float r8763 = r8762 * r8755;
        float r8764 = r8755 * r8763;
        float r8765 = r8764 * r8755;
        float r8766 = r8755 * r8756;
        float r8767 = r8766 * r8755;
        float r8768 = r8755 * r8767;
        float r8769 = r8768 * r8755;
        float r8770 = r8755 * r8755;
        float r8771 = r8770 * r8755;
        float r8772 = r8755 * r8771;
        float r8773 = r8755 * r8772;
        float r8774 = r8773 * r8755;
        float r8775 = r8769 + r8774;
        float r8776 = r8755 * r8760;
        float r8777 = r8755 * r8776;
        float r8778 = r8775 + r8777;
        float r8779 = r8765 + r8778;
        float r8780 = r8760 + r8779;
        float r8781 = r8756 + r8780;
        float r8782 = /* ERROR: no complex support in C */;
        float r8783 = r8781 + r8782;
        float r8784 = /* ERROR: no complex support in C */;
        return r8784;
}

double f_od() {
        double r8785 = 6.0;
        double r8786 = 0.0;
        double r8787 = /* ERROR: no complex support in C */;
        double r8788 = -1.0;
        double r8789 = 1.0;
        double r8790 = /* ERROR: no complex support in C */;
        double r8791 = r8787 * r8790;
        double r8792 = 15.0;
        double r8793 = /* ERROR: no complex support in C */;
        double r8794 = r8790 * r8793;
        double r8795 = r8790 * r8794;
        double r8796 = 20.0;
        double r8797 = /* ERROR: no complex support in C */;
        double r8798 = r8797 * r8790;
        double r8799 = r8790 * r8798;
        double r8800 = r8799 * r8790;
        double r8801 = r8790 * r8791;
        double r8802 = r8801 * r8790;
        double r8803 = r8790 * r8802;
        double r8804 = r8803 * r8790;
        double r8805 = r8790 * r8790;
        double r8806 = r8805 * r8790;
        double r8807 = r8790 * r8806;
        double r8808 = r8790 * r8807;
        double r8809 = r8808 * r8790;
        double r8810 = r8804 + r8809;
        double r8811 = r8790 * r8795;
        double r8812 = r8790 * r8811;
        double r8813 = r8810 + r8812;
        double r8814 = r8800 + r8813;
        double r8815 = r8795 + r8814;
        double r8816 = r8791 + r8815;
        double r8817 = /* ERROR: no complex support in C */;
        double r8818 = r8816 + r8817;
        double r8819 = /* ERROR: no complex support in C */;
        return r8819;
}

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 r8820, r8821, r8822, r8823, r8824, r8825, r8826, r8827, r8828, r8829, r8830, r8831, r8832, r8833, r8834, r8835, r8836, r8837, r8838, r8839, r8840, r8841, r8842, r8843, r8844, r8845, r8846, r8847, r8848, r8849, r8850, r8851, r8852, r8853, r8854;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(336);
        mpfr_init_set_str(r8820, "-1", 10, MPFR_RNDN);
        mpfr_init_set_str(r8821, "1", 10, MPFR_RNDN);
        mpfr_init(r8822);
        mpfr_init(r8823);
        mpfr_init(r8824);
        mpfr_init(r8825);
        mpfr_init(r8826);
        mpfr_init(r8827);
        mpfr_init_set_str(r8828, "6", 10, MPFR_RNDN);
        mpfr_init_set_str(r8829, "0", 10, MPFR_RNDN);
        mpfr_init(r8830);
        mpfr_init(r8831);
        mpfr_init(r8832);
        mpfr_init(r8833);
        mpfr_init(r8834);
        mpfr_init(r8835);
        mpfr_init(r8836);
        mpfr_init_set_str(r8837, "15", 10, MPFR_RNDN);
        mpfr_init(r8838);
        mpfr_init(r8839);
        mpfr_init(r8840);
        mpfr_init(r8841);
        mpfr_init(r8842);
        mpfr_init(r8843);
        mpfr_init_set_str(r8844, "20", 10, MPFR_RNDN);
        mpfr_init(r8845);
        mpfr_init(r8846);
        mpfr_init(r8847);
        mpfr_init(r8848);
        mpfr_init(r8849);
        mpfr_init(r8850);
        mpfr_init(r8851);
        mpfr_init(r8852);
        mpfr_init(r8853);
        mpfr_init(r8854);
}

double f_im() {
        ;
        ;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        ;
        ;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        ;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        ;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        return mpfr_get_d(r8854, MPFR_RNDN);
}

static mpfr_t r8855, r8856, r8857, r8858, r8859, r8860, r8861, r8862, r8863, r8864, r8865, r8866, r8867, r8868, r8869, r8870, r8871, r8872, r8873, r8874, r8875, r8876, r8877, r8878, r8879, r8880, r8881, r8882, r8883, r8884, r8885, r8886, r8887, r8888, r8889;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(336);
        mpfr_init_set_str(r8855, "6", 10, MPFR_RNDN);
        mpfr_init_set_str(r8856, "0", 10, MPFR_RNDN);
        mpfr_init(r8857);
        mpfr_init_set_str(r8858, "-1", 10, MPFR_RNDN);
        mpfr_init_set_str(r8859, "1", 10, MPFR_RNDN);
        mpfr_init(r8860);
        mpfr_init(r8861);
        mpfr_init_set_str(r8862, "15", 10, MPFR_RNDN);
        mpfr_init(r8863);
        mpfr_init(r8864);
        mpfr_init(r8865);
        mpfr_init_set_str(r8866, "20", 10, MPFR_RNDN);
        mpfr_init(r8867);
        mpfr_init(r8868);
        mpfr_init(r8869);
        mpfr_init(r8870);
        mpfr_init(r8871);
        mpfr_init(r8872);
        mpfr_init(r8873);
        mpfr_init(r8874);
        mpfr_init(r8875);
        mpfr_init(r8876);
        mpfr_init(r8877);
        mpfr_init(r8878);
        mpfr_init(r8879);
        mpfr_init(r8880);
        mpfr_init(r8881);
        mpfr_init(r8882);
        mpfr_init(r8883);
        mpfr_init(r8884);
        mpfr_init(r8885);
        mpfr_init(r8886);
        mpfr_init(r8887);
        mpfr_init(r8888);
        mpfr_init(r8889);
}

double f_fm() {
        ;
        ;
        /* ERROR: no complex support in C */;
        ;
        ;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        ;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        ;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        return mpfr_get_d(r8889, MPFR_RNDN);
}

static mpfr_t r8890, r8891, r8892, r8893, r8894, r8895, r8896, r8897, r8898, r8899, r8900, r8901, r8902, r8903, r8904, r8905, r8906, r8907, r8908, r8909, r8910, r8911, r8912, r8913, r8914, r8915, r8916, r8917, r8918, r8919, r8920, r8921, r8922, r8923, r8924;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(336);
        mpfr_init_set_str(r8890, "6", 10, MPFR_RNDN);
        mpfr_init_set_str(r8891, "0", 10, MPFR_RNDN);
        mpfr_init(r8892);
        mpfr_init_set_str(r8893, "-1", 10, MPFR_RNDN);
        mpfr_init_set_str(r8894, "1", 10, MPFR_RNDN);
        mpfr_init(r8895);
        mpfr_init(r8896);
        mpfr_init_set_str(r8897, "15", 10, MPFR_RNDN);
        mpfr_init(r8898);
        mpfr_init(r8899);
        mpfr_init(r8900);
        mpfr_init_set_str(r8901, "20", 10, MPFR_RNDN);
        mpfr_init(r8902);
        mpfr_init(r8903);
        mpfr_init(r8904);
        mpfr_init(r8905);
        mpfr_init(r8906);
        mpfr_init(r8907);
        mpfr_init(r8908);
        mpfr_init(r8909);
        mpfr_init(r8910);
        mpfr_init(r8911);
        mpfr_init(r8912);
        mpfr_init(r8913);
        mpfr_init(r8914);
        mpfr_init(r8915);
        mpfr_init(r8916);
        mpfr_init(r8917);
        mpfr_init(r8918);
        mpfr_init(r8919);
        mpfr_init(r8920);
        mpfr_init(r8921);
        mpfr_init(r8922);
        mpfr_init(r8923);
        mpfr_init(r8924);
}

double f_dm() {
        ;
        ;
        /* ERROR: no complex support in C */;
        ;
        ;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        ;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        ;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        /* ERROR: no complex support in C */;
        return mpfr_get_d(r8924, MPFR_RNDN);
}