%BEGIN %INTEGER I %INTEGERNAME P,Q %STRING(10)S %STRINGNAME X,Y %ROUTINESPEC TEST(%INTEGERNAME T1,%STRINGNAME T2) 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") TEST(P,X) TEST(Q,X) %ROUTINE TEST(%INTEGERNAME T1,%STRINGNAME T2) %UNLESS T1==I %AND T2==S %THEN %C PRINTSTRING("BUG2 FOUND") %END %ENDOFPROGRAM