#pragma linkage (cfort,FORTRAN)
#include <stdio.h>
void cfort (int **);
main()
{
  int i, *temp;
  i=5;
  temp=&i;
  cfort(&temp);
  printf
    ("Updated integer value in C: %d\n", i);
}

 

SUBROUTINE CFORT ( ARG )
POINTER*4 (ARG, Y)
INTEGER*4 Y
PRINT *,
1  'FORTRAN INTEGER ARG VALUE:', Y
Y = Y + 1
END