
%BEGIN
%INTEGER I,Fail
%INTEGERNAME P,Q
%STRING(10)S
%STRINGNAME X,Y
%ROUTINESPEC TEST(%INTEGERNAME T1,%STRINGNAME T2)
      Fail=0
      I=10; S="MESS"
      P==I; Q==P
      X==S
      Y==STRING(0)
      %UNLESS Q=10 %AND Q==I %AND P==Q %THEN %C
         PRINTSTRING("BUG1 FOUND") %and fail=1
      TEST(P,X)
      TEST(Q,X)
         %unless i=12 %then printstring("bug 3 found") %and fail=1
      %if Fail=0 %then printstring("TEST OK")
%ROUTINE TEST(%INTEGERNAME T1,%STRINGNAME T2)
      %UNLESS T1==I %AND T2==S %THEN %C
         PRINTSTRING("BUG2 FOUND") %and fail=1
         i=i+1
      %END
%ENDOFPROGRAM
