diff options
| author | Tobias Burnus <burnus@net-b.de> | 2007-04-13 12:59:19 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2007-04-13 12:59:19 +0200 |
| commit | 4026df75eae8a25fbea4a47ed230a7a121d8cdf3 (patch) | |
| tree | aa1bf7d91e3e05d56d2b8481d6eb0f787f5b3be4 | |
| parent | 6725add54e55e1208096c2a6838c7843e56c2bda (diff) | |
| download | gcc-4026df75eae8a25fbea4a47ed230a7a121d8cdf3.zip gcc-4026df75eae8a25fbea4a47ed230a7a121d8cdf3.tar.gz gcc-4026df75eae8a25fbea4a47ed230a7a121d8cdf3.tar.bz2 | |
re PR fortran/31562 (FAIL: gfortran.dg/value_4.f90 -O0 execution test)
2007-04-12 Tobias Burnus <burnus@net-b.de>
PR fortran/31562
* gfortran.dg/value_4.c: Use GNU extensions for complex
instead of a struct.
From-SVN: r123780
| -rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | 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 53aed21..023fc9b 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2007-04-12 Tobias Burnus <burnus@net-b.de> + + PR fortran/31562 + * gfortran.dg/value_4.c: Use GNU extensions for complex + instead of a struct. + 2007-04-13 Richard Guenther <rguenther@suse.de> PR tree-optimization/21258 diff --git a/gcc/testsuite/gfortran.dg/value_4.c b/gcc/testsuite/gfortran.dg/value_4.c index 1eff965..a9f9aae 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 <pault@gcc.gnu.org> */ -typedef struct { float r, i; } complex; +/* We used to #include <complex.h>, 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; } |