#include <stdio.h>
#include <stdlib.h>
extern "COBOL" {void COBRTN (char*);}

  int main()
  {
  char x;
  x='a';
COBRTN(&x);   /* x by reference */
exit(0);
}

IDENTIFICATION DIVISION.
PROGRAM-ID. COBRTN.
ENVIRONMENT DIVISION.
DATA DIVISION.
LINKAGE SECTION.
01 X PIC X.
PROCEDURE DIVISION USING X.
     DISPLAY X
     GOBACK.
END PROGRAM COBRTN.