From 4026df75eae8a25fbea4a47ed230a7a121d8cdf3 Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Fri, 13 Apr 2007 12:59:19 +0200 Subject: [PATCH] re PR fortran/31562 (FAIL: gfortran.dg/value_4.f90 -O0 execution test) 2007-04-12 Tobias Burnus PR fortran/31562 * gfortran.dg/value_4.c: Use GNU extensions for complex instead of a struct. From-SVN: r123780 --- gcc/testsuite/ChangeLog | 6 ++++++ gcc/testsuite/gfortran.dg/value_4.c | 19 ++++++++++--------- 2 files changed, 16 insertions(+), 9 deletions(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 53aed21fc8d..023fc9b30f8 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2007-04-12 Tobias Burnus + + PR fortran/31562 + * gfortran.dg/value_4.c: Use GNU extensions for complex + instead of a struct. + 2007-04-13 Richard Guenther PR tree-optimization/21258 diff --git a/gcc/testsuite/gfortran.dg/value_4.c b/gcc/testsuite/gfortran.dg/value_4.c index 1eff965a029..a9f9aae239b 100644 --- a/gcc/testsuite/gfortran.dg/value_4.c +++ b/gcc/testsuite/gfortran.dg/value_4.c @@ -3,10 +3,14 @@ Contributed by Paul Thomas */ -typedef struct { float r, i; } complex; +/* We used to #include , but this fails for some platforms + (like cygwin) who don't have it yet. */ +#define complex __complex__ +#define _Complex_I (1.0iF) + extern float *f_to_f__ (float, float*); extern int *i_to_i__ (int, int*); -extern void c_to_c__ (complex*, complex, complex*); +extern void c_to_c__ (complex float*, complex float, complex float*); extern void abort (void); /* In f_to_f and i_to_i we return the second argument, so that we do @@ -35,14 +39,11 @@ i_to_i__(int i1, int *i2) } void -c_to_c__(complex *retval, complex c1, complex *c2) +c_to_c__(complex float *retval, complex float c1, complex float *c2) { - if ( c1.r != c2->r ) abort(); - if ( c1.i != c2->i ) abort(); - c1.r = 0.0; - c1.i = 0.0; - retval->r = c2->r * 4.0; - retval->i = c2->i * 4.0; + if ( c1 != *c2 ) abort(); + c1 = 0.0 + 0.0 * _Complex_I; + *retval = *c2 * 4.0; return; }