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  }