Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gcc.c-torture/execute/complex-6.c @ 145:1830386684a0
gcc-9.2.0
author | anatofuz |
---|---|
date | Thu, 13 Feb 2020 11:34:05 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
/* { dg-skip-if "requires io" { freestanding } } */ /* This test tests complex conjugate and passing/returning of complex parameter. */ #include <stdlib.h> #include <stdio.h> int e; #define TEST(TYPE, FUNC) \ __complex__ TYPE \ ctest_ ## FUNC (__complex__ TYPE x) \ { \ __complex__ TYPE res; \ \ res = ~x; \ \ return res; \ } \ \ void \ test_ ## FUNC (void) \ { \ __complex__ TYPE res, x; \ \ x = 1.0 + 2.0i; \ \ res = ctest_ ## FUNC (x); \ \ if (res != 1.0 - 2.0i) \ { \ printf ("test_" #FUNC " failed\n"); \ ++e; \ } \ } TEST(float, float) TEST(double, double) TEST(long double, long_double) TEST(int, int) TEST(long int, long_int) int main (void) { e = 0; test_float (); test_double (); test_long_double (); test_int (); test_long_int (); if (e != 0) abort (); return 0; }