+Sun Aug 16 01:29:19 1998 Jeffrey A Law (law@cygnus.com)
+
+ * gcc.dg/980816-1.c: New test.
+
1998-08-01 Dave Love <d.love@dl.ac.uk>
* g77.f-torture/compile/980729-0.f: New test.
--- /dev/null
+/* { 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;
+ }
+}