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

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

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.