URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [compile/] [sra-1.c] - Blame information for rev 774

Go to most recent revision | Details | Compare with Previous | View Log


/* { dg-do compile } */
/* { dg-options "-O1" } */
/* Let gimple verifier check what SRA does to unions and single-field
   strucutres . */
 
struct sim_struct
{
  int x;
};
 
extern struct sim_struct get_x(void);
 
struct sim_struct foo (void)
{
  struct sim_struct simple;
 
  simple = get_x ();
  if (simple.x % 2)
    simple.x = 39;
  else
    simple.x -=8;
 
  return simple;
}
 
struct sim_cmplx
{
  _Complex double c;
};
 
extern struct sim_cmplx get_sc (void);
 
_Complex double foo_c (void)
{
  struct sim_cmplx simple;
 
  simple = get_sc ();
  if (__real__ simple.c > 200.3)
    __imag__ simple.c -= 2.4;
 
  return simple.c;
}
 
 
union sim_union
{
  int i;
  float d;
};
 
extern union sim_union get_y (void);
 
union sim_union bar (void)
{
  union sim_union simple;
 
  simple = get_y ();
  if (simple.d > 8.2)
    simple.i = 300;
 
  return simple;
}
 
extern int get_int (void);
 
int bar_i (void)
{
  union sim_union simple;
 
  simple = get_y ();
  if (simple.d > 8.2)
    simple.i = get_int ();
 
  return simple.i;
}

Line No.	Rev	Author	Line
1	688	jeremybenn	`/* { dg-do compile } */`
2			`/* { dg-options "-O1" } */`
3			`/* Let gimple verifier check what SRA does to unions and single-field`
4			`strucutres . */`
5
6			`struct sim_struct`
7			`{`
8			`int x;`
9			`};`
10
11			`extern struct sim_struct get_x(void);`
12
13			`struct sim_struct foo (void)`
14			`{`
15			`struct sim_struct simple;`
16
17			`simple = get_x ();`
18			`if (simple.x % 2)`
19			`simple.x = 39;`
20			`else`
21			`simple.x -=8;`
22
23			`return simple;`
24			`}`
25
26			`struct sim_cmplx`
27			`{`
28			`_Complex double c;`
29			`};`
30
31			`extern struct sim_cmplx get_sc (void);`
32
33			`_Complex double foo_c (void)`
34			`{`
35			`struct sim_cmplx simple;`
36
37			`simple = get_sc ();`
38			`if (__real__ simple.c > 200.3)`
39			`__imag__ simple.c -= 2.4;`
40
41			`return simple.c;`
42			`}`
43
44
45			`union sim_union`
46			`{`
47			`int i;`
48			`float d;`
49			`};`
50
51			`extern union sim_union get_y (void);`
52
53			`union sim_union bar (void)`
54			`{`
55			`union sim_union simple;`
56
57			`simple = get_y ();`
58			`if (simple.d > 8.2)`
59			`simple.i = 300;`
60
61			`return simple;`
62			`}`
63
64			`extern int get_int (void);`
65
66			`int bar_i (void)`
67			`{`
68			`union sim_union simple;`
69
70			`simple = get_y ();`
71			`if (simple.d > 8.2)`
72			`simple.i = get_int ();`
73
74			`return simple.i;`
75			`}`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [compile/] [sra-1.c] - Blame information for rev 774