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