mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
15 lines
141 B
C
15 lines
141 B
C
/* Used by proc_ptr_8.f90.
|
|
PR fortran/32580. */
|
|
|
|
int (*funpointer)(int);
|
|
|
|
int f(int t)
|
|
{
|
|
return t*3;
|
|
}
|
|
|
|
void init()
|
|
{
|
|
funpointer=f;
|
|
}
|