REAL*4 X, Y, CENTRY
X = 5.0
Y = CENTRY(X)
PRINT *,
1  'VALUE RETURNED TO FORTRAN:', Y
END

#pragma linkage (centry,FORTRAN)
#include <stdio.h>
float centry(float *x)
{
  printf("C float arg value: %f\n",*x);
  return(*x);
}