32-bit signed binary integer with #pragma

#pragma linkage(cobrtn,COBOL)
#include <stdio.h>
void cobrtn (int, int*);

int main()
{
  int x,y;
  x=5;
  y=6;
  cobrtn(x,&y);   /* x by value */
}         /* y by reference */

IDENTIFICATION DIVISION.
PROGRAM-ID. COBRTN.
ENVIRONMENT DIVISION.
DATA DIVISION.
LINKAGE SECTION.
01 X PIC S9(9) BINARY.
01 Y PIC S9(9) BINARY.
PROCEDURE DIVISION USING X Y.
      DISPLAY X Y
      GOBACK.
END PROGRAM COBRTN.