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