URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Subversion Repositories openrisc_2011-10-31
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [c_by_val.c] - Rev 165
Go to most recent revision | Compare with Previous | Blame | View Log
/* Passing from fortran to C by value, using %VAL. */ typedef struct { float r, i; } complex; extern void f_to_f__ (float*, float, float*, float**); extern void i_to_i__ (int*, int, int*, int**); extern void c_to_c__ (complex*, complex, complex*, complex**); extern void abort (void); void f_to_f__(float *retval, float a1, float *a2, float **a3) { if ( a1 != *a2 ) abort(); if ( a1 != **a3 ) abort(); a1 = 0.0; *retval = *a2 * 2.0; return; } void i_to_i__(int *retval, int i1, int *i2, int **i3) { if ( i1 != *i2 ) abort(); if ( i1 != **i3 ) abort(); i1 = 0; *retval = *i2 * 3; return; } void c_to_c__(complex *retval, complex c1, complex *c2, complex **c3) { if ( c1.r != c2->r ) abort(); if ( c1.i != c2->i ) abort(); if ( c1.r != (*c3)->r ) abort(); if ( c1.i != (*c3)->i ) abort(); c1.r = 0.0; c1.i = 0.0; retval->r = c2->r * 4.0; retval->i = c2->i * 4.0; return; }
Go to most recent revision | Compare with Previous | Blame | View Log