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

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

double f_if() {
        float r8838 = -1;
        float r8839 = 1;
        float r8840 = /* ERROR: no complex support in C */;
        float r8841 = r8840 * r8840;
        float r8842 = r8841 * r8840;
        float r8843 = r8842 * r8840;
        float r8844 = r8843 * r8840;
        float r8845 = r8844 * r8840;
        float r8846 = 6;
        float r8847 = 0;
        float r8848 = /* ERROR: no complex support in C */;
        float r8849 = r8848 * r8840;
        float r8850 = r8849 * r8840;
        float r8851 = r8850 * r8840;
        float r8852 = r8851 * r8840;
        float r8853 = r8852 * r8840;
        float r8854 = r8845 + r8853;
        float r8855 = 15;
        float r8856 = /* ERROR: no complex support in C */;
        float r8857 = r8856 * r8840;
        float r8858 = r8857 * r8840;
        float r8859 = r8858 * r8840;
        float r8860 = r8859 * r8840;
        float r8861 = r8854 + r8860;
        float r8862 = 20;
        float r8863 = /* ERROR: no complex support in C */;
        float r8864 = r8863 * r8840;
        float r8865 = r8864 * r8840;
        float r8866 = r8865 * r8840;
        float r8867 = r8861 + r8866;
        float r8868 = r8867 + r8858;
        float r8869 = r8868 + r8849;
        float r8870 = /* ERROR: no complex support in C */;
        float r8871 = r8869 + r8870;
        float r8872 = /* ERROR: no complex support in C */;
        return r8872;
}

double f_id() {
        double r8873 = -1;
        double r8874 = 1;
        double r8875 = /* ERROR: no complex support in C */;
        double r8876 = r8875 * r8875;
        double r8877 = r8876 * r8875;
        double r8878 = r8877 * r8875;
        double r8879 = r8878 * r8875;
        double r8880 = r8879 * r8875;
        double r8881 = 6;
        double r8882 = 0;
        double r8883 = /* ERROR: no complex support in C */;
        double r8884 = r8883 * r8875;
        double r8885 = r8884 * r8875;
        double r8886 = r8885 * r8875;
        double r8887 = r8886 * r8875;
        double r8888 = r8887 * r8875;
        double r8889 = r8880 + r8888;
        double r8890 = 15;
        double r8891 = /* ERROR: no complex support in C */;
        double r8892 = r8891 * r8875;
        double r8893 = r8892 * r8875;
        double r8894 = r8893 * r8875;
        double r8895 = r8894 * r8875;
        double r8896 = r8889 + r8895;
        double r8897 = 20;
        double r8898 = /* ERROR: no complex support in C */;
        double r8899 = r8898 * r8875;
        double r8900 = r8899 * r8875;
        double r8901 = r8900 * r8875;
        double r8902 = r8896 + r8901;
        double r8903 = r8902 + r8893;
        double r8904 = r8903 + r8884;
        double r8905 = /* ERROR: no complex support in C */;
        double r8906 = r8904 + r8905;
        double r8907 = /* ERROR: no complex support in C */;
        return r8907;
}


double f_of() {
        float r8908 = -1;
        float r8909 = 1;
        float r8910 = /* ERROR: no complex support in C */;
        float r8911 = r8910 * r8910;
        float r8912 = r8911 * r8910;
        float r8913 = r8912 * r8910;
        float r8914 = r8913 * r8910;
        float r8915 = r8914 * r8910;
        float r8916 = 6;
        float r8917 = 0;
        float r8918 = /* ERROR: no complex support in C */;
        float r8919 = r8918 * r8910;
        float r8920 = r8919 * r8910;
        float r8921 = r8920 * r8910;
        float r8922 = r8921 * r8910;
        float r8923 = r8922 * r8910;
        float r8924 = r8915 + r8923;
        float r8925 = 15;
        float r8926 = /* ERROR: no complex support in C */;
        float r8927 = r8926 * r8910;
        float r8928 = r8927 * r8910;
        float r8929 = r8928 * r8910;
        float r8930 = r8929 * r8910;
        float r8931 = r8924 + r8930;
        float r8932 = 20;
        float r8933 = /* ERROR: no complex support in C */;
        float r8934 = r8933 * r8910;
        float r8935 = r8934 * r8910;
        float r8936 = r8935 * r8910;
        float r8937 = r8931 + r8936;
        float r8938 = r8937 + r8928;
        float r8939 = r8938 + r8919;
        float r8940 = /* ERROR: no complex support in C */;
        float r8941 = r8939 + r8940;
        float r8942 = /* ERROR: no complex support in C */;
        return r8942;
}

double f_od() {
        double r8943 = -1;
        double r8944 = 1;
        double r8945 = /* ERROR: no complex support in C */;
        double r8946 = r8945 * r8945;
        double r8947 = r8946 * r8945;
        double r8948 = r8947 * r8945;
        double r8949 = r8948 * r8945;
        double r8950 = r8949 * r8945;
        double r8951 = 6;
        double r8952 = 0;
        double r8953 = /* ERROR: no complex support in C */;
        double r8954 = r8953 * r8945;
        double r8955 = r8954 * r8945;
        double r8956 = r8955 * r8945;
        double r8957 = r8956 * r8945;
        double r8958 = r8957 * r8945;
        double r8959 = r8950 + r8958;
        double r8960 = 15;
        double r8961 = /* ERROR: no complex support in C */;
        double r8962 = r8961 * r8945;
        double r8963 = r8962 * r8945;
        double r8964 = r8963 * r8945;
        double r8965 = r8964 * r8945;
        double r8966 = r8959 + r8965;
        double r8967 = 20;
        double r8968 = /* ERROR: no complex support in C */;
        double r8969 = r8968 * r8945;
        double r8970 = r8969 * r8945;
        double r8971 = r8970 * r8945;
        double r8972 = r8966 + r8971;
        double r8973 = r8972 + r8963;
        double r8974 = r8973 + r8954;
        double r8975 = /* ERROR: no complex support in C */;
        double r8976 = r8974 + r8975;
        double r8977 = /* ERROR: no complex support in C */;
        return r8977;
}

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 r8978, r8979, r8980, r8981, r8982, r8983, r8984, r8985, r8986, r8987, r8988, r8989, r8990, r8991, r8992, r8993, r8994, r8995, r8996, r8997, r8998, r8999, r9000, r9001, r9002, r9003, r9004, r9005, r9006, r9007, r9008, r9009, r9010, r9011, r9012;

void setup_mpfr_f_im() {
        mpfr_set_default_prec(336);
        mpfr_init_set_str(r8978, "-1", 10, MPFR_RNDN);
        mpfr_init_set_str(r8979, "1", 10, MPFR_RNDN);
        mpfr_init(r8980);
        mpfr_init(r8981);
        mpfr_init(r8982);
        mpfr_init(r8983);
        mpfr_init(r8984);
        mpfr_init(r8985);
        mpfr_init_set_str(r8986, "6", 10, MPFR_RNDN);
        mpfr_init_set_str(r8987, "0", 10, MPFR_RNDN);
        mpfr_init(r8988);
        mpfr_init(r8989);
        mpfr_init(r8990);
        mpfr_init(r8991);
        mpfr_init(r8992);
        mpfr_init(r8993);
        mpfr_init(r8994);
        mpfr_init_set_str(r8995, "15", 10, MPFR_RNDN);
        mpfr_init(r8996);
        mpfr_init(r8997);
        mpfr_init(r8998);
        mpfr_init(r8999);
        mpfr_init(r9000);
        mpfr_init(r9001);
        mpfr_init_set_str(r9002, "20", 10, MPFR_RNDN);
        mpfr_init(r9003);
        mpfr_init(r9004);
        mpfr_init(r9005);
        mpfr_init(r9006);
        mpfr_init(r9007);
        mpfr_init(r9008);
        mpfr_init(r9009);
        mpfr_init(r9010);
        mpfr_init(r9011);
        mpfr_init(r9012);
}

double f_im() {
        ;
        ;
        /* ERROR: no complex support in C */;
        mpfr_mul(r8981, r8980, r8980, MPFR_RNDN);
        mpfr_mul(r8982, r8981, r8980, MPFR_RNDN);
        mpfr_mul(r8983, r8982, r8980, MPFR_RNDN);
        mpfr_mul(r8984, r8983, r8980, MPFR_RNDN);
        mpfr_mul(r8985, r8984, r8980, MPFR_RNDN);
        ;
        ;
        /* ERROR: no complex support in C */;
        mpfr_mul(r8989, r8988, r8980, MPFR_RNDN);
        mpfr_mul(r8990, r8989, r8980, MPFR_RNDN);
        mpfr_mul(r8991, r8990, r8980, MPFR_RNDN);
        mpfr_mul(r8992, r8991, r8980, MPFR_RNDN);
        mpfr_mul(r8993, r8992, r8980, MPFR_RNDN);
        mpfr_add(r8994, r8985, r8993, MPFR_RNDN);
        ;
        /* ERROR: no complex support in C */;
        mpfr_mul(r8997, r8996, r8980, MPFR_RNDN);
        mpfr_mul(r8998, r8997, r8980, MPFR_RNDN);
        mpfr_mul(r8999, r8998, r8980, MPFR_RNDN);
        mpfr_mul(r9000, r8999, r8980, MPFR_RNDN);
        mpfr_add(r9001, r8994, r9000, MPFR_RNDN);
        ;
        /* ERROR: no complex support in C */;
        mpfr_mul(r9004, r9003, r8980, MPFR_RNDN);
        mpfr_mul(r9005, r9004, r8980, MPFR_RNDN);
        mpfr_mul(r9006, r9005, r8980, MPFR_RNDN);
        mpfr_add(r9007, r9001, r9006, MPFR_RNDN);
        mpfr_add(r9008, r9007, r8998, MPFR_RNDN);
        mpfr_add(r9009, r9008, r8989, MPFR_RNDN);
        /* ERROR: no complex support in C */;
        mpfr_add(r9011, r9009, r9010, MPFR_RNDN);
        /* ERROR: no complex support in C */;
        return mpfr_get_d(r9012, MPFR_RNDN);
}

static mpfr_t r9013, r9014, r9015, r9016, r9017, r9018, r9019, r9020, r9021, r9022, r9023, r9024, r9025, r9026, r9027, r9028, r9029, r9030, r9031, r9032, r9033, r9034, r9035, r9036, r9037, r9038, r9039, r9040, r9041, r9042, r9043, r9044, r9045, r9046, r9047;

void setup_mpfr_f_fm() {
        mpfr_set_default_prec(336);
        mpfr_init_set_str(r9013, "-1", 10, MPFR_RNDN);
        mpfr_init_set_str(r9014, "1", 10, MPFR_RNDN);
        mpfr_init(r9015);
        mpfr_init(r9016);
        mpfr_init(r9017);
        mpfr_init(r9018);
        mpfr_init(r9019);
        mpfr_init(r9020);
        mpfr_init_set_str(r9021, "6", 10, MPFR_RNDN);
        mpfr_init_set_str(r9022, "0", 10, MPFR_RNDN);
        mpfr_init(r9023);
        mpfr_init(r9024);
        mpfr_init(r9025);
        mpfr_init(r9026);
        mpfr_init(r9027);
        mpfr_init(r9028);
        mpfr_init(r9029);
        mpfr_init_set_str(r9030, "15", 10, MPFR_RNDN);
        mpfr_init(r9031);
        mpfr_init(r9032);
        mpfr_init(r9033);
        mpfr_init(r9034);
        mpfr_init(r9035);
        mpfr_init(r9036);
        mpfr_init_set_str(r9037, "20", 10, MPFR_RNDN);
        mpfr_init(r9038);
        mpfr_init(r9039);
        mpfr_init(r9040);
        mpfr_init(r9041);
        mpfr_init(r9042);
        mpfr_init(r9043);
        mpfr_init(r9044);
        mpfr_init(r9045);
        mpfr_init(r9046);
        mpfr_init(r9047);
}

double f_fm() {
        ;
        ;
        /* ERROR: no complex support in C */;
        mpfr_mul(r9016, r9015, r9015, MPFR_RNDN);
        mpfr_mul(r9017, r9016, r9015, MPFR_RNDN);
        mpfr_mul(r9018, r9017, r9015, MPFR_RNDN);
        mpfr_mul(r9019, r9018, r9015, MPFR_RNDN);
        mpfr_mul(r9020, r9019, r9015, MPFR_RNDN);
        ;
        ;
        /* ERROR: no complex support in C */;
        mpfr_mul(r9024, r9023, r9015, MPFR_RNDN);
        mpfr_mul(r9025, r9024, r9015, MPFR_RNDN);
        mpfr_mul(r9026, r9025, r9015, MPFR_RNDN);
        mpfr_mul(r9027, r9026, r9015, MPFR_RNDN);
        mpfr_mul(r9028, r9027, r9015, MPFR_RNDN);
        mpfr_add(r9029, r9020, r9028, MPFR_RNDN);
        ;
        /* ERROR: no complex support in C */;
        mpfr_mul(r9032, r9031, r9015, MPFR_RNDN);
        mpfr_mul(r9033, r9032, r9015, MPFR_RNDN);
        mpfr_mul(r9034, r9033, r9015, MPFR_RNDN);
        mpfr_mul(r9035, r9034, r9015, MPFR_RNDN);
        mpfr_add(r9036, r9029, r9035, MPFR_RNDN);
        ;
        /* ERROR: no complex support in C */;
        mpfr_mul(r9039, r9038, r9015, MPFR_RNDN);
        mpfr_mul(r9040, r9039, r9015, MPFR_RNDN);
        mpfr_mul(r9041, r9040, r9015, MPFR_RNDN);
        mpfr_add(r9042, r9036, r9041, MPFR_RNDN);
        mpfr_add(r9043, r9042, r9033, MPFR_RNDN);
        mpfr_add(r9044, r9043, r9024, MPFR_RNDN);
        /* ERROR: no complex support in C */;
        mpfr_add(r9046, r9044, r9045, MPFR_RNDN);
        /* ERROR: no complex support in C */;
        return mpfr_get_d(r9047, MPFR_RNDN);
}

static mpfr_t r9048, r9049, r9050, r9051, r9052, r9053, r9054, r9055, r9056, r9057, r9058, r9059, r9060, r9061, r9062, r9063, r9064, r9065, r9066, r9067, r9068, r9069, r9070, r9071, r9072, r9073, r9074, r9075, r9076, r9077, r9078, r9079, r9080, r9081, r9082;

void setup_mpfr_f_dm() {
        mpfr_set_default_prec(336);
        mpfr_init_set_str(r9048, "-1", 10, MPFR_RNDN);
        mpfr_init_set_str(r9049, "1", 10, MPFR_RNDN);
        mpfr_init(r9050);
        mpfr_init(r9051);
        mpfr_init(r9052);
        mpfr_init(r9053);
        mpfr_init(r9054);
        mpfr_init(r9055);
        mpfr_init_set_str(r9056, "6", 10, MPFR_RNDN);
        mpfr_init_set_str(r9057, "0", 10, MPFR_RNDN);
        mpfr_init(r9058);
        mpfr_init(r9059);
        mpfr_init(r9060);
        mpfr_init(r9061);
        mpfr_init(r9062);
        mpfr_init(r9063);
        mpfr_init(r9064);
        mpfr_init_set_str(r9065, "15", 10, MPFR_RNDN);
        mpfr_init(r9066);
        mpfr_init(r9067);
        mpfr_init(r9068);
        mpfr_init(r9069);
        mpfr_init(r9070);
        mpfr_init(r9071);
        mpfr_init_set_str(r9072, "20", 10, MPFR_RNDN);
        mpfr_init(r9073);
        mpfr_init(r9074);
        mpfr_init(r9075);
        mpfr_init(r9076);
        mpfr_init(r9077);
        mpfr_init(r9078);
        mpfr_init(r9079);
        mpfr_init(r9080);
        mpfr_init(r9081);
        mpfr_init(r9082);
}

double f_dm() {
        ;
        ;
        /* ERROR: no complex support in C */;
        mpfr_mul(r9051, r9050, r9050, MPFR_RNDN);
        mpfr_mul(r9052, r9051, r9050, MPFR_RNDN);
        mpfr_mul(r9053, r9052, r9050, MPFR_RNDN);
        mpfr_mul(r9054, r9053, r9050, MPFR_RNDN);
        mpfr_mul(r9055, r9054, r9050, MPFR_RNDN);
        ;
        ;
        /* ERROR: no complex support in C */;
        mpfr_mul(r9059, r9058, r9050, MPFR_RNDN);
        mpfr_mul(r9060, r9059, r9050, MPFR_RNDN);
        mpfr_mul(r9061, r9060, r9050, MPFR_RNDN);
        mpfr_mul(r9062, r9061, r9050, MPFR_RNDN);
        mpfr_mul(r9063, r9062, r9050, MPFR_RNDN);
        mpfr_add(r9064, r9055, r9063, MPFR_RNDN);
        ;
        /* ERROR: no complex support in C */;
        mpfr_mul(r9067, r9066, r9050, MPFR_RNDN);
        mpfr_mul(r9068, r9067, r9050, MPFR_RNDN);
        mpfr_mul(r9069, r9068, r9050, MPFR_RNDN);
        mpfr_mul(r9070, r9069, r9050, MPFR_RNDN);
        mpfr_add(r9071, r9064, r9070, MPFR_RNDN);
        ;
        /* ERROR: no complex support in C */;
        mpfr_mul(r9074, r9073, r9050, MPFR_RNDN);
        mpfr_mul(r9075, r9074, r9050, MPFR_RNDN);
        mpfr_mul(r9076, r9075, r9050, MPFR_RNDN);
        mpfr_add(r9077, r9071, r9076, MPFR_RNDN);
        mpfr_add(r9078, r9077, r9068, MPFR_RNDN);
        mpfr_add(r9079, r9078, r9059, MPFR_RNDN);
        /* ERROR: no complex support in C */;
        mpfr_add(r9081, r9079, r9080, MPFR_RNDN);
        /* ERROR: no complex support in C */;
        return mpfr_get_d(r9082, MPFR_RNDN);
}