URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [bind_c_usage_10_c.c] - Rev 302
Go to most recent revision | Compare with Previous | Blame | View Log
/* Check BIND(C) for ENTRY PR fortran/34079 To be linked with bind_c_usage_10.f03 */ void mySub1(int *); void mySub3(int *); void mySubEnt2(float *); void mySubEnt3(float *); void sub4ent(float *); int myFunc1(void); int myFunc3(void); float myFuncEnt2(void); float myFuncEnt3(void); float func4ent(void); extern void abort(void); int main() { int i = -1; float r = -3.0f; mySub1(&i); if(i != 5) abort(); mySub3(&i); if(i != 7) abort(); mySubEnt2(&r); if(r != 66.0f) abort(); mySubEnt3(&r); if(r != 77.0f) abort(); sub4ent(&r); if(r != 88.0f) abort(); i = myFunc1(); if(i != -5) abort(); i = myFunc3(); if(i != -7) abort(); r = myFuncEnt2(); if(r != -66.0f) abort(); r = myFuncEnt3(); if(r != -77.0f) abort(); r = func4ent(); if(r != -88.0f) abort(); return 0; }
Go to most recent revision | Compare with Previous | Blame | View Log