CHARACTER*1 X, Y
X = 'A'
CALL CENTRY(X, Y)
PRINT *,
1  'VALUE RETURNED TO FORTRAN: ', Y
END

#pragma linkage (centry,FORTRAN)
#include <stdio.h>
void centry
  (unsigned char *x, unsigned char *y)
{
  printf("C char arg value: %c\n",*x);
  *y = *x;
}