Unsigned one-byte character data

Sample C usage (by Reference) Fortran subroutine

Sample C usage (by Reference)	Fortran subroutine
`#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 ) CHARACTER1 ARG1, ARG2 PRINT , 'FORTRAN ARG1 VALUE: ', ARG1 ARG2 = ARG1 END`

#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