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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [920520-1.c] - Blame information for rev 717

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


foo(int *bar)
{
  *bar = 8;
}
 
bugger()
{
  int oldDepth, newDepth;
 
  foo(&oldDepth);
 
  switch (oldDepth)
    {
    case 8:
    case 500:
      newDepth = 8;
      break;
 
    case 5000:
      newDepth = 500;
      break;
 
    default:
      newDepth = 17;
      break;
    }
 
  return newDepth - oldDepth;
}
 
main()
{
  if (bugger() != 0)
    abort ();
  exit (0);
}

Line No.	Rev	Author	Line
1	688	jeremybenn	`foo(int *bar)`
2			`{`
3			`*bar = 8;`
4			`}`
5
6			`bugger()`
7			`{`
8			`int oldDepth, newDepth;`
9
10			`foo(&oldDepth);`
11
12			`switch (oldDepth)`
13			`{`
14			`case 8:`
15			`case 500:`
16			`newDepth = 8;`
17			`break;`
18
19			`case 5000:`
20			`newDepth = 500;`
21			`break;`
22
23			`default:`
24			`newDepth = 17;`
25			`break;`
26			`}`
27
28			`return newDepth - oldDepth;`
29			`}`
30
31			`main()`
32			`{`
33			`if (bugger() != 0)`
34			`abort ();`
35			`exit (0);`
36			`}`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [920520-1.c] - Blame information for rev 717