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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [gcc-4.5.1/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [nestfunc-6.c] - Blame information for rev 297

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

Line No. Rev Author Line
1 297 jeremybenn
/* Test that the GP gets properly restored, either by the nonlocal
2
   receiver or the nested function.  */
3
 
4
#ifndef NO_TRAMPOLINES
5
 
6
typedef __SIZE_TYPE__ size_t;
7
extern void abort (void);
8
extern void exit (int);
9
extern void qsort(void *, size_t, size_t, int (*)(const void *, const void *));
10
 
11
int main ()
12
{
13
  __label__ nonlocal;
14
  int compare (const void *a, const void *b)
15
  {
16
    goto nonlocal;
17
  }
18
 
19
  char array[3];
20
  qsort (array, 3, 1, compare);
21
  abort ();
22
 
23
 nonlocal:
24
  exit (0);
25
}
26
 
27
#else
28
int main() { return 0; }
29
#endif

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.