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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [pr20054.c] - Blame information for rev 717

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


 
/* { dg-do compile } */
/* { dg-options "-O2 -fno-strict-aliasing" } */
 
 
unsigned int *foo (void);
 
char *
bar (double *d)
{
  return (char *) (d + 1) - sizeof (unsigned int);
}
 
char
baz (double x)
{
  unsigned int h = *foo ();
  unsigned int l = *(unsigned int *) bar (&x);
 
  return (h & ~0x80000000L) == 0x7FF00000 && l == 0;
}
 
 

Line No.	Rev	Author	Line
1	689	jeremybenn
2			`/* { dg-do compile } */`
3			`/* { dg-options "-O2 -fno-strict-aliasing" } */`
4
5
6			`unsigned int *foo (void);`
7
8			`char *`
9			`bar (double *d)`
10			`{`
11			`return (char *) (d + 1) - sizeof (unsigned int);`
12			`}`
13
14			`char`
15			`baz (double x)`
16			`{`
17			`unsigned int h = *foo ();`
18			`unsigned int l = (unsigned int ) bar (&x);`
19
20			`return (h & ~0x80000000L) == 0x7FF00000 && l == 0;`
21			`}`
22
23

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [pr20054.c] - Blame information for rev 717