#pragma linkage (cfort,FORTRAN)
#include <stdio.h>
int cfort( int );
main()
{
int x, y;
x=5;
y = cfort(x);
printf
("Value returned to C: %d\n", y);
}
FUNCTION CFORT ( ARG )
INTEGER*4 CFORT
INTEGER*4 ARG
PRINT *, 'FORTRAN ARG VALUE:', ARG
CFORT = ARG
END
Sample C usage (by Reference)
Fortran function
#pragma linkage (cfort,FORTRAN)
#include <stdio.h>
int cfort( int * );
main()
{
int x, y;
x=5;
y = cfort(&x);
printf
("Value returned to C: %d\n", y);
}
FUNCTION CFORT ( ARG )
INTEGER*4 CFORT
INTEGER*4 ARG
PRINT *, 'FORTRAN ARG VALUE:', ARG
CFORT = ARG
END