extern "FORTRAN"
{ void cfort(char [10], char [10]); }
#include <stdio.h>
main()
{
  char x[10] = "1234567890";
  char y[10];
  cfort(x,y);
  printf
    ("Value returned to C: %10.10s\n", y);
}

SUBROUTINE CFORT ( ARG1, ARG2 )
CHARACTER*10 ARG1, ARG2
PRINT *, 'FORTRAN ARG1 VALUE: ', ARG1
ARG2 = ARG1
END