POINTER*4 (P, I) INTEGER*4 I, J P = LOC(J) I = 5 CALL CENTRY(P) PRINT *, 1 'UPDATED VALUE IN FORTRAN:', I END
#pragma linkage (centry,FORTRAN) #include <stdio.h> void centry(int **x) { printf("C int arg value: %d\n",**x); **x += 1; }