1 /* Area: ffi_call, closure_call 2 Purpose: Test complex' passed in variable argument lists. 3 Limitations: none. 4 PR: none. 5 Originator: <vogt@linux.vnet.ibm.com>. */ 6 7 /* { dg-do run } */ 8 9 /* Alpha splits _Complex into two arguments. It's illegal to pass 10 float through varargs, so _Complex float goes badly. In sort of 11 gets passed as _Complex double, but the compiler doesn't agree 12 with itself on this issue. */ 13 /* { dg-do run { xfail alpha*-*-* } } */ 14 15 #include "complex_defs_float.inc" 16 #include "cls_complex_va.inc" 17