INTEGER*1 X X = -5 CALL CENTRY(X) PRINT *, 1 'UPDATED VALUE IN FORTRAN:', X END
#pragma linkage (centry,FORTRAN) #include <stdio.h> void centry(signed char *x) { printf("C char arg value: %d\n",*x); *x -= 1; }