extern "FORTRAN"
{ void cfort(signed char &);; }
#include <stdio.h>
main()
{
  signed char x, y;
  x=-5;
  cfort(x);
  printf
    ("Updated value in C: %d\n", x);
}

SUBROUTINE CFORT ( ARG )
INTEGER*1 ARG
PRINT *, 'FORTRAN ARG VALUE:', ARG
ARG = ARG - 1
END