1  /* Tests for _FloatN / _FloatNx types: compile and execution tests for
       2     valid code with complex arithmetic.  Before including this file,
       3     define WIDTH as the value N; define EXT to 1 for _FloatNx and 0 for
       4     _FloatN.  */
       5  
       6  #define CONCATX(X, Y) X ## Y
       7  #define CONCAT(X, Y) CONCATX (X, Y)
       8  #define CONCAT3(X, Y, Z) CONCAT (CONCAT (X, Y), Z)
       9  #define CONCAT4(W, X, Y, Z) CONCAT (CONCAT (CONCAT (W, X), Y), Z)
      10  
      11  #if EXT
      12  # define TYPE CONCAT3 (_Float, WIDTH, x)
      13  # define CST(C) CONCAT4 (C, f, WIDTH, x)
      14  # define CSTI(C) CONCAT4 (C, if, WIDTH, x)
      15  # define CSTI2(C) CONCAT4 (C, F, WIDTH, xi)
      16  #else
      17  # define TYPE CONCAT (_Float, WIDTH)
      18  # define CST(C) CONCAT3 (C, f, WIDTH)
      19  # define CSTI(C) CONCAT3 (C, if, WIDTH)
      20  # define CSTI2(C) CONCAT4 (C, F, WIDTH, i)
      21  #endif
      22  
      23  extern void exit (int);
      24  extern void abort (void);
      25  
      26  volatile TYPE a = CST (1.0);
      27  volatile _Complex TYPE b = CST (2.0) + CSTI (3.0);
      28  volatile _Complex TYPE c = CST (2.0) + CSTI2 (3.0);
      29  volatile _Complex TYPE d = __builtin_complex (CST (2.0), CST (3.0));
      30  
      31  _Complex TYPE
      32  fn (_Complex TYPE arg)
      33  {
      34    return arg / 4;
      35  }
      36  
      37  int
      38  main (void)
      39  {
      40    volatile _Complex TYPE r;
      41    if (b != c)
      42      abort ();
      43    if (b != d)
      44      abort ();
      45    r = a + b;
      46    if (__real__ r != CST (3.0) || __imag__ r != CST (3.0))
      47      abort ();
      48    r += d;
      49    if (__real__ r != CST (5.0) || __imag__ r != CST (6.0))
      50      abort ();
      51    r -= a;
      52    if (__real__ r != CST (4.0) || __imag__ r != CST (6.0))
      53      abort ();
      54    r /= (a + a);
      55    if (__real__ r != CST (2.0) || __imag__ r != CST (3.0))
      56      abort ();
      57    r *= (a + a);
      58    if (__real__ r != CST (4.0) || __imag__ r != CST (6.0))
      59      abort ();
      60    r -= b;
      61    if (__real__ r != CST (2.0) || __imag__ r != CST (3.0))
      62      abort ();
      63    r *= r;
      64    if (__real__ r != -CST (5.0) || __imag__ r != CST (12.0))
      65      abort ();
      66    /* Division may not be exact, so round result before comparing.  */
      67    r /= b;
      68    r += __builtin_complex (CST (100.0), CST (100.0));
      69    r -= __builtin_complex (CST (100.0), CST (100.0));
      70    if (r != b)
      71      abort ();
      72    r = fn (r);
      73    if (__real__ r != CST (0.5) || __imag__ r != CST (0.75))
      74      abort ();
      75    exit (0);
      76  }