------- Comment #4 from pinskia at gcc dot gnu dot org 2008-09-04 06:53 -------
Reduced enough for me (40 lines):
extern "C" {
extern double exp (double __x) throw ();
extern double log (double __x) throw ();
extern double sqrt (double __x) throw ();
}
int hic2_full()
{
double zcx, zs, latl, FCxb, FCa_ck;
double FCa, FFx, Dv_r;
double Dv_j1, Dv_e;
double Cjei, DFb, DIOY, vds_t, abet_t, ajep_t;
double v_e, d00_logE0 ;
sqrt(FFx); sqrt(FFx); sqrt(FFx); sqrt(FFx);
sqrt(FFx); sqrt(FFx); sqrt(FFx); sqrt(FFx);
sqrt(FFx); sqrt(FFx); sqrt(FFx);
sqrt(FCa); sqrt(FCa); sqrt(FCa); sqrt(FCa);
sqrt(FCa); sqrt(FCa); sqrt(FCa); sqrt(FCa);
sqrt(FCa);
log(FCxb);
exp(FCa_ck); exp(FCa_ck); exp(FCa_ck);
exp(FCa_ck); exp(FCa_ck); exp(FCa_ck);
exp(FCa_ck); exp(FCa_ck); exp(FCa_ck);
log(latl);
exp(DIOY);
log(ajep_t);
sqrt(v_e); sqrt(v_e); sqrt(v_e);
exp(abet_t);
log(Cjei);
exp((d00_logE0)/zcx);
exp((d00_logE0)/zs);
exp(Dv_e); exp(Dv_e); exp(Dv_e); exp(Dv_e);
exp(Dv_e);
exp(Dv_r); exp(Dv_r); exp(Dv_r); exp(Dv_r);
exp(Dv_r); exp(Dv_r);
log(1.0-(Dv_j1/vds_t));
exp(DFb); exp(DFb); exp(DFb); exp(DFb);
exp(DFb); exp(DFb); exp(DFb); exp(DFb);
exp(DFb); exp(DFb); exp(DFb); exp(DFb);
exp(DFb);
}
--
pinskia at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |davidxl at gcc dot gnu dot
| |org
Status|UNCONFIRMED |NEW
Ever Confirmed|0 |1
Last reconfirmed|0000-00-00 00:00:00 |2008-09-04 06:53:32
date| |
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=37353