#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
|