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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [961213-1.c] - Blame information for rev 310

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


int
g (unsigned long long int *v, int n, unsigned int a[], int b)
{
  int cnt;
  *v = 0;
  for (cnt = 0; cnt < n; ++cnt)
    *v = *v * b + a[cnt];
  return n;
}
 
main ()
{
  int res;
  unsigned int ar[] = { 10, 11, 12, 13, 14 };
  unsigned long long int v;
 
  res = g (&v, sizeof(ar)/sizeof(ar[0]), ar, 16);
  if (v != 0xabcdeUL)
    abort ();
 
  exit (0);
}

Line No.	Rev	Author	Line
1	149	jeremybenn	`int`
2			`g (unsigned long long int *v, int n, unsigned int a[], int b)`
3			`{`
4			`int cnt;`
5			`*v = 0;`
6			`for (cnt = 0; cnt < n; ++cnt)`
7			`v = v * b + a[cnt];`
8			`return n;`
9			`}`
10
11			`main ()`
12			`{`
13			`int res;`
14			`unsigned int ar[] = { 10, 11, 12, 13, 14 };`
15			`unsigned long long int v;`
16
17			`res = g (&v, sizeof(ar)/sizeof(ar[0]), ar, 16);`
18			`if (v != 0xabcdeUL)`
19			`abort ();`
20
21			`exit (0);`
22			`}`

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [961213-1.c] - Blame information for rev 310