1  /* Test for builtin conj, creal, cimag.  */
       2  /* Origin: Joseph Myers <jsm28@cam.ac.uk> */
       3  
       4  extern float _Complex conjf (float _Complex);
       5  extern double _Complex conj (double _Complex);
       6  extern long double _Complex conjl (long double _Complex);
       7  
       8  extern float crealf (float _Complex);
       9  extern double creal (double _Complex);
      10  extern long double creall (long double _Complex);
      11  
      12  extern float cimagf (float _Complex);
      13  extern double cimag (double _Complex);
      14  extern long double cimagl (long double _Complex);
      15  
      16  extern void abort (void);
      17  extern void link_error (void);
      18  
      19  void
      20  main_test (void)
      21  {
      22    /* For each type, test both runtime and compile time (constant folding)
      23       optimization.  */
      24    volatile float _Complex fc = 1.0F + 2.0iF;
      25    volatile double _Complex dc = 1.0 + 2.0i;
      26    volatile long double _Complex ldc = 1.0L + 2.0iL;
      27    /* Test floats.  */
      28    if (conjf (fc) != 1.0F - 2.0iF)
      29      abort ();
      30    if (__builtin_conjf (fc) != 1.0F - 2.0iF)
      31      abort ();
      32    if (conjf (1.0F + 2.0iF) != 1.0F - 2.0iF)
      33      link_error ();
      34    if (__builtin_conjf (1.0F + 2.0iF) != 1.0F - 2.0iF)
      35      link_error ();
      36    if (crealf (fc) != 1.0F)
      37      abort ();
      38    if (__builtin_crealf (fc) != 1.0F)
      39      abort ();
      40    if (crealf (1.0F + 2.0iF) != 1.0F)
      41      link_error ();
      42    if (__builtin_crealf (1.0F + 2.0iF) != 1.0F)
      43      link_error ();
      44    if (cimagf (fc) != 2.0F)
      45      abort ();
      46    if (__builtin_cimagf (fc) != 2.0F)
      47      abort ();
      48    if (cimagf (1.0F + 2.0iF) != 2.0F)
      49      link_error ();
      50    if (__builtin_cimagf (1.0F + 2.0iF) != 2.0F)
      51      link_error ();
      52    /* Test doubles.  */
      53    if (conj (dc) != 1.0 - 2.0i)
      54      abort ();
      55    if (__builtin_conj (dc) != 1.0 - 2.0i)
      56      abort ();
      57    if (conj (1.0 + 2.0i) != 1.0 - 2.0i)
      58      link_error ();
      59    if (__builtin_conj (1.0 + 2.0i) != 1.0 - 2.0i)
      60      link_error ();
      61    if (creal (dc) != 1.0)
      62      abort ();
      63    if (__builtin_creal (dc) != 1.0)
      64      abort ();
      65    if (creal (1.0 + 2.0i) != 1.0)
      66      link_error ();
      67    if (__builtin_creal (1.0 + 2.0i) != 1.0)
      68      link_error ();
      69    if (cimag (dc) != 2.0)
      70      abort ();
      71    if (__builtin_cimag (dc) != 2.0)
      72      abort ();
      73    if (cimag (1.0 + 2.0i) != 2.0)
      74      link_error ();
      75    if (__builtin_cimag (1.0 + 2.0i) != 2.0)
      76      link_error ();
      77    /* Test long doubles.  */
      78    if (conjl (ldc) != 1.0L - 2.0iL)
      79      abort ();
      80    if (__builtin_conjl (ldc) != 1.0L - 2.0iL)
      81      abort ();
      82    if (conjl (1.0L + 2.0iL) != 1.0L - 2.0iL)
      83      link_error ();
      84    if (__builtin_conjl (1.0L + 2.0iL) != 1.0L - 2.0iL)
      85      link_error ();
      86    if (creall (ldc) != 1.0L)
      87      abort ();
      88    if (__builtin_creall (ldc) != 1.0L)
      89      abort ();
      90    if (creall (1.0L + 2.0iL) != 1.0L)
      91      link_error ();
      92    if (__builtin_creall (1.0L + 2.0iL) != 1.0L)
      93      link_error ();
      94    if (cimagl (ldc) != 2.0L)
      95      abort ();
      96    if (__builtin_cimagl (ldc) != 2.0L)
      97      abort ();
      98    if (cimagl (1.0L + 2.0iL) != 2.0L)
      99      link_error ();
     100    if (__builtin_cimagl (1.0L + 2.0iL) != 2.0L)
     101      link_error ();
     102  }