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