%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' %and a=10 %THEN %c
        PRINTSTRING("FAILED") %else printstring("TEST OK")
%END
TEST(B)
%END
A
%ENDOFPROGRAM