%BEGIN
%EXTERNALROUTINESPEC OUT(%INTEGERNAME X)
%ROUTINE CALL(%ROUTINE DUMMY,%INTEGERNAME Q)
%SPEC DUMMY(%INTEGERNAME X)
  DUMMY(Q)
%END
%INTEGER P
P=19
CALL(OUT,P)
%ENDOFPROGRAM