%BEGIN
%ROUTINE TEST(%ROUTINE PARAM(%INTEGER I))
      PARAM(10)
%END
%ROUTINE A
%INTEGER P,Q,R
      P='P'; Q='Q'; R='R'
%ROUTINE B(%INTEGER A)
      %UNLESS P='P' %AND Q='Q' %AND R='R' %THEN PRINTSTRING("FAILED")
      WRITE(A,5)
%END
TEST(B)
%END
A
%ENDOFPROGRAM