gcc/testsuite/gcc.dg/pr87929.c

   1 /* { dg-do compile } */
   2 /* { dg-options "-fexceptions -fnon-call-exceptions -fsignaling-nans" } */
   3
   4 #define complex __complex__
   5 #define _Complex_I (1.0iF)
   6
   7 extern void f2c_4d__( complex float *, complex float *);
   8 extern void abort (void);
   9
  10 void f2c_4c__(void)
  11 {
  12   complex float x,ret_val;
  13   x = 1234 + 5678 * _Complex_I;
  14   f2c_4d__(&ret_val,&x);
  15   if ( x != ret_val ) abort();
  16 }