gcc/testsuite/gcc.dg/pr87929.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

/* { dg-do compile } */
/* { dg-options "-fexceptions -fnon-call-exceptions -fsignaling-nans" } */

#define complex __complex__
#define _Complex_I (1.0iF)

extern void f2c_4d__( complex float *, complex float *);
extern void abort (void);

void f2c_4c__(void)
{
  complex float x,ret_val;
  x = 1234 + 5678 * _Complex_I;
  f2c_4d__(&ret_val,&x);
  if ( x != ret_val ) abort();
}