%BEGIN
%EXTERNALROUTINESPEC OUT(%INTEGERNAME X)
%ROUTINE CALL(%ROUTINE DUMMY,%INTEGERNAME Q)
%SPEC DUMMY(%INTEGERNAME X)
  DUMMY(Q)
%END
%INTEGER P
! ***** DELETING THIS ASSIGNMENT AGAIN:P=19 *****
CALL(OUT,P)
%ENDOFPROGRAM