Initial commit
This commit is contained in:
5
unix/sys_fun.c
Normal file
5
unix/sys_fun.c
Normal file
@@ -0,0 +1,5 @@
|
||||
#include "myc_fortran.h"
|
||||
|
||||
void F_FUN(sys_funadr)(void (*f)(void), void (**a)(void)) {
|
||||
*a=f;
|
||||
}
|
||||
Reference in New Issue
Block a user