#pragma linkage (cfort,FORTRAN) #include <stdio.h> void cfort(signed char *); main() { signed char x, y; x=-5; cfort(&x); printf ("Updated value in C: %d\n", x); }
SUBROUTINE CFORT ( ARG ) INTEGER*1 ARG PRINT *, 'FORTRAN ARG VALUE:', ARG ARG = ARG - 1 END