%BEGIN
%EXTERNALINTEGERFNSPEC G(%INTEGER X)
%INTEGER I,J
J=6
I=G(J)
WRITE(I,4); NEWLINE
%ENDOFPROGRAM