INTEGER*4 X
X = 5
CALL FCBC32I(X)
PRINT *,
1  'UPDATED VALUE IN FORTRAN:', X
END

IDENTIFICATION DIVISION.
PROGRAM-ID. FCBC32I.
ENVIRONMENT DIVISION.
DATA DIVISION.
LINKAGE SECTION.
1   X  PIC S9(9) USAGE IS BINARY.
PROCEDURE DIVISION USING X.
  DISPLAY "COBOL ARG VALUE: ", X.
  ADD 1 TO X.
  EXIT PROGRAM.
END PROGRAM FCBC32I.