URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Go to most recent revision |
Only display areas with differences |
Details |
Blame |
View Log
| Rev 302 |
Rev 384 |
#include <stdio.h>
|
#include <stdio.h>
|
|
|
void sub0(void);
|
void sub0(void);
|
void c_sub0(void (*sub)(void));
|
void c_sub0(void (*sub)(void));
|
void c_sub1(int (*func)(int));
|
void c_sub1(int (*func)(int));
|
|
|
extern void abort(void);
|
extern void abort(void);
|
|
|
int main(int argc, char **argv)
|
int main(int argc, char **argv)
|
{
|
{
|
printf("hello from C main\n");
|
printf("hello from C main\n");
|
|
|
sub0();
|
sub0();
|
return 0;
|
return 0;
|
}
|
}
|
|
|
void c_sub0(void (*sub)(void))
|
void c_sub0(void (*sub)(void))
|
{
|
{
|
printf("hello from c_sub0\n");
|
printf("hello from c_sub0\n");
|
sub();
|
sub();
|
|
|
return;
|
return;
|
}
|
}
|
|
|
void c_sub1(int (*func)(int))
|
void c_sub1(int (*func)(int))
|
{
|
{
|
int retval;
|
int retval;
|
|
|
printf("hello from c_sub1\n");
|
printf("hello from c_sub1\n");
|
|
|
retval = func(10);
|
retval = func(10);
|
if(retval != 10)
|
if(retval != 10)
|
{
|
{
|
fprintf(stderr, "Fortran function did not return expected value!\n");
|
fprintf(stderr, "Fortran function did not return expected value!\n");
|
abort();
|
abort();
|
}
|
}
|
|
|
return;
|
return;
|
}
|
}
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.