blob: 17e4e6501b9fe1450ef9de6c94fe89ccb61f1a69 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
#include <stdio.h>
void sub0(void);
void c_sub0(void (*sub)(void));
void c_sub1(int (*func)(int));
extern void abort(void);
int main(int argc, char **argv)
{
printf("hello from C main\n");
sub0();
return 0;
}
void c_sub0(void (*sub)(void))
{
printf("hello from c_sub0\n");
sub();
return;
}
void c_sub1(int (*func)(int))
{
int retval;
printf("hello from c_sub1\n");
retval = func(10);
if(retval != 10)
{
fprintf(stderr, "Fortran function did not return expected value!\n");
abort();
}
return;
}
|
