blob: d4f59c40c538be32f4a5fb14c711effc9fbcf8a8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
/* { dg-do compile } */
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;
}
return 0;
}
|