summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gcc.dg/tree-ssa/pr24627.c
blob: c065eef84f44040e1ff299086fb580b2e4ab22f1 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
/* { dg-do run } */
/* { dg-options "-O" } */
/* { dg-require-effective-target int32plus } */

extern void abort (void);
typedef unsigned int u_int32;

typedef struct {
  union {u_int32 Xl_ui;} Ul_i;
  union {u_int32 Xl_uf;} Ul_f;
} l_fp;

void
dolfptoa (short ndec)
{
  l_fp work, ftmp;

  work.Ul_i.Xl_ui = 0;
  work.Ul_f.Xl_uf = 0x535f3d8;

  while (ndec > 0)
    {
      u_int32 lo_tmp;
      u_int32 hi_tmp;

      ndec--;
      work.Ul_i.Xl_ui = 0;
      work.Ul_i.Xl_ui <<= 1;
      if ((work.Ul_f.Xl_uf) & 0x80000000)
	(work.Ul_i.Xl_ui) |= 0x1;
      (work.Ul_f.Xl_uf) <<= 1;

      ftmp = work;
      (work.Ul_i.Xl_ui) <<= 1;
      if ((work.Ul_f.Xl_uf) & 0x80000000)
	(work.Ul_i.Xl_ui) |= 0x1;
      (work.Ul_f.Xl_uf) <<= 1;

      (work.Ul_i.Xl_ui) <<= 1;
      if ((work.Ul_f.Xl_uf) & 0x80000000)
	(work.Ul_i.Xl_ui) |= 0x1;
      (work.Ul_f.Xl_uf) <<= 1;

      lo_tmp = ((work.Ul_f.Xl_uf) & 0xffff) + ((ftmp.Ul_f.Xl_uf) & 0xffff);
      hi_tmp = (((work.Ul_f.Xl_uf) >> 16) & 0xffff)
               + (((ftmp.Ul_f.Xl_uf) >> 16) & 0xffff);

      if (lo_tmp & 0x10000)
	hi_tmp++;

      (work.Ul_f.Xl_uf) = ((hi_tmp & 0xffff) << 16) | (lo_tmp & 0xffff);
      (work.Ul_i.Xl_ui) += (ftmp.Ul_i.Xl_ui);

      if (hi_tmp & 0x10000)
	(work.Ul_i.Xl_ui)++;


      if (!(work.Ul_i.Xl_ui < 10))
	abort ();
    }
}

int main()
{
  dolfptoa(6);
  return 0;
}