blob: 2a96ef4bcc95b65e79bcf0e39c5f6ed7a545e9bc [file] [log] [blame]
/* { dg-do compile } */
/* { dg-options -fno-force-mem } */
int
div_and_round_double (lden_orig, hden_orig)
int lden_orig, hden_orig;
{
int quo[4];
register int i;
unsigned int work;
register unsigned int carry = 0;
int lden = lden_orig;
int hden = hden_orig;
neg_double (&lden, &hden);
for (i = 4 - 1; i >= 0; i--)
{
quo[i] = work / (unsigned int ) lden;
carry = work % (unsigned int ) lden;
}
}