URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [proc_ptr_8.c] - Rev 801

/* Used by proc_ptr_8.f90.
   PR fortran/32580.  */
 
int (*funpointer)(int);
 
int f(int t)
{
  return t*3;
}
 
void init()
{
 funpointer=f;
}