OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [f2c_4.c] - Rev 154

Compare with Previous | Blame | View Log

/*  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 */
 
typedef float real;
typedef double doublereal;
typedef struct { real r, i; } complex;
typedef struct { doublereal r, i; } doublecomplex;
 
extern double f2c_4b__(double *);
extern void f2c_4d__( complex *, complex *);
extern void f2c_4f__( complex *, int *,complex *);
extern void f2c_4h__( doublecomplex *, doublecomplex *);
extern void f2c_4j__( doublecomplex *, int *, doublecomplex *);
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 x,ret_val;
  x.r = 1234;
  x.i = 5678;
  f2c_4d__(&ret_val,&x);
  if ( x.r != ret_val.r && x.i != ret_val.i ) abort();
}
 
void f2c_4e__(void) {
  complex x,ret_val;
  int i=0;
  x.r = 1234;
  x.i = 5678;
  f2c_4f__(&ret_val,&i,&x);
  if ( x.r != ret_val.r && x.i != ret_val.i ) abort();
}
 
void f2c_4g__(void) {
  doublecomplex x,ret_val;
  x.r = 1234;
  x.i = 5678.0f;
  f2c_4h__(&ret_val,&x);
  if ( x.r != ret_val.r && x.i != ret_val.i ) abort();
}
 
void f2c_4i__(void) {
  doublecomplex x,ret_val;
  int i=0;
  x.r = 1234.0f;
  x.i = 5678.0f;
  f2c_4j__(&ret_val,&i,&x);
  if ( x.r != ret_val.r && x.i != ret_val.i ) abort();
}
 
void f2c_4k__(complex *ret_val, complex *x) {
  ret_val->r = x->r;
  ret_val->i = x->i;
}
 
void f2c_4l__(complex *ret_val, int *i, complex *x) {
  ret_val->r = x->r;
  ret_val->i = x->i;
}
 
void f2c_4m__(doublecomplex *ret_val, doublecomplex *x) {
  ret_val->r = x->r;
  ret_val->i = x->i;
}
 
void f2c_4n__(doublecomplex *ret_val, int *i, doublecomplex *x) {
  ret_val->r = x->r;
  ret_val->i = x->i;
}
 

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.