Unsigned one-byte character data


Sample C++ usage (by Reference) Fortran subroutine
extern "FORTRAN"
{ void cfort(unsigned char &,
    unsigned char &); }
#include <stdio.h>
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