#pragma linkage (cfort,FORTRAN)
#include <stdio.h>
void cfort(unsigned char *,
    unsigned char *);
main()
{
  unsigned char x, y;
  x='a';
  cfort(&x,&y);
  printf
    ("Value returned to C: %c\n", y);
}

 

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