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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.dg/] [complex-1.c] - Rev 816

Compare with Previous | Blame | View Log

/* { dg-do run } */
/* { dg-options "-O" } */
 
/* Verify that the 6th complex floating-point argument is
   correctly passed as unnamed argument on SPARC64.  */
 
extern void abort(void);   
 
void foo(long arg1, long arg2, long arg3, long arg4, long arg5, ...)
{
  __builtin_va_list ap;
  _Complex float cf;
 
  __builtin_va_start(ap, arg5);
  cf = __builtin_va_arg(ap, _Complex float);
  __builtin_va_end(ap);
 
  if (__imag__ cf != 2.0f)
    abort();
}
 
int bar(long arg1, long arg2, long arg3, long arg4, long arg5, _Complex float arg6)
{
  foo(arg1, arg2, arg3, arg4, arg5, arg6);
  return 0;
}
 
int main(void)
{
  return bar(0, 0, 0, 0, 0, 2.0fi);
}
 

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

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