From 554fd8c5195424bdbcabf5de30fdc183aba391bd Mon Sep 17 00:00:00 2001 From: upstream source tree Date: Sun, 15 Mar 2015 20:14:05 -0400 Subject: obtained gcc-4.6.4.tar.bz2 from upstream website; verified gcc-4.6.4.tar.bz2.sig; imported gcc-4.6.4 source tree from verified upstream tarball. downloading a git-generated archive based on the 'upstream' tag should provide you with a source tree that is binary identical to the one extracted from the above tarball. if you have obtained the source via the command 'git clone', however, do note that line-endings of files in your working directory might differ from line-endings of the respective files in the upstream repository. --- gcc/testsuite/gfortran.dg/f2c_4.c | 74 +++++++++++++++++++++++++++++++++++++++ 1 file changed, 74 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/f2c_4.c (limited to 'gcc/testsuite/gfortran.dg/f2c_4.c') diff --git a/gcc/testsuite/gfortran.dg/f2c_4.c b/gcc/testsuite/gfortran.dg/f2c_4.c new file mode 100644 index 000000000..7fb1debf3 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/f2c_4.c @@ -0,0 +1,74 @@ +/* Check -ff2c calling conventions + Return value of COMPLEX function is via an extra argument in the + calling sequence that points to where to store the return value + Additional underscore appended to function name + + Simplified from f2c output and tested with g77 */ + +/* 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) + +typedef float real; +typedef double doublereal; + +extern double f2c_4b__(double *); +extern void f2c_4d__( complex float *, complex float *); +extern void f2c_4f__( complex float *, int *,complex float *); +extern void f2c_4h__( complex double *, complex double *); +extern void f2c_4j__( complex double *, int *, complex double *); +extern void abort (void); + +void f2c_4a__(void) { + double a,b; + a = 1023.0; + b=f2c_4b__(&a); + if ( a != b ) abort(); +} + +void f2c_4c__(void) { + complex float x,ret_val; + x = 1234 + 5678 * _Complex_I; + f2c_4d__(&ret_val,&x); + if ( x != ret_val ) abort(); +} + +void f2c_4e__(void) { + complex float x,ret_val; + int i=0; + x = 1234 + 5678 * _Complex_I; + f2c_4f__(&ret_val,&i,&x); + if ( x != ret_val ) abort(); +} + +void f2c_4g__(void) { + complex double x,ret_val; + x = 1234 + 5678.0f * _Complex_I; + f2c_4h__(&ret_val,&x); + if ( x != ret_val ) abort(); +} + +void f2c_4i__(void) { + complex double x,ret_val; + int i=0; + x = 1234.0f + 5678.0f * _Complex_I; + f2c_4j__(&ret_val,&i,&x); + if ( x != ret_val ) abort(); +} + +void f2c_4k__(complex float *ret_val, complex float *x) { + *ret_val = *x; +} + +void f2c_4l__(complex float *ret_val, int *i, complex float *x) { + *ret_val = *x; +} + +void f2c_4m__(complex double *ret_val, complex double *x) { + *ret_val = *x; +} + +void f2c_4n__(complex double *ret_val, int *i, complex double *x) { + *ret_val = *x; +} -- cgit v1.2.3