Unsigned one-byte character data

Sample Fortran usage C++ function (by Reference)

Sample Fortran usage	C++ function (by Reference)
`CHARACTER1 X, Y X = 'A' CALL CENTRY(X, Y) PRINT , 1 'VALUE RETURNED TO FORTRAN: ', Y END`	`extern "FORTRAN" { void centry (unsigned char *, unsigned char &); } #include <stdio.h> void centry (unsigned char &x; unsigned char &y) { printf("C char arg value: %c\n",x); y = x; }`

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

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