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

int main()
{
  double x,y;
  x=3.14159265;
  y=4.14159265;
  COBRTN(x,&y);   /* x by value */
    /* y by reference */
  exit(0);
}

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