1  /* { dg-do compile } */
       2  
       3  int
       4  div_and_round_double (lden_orig, hden_orig)
       5       int lden_orig, hden_orig;
       6  {
       7    int quo[4];
       8    register int i;
       9    unsigned int  work;
      10    register unsigned int  carry = 0;
      11    int  lden = lden_orig;
      12    int  hden = hden_orig;
      13    neg_double (&lden, &hden);
      14    for (i = 4 - 1; i >= 0; i--)
      15      {
      16        quo[i] = work / (unsigned int ) lden;
      17        carry = work % (unsigned int ) lden;
      18      }
      19    return 0;
      20  }