Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gcc.dg/complex-3.c @ 131:84e7813d76e9
gcc-8.2
author | mir3636 |
---|---|
date | Thu, 25 Oct 2018 07:37:49 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
/* Verify that rtl expansion cleanup doesn't get too aggressive about code dealing with complex CONCATs. */ /* { dg-do run } */ /* { dg-options "-O -fno-tree-sra" } */ extern void abort (void); extern void exit (int); __complex__ float foo (void) { __complex__ float f[1]; __real__ f[0] = 1; __imag__ f[0] = 1; f[0] = __builtin_conjf (f[0]); return f[0]; } int main (void) { __complex__ double d[1]; d[0] = foo (); if (__real__ d[0] != 1 || __imag__ d[0] != -1) abort (); exit (0); }