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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [va-arg-7.c] - Blame information for rev 825

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

Line No. Rev Author Line
1 149 jeremybenn
/* Origin: Franz Sirl <Franz.Sirl-kernel@lauterbach.com> */
2
 
3
#include <stdarg.h>
4
 
5
inline void
6
debug(int i1, int i2, int i3, int i4, int i5, int i6, int i7,
7
      double f1, double f2, double f3, double f4, double f5,
8
      double f6, double f7, double f8, double f9, ...)
9
{
10
  va_list ap;
11
 
12
  va_start (ap, f9);
13
 
14
  if (va_arg (ap,int) != 8)
15
    abort ();
16
  if (va_arg (ap,int) != 9)
17
    abort ();
18
  if (va_arg (ap,int) != 10)
19
    abort ();
20
 
21
  va_end (ap);
22
}
23
 
24
int
25
main(void)
26
{
27
  debug (1, 2, 3, 4, 5, 6, 7,
28
         1.0, 2.0, 3.0, 4.0, 5.0, 6.0, 7.0, 8.0, 9.0,
29
         8, 9, 10);
30
  exit (0);
31
}

powered by: WebSVN 2.1.0

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