Address of an integer

Sample C usage Fortran subroutine

Sample C usage	Fortran subroutine
`#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 ) POINTER4 (ARG, Y) INTEGER4 Y PRINT *, 1 'FORTRAN INTEGER ARG VALUE:', Y Y = Y + 1 END`

#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