ml/i test -- override
tests overriding, globals and locals,mc-no macrs and warnings
mcinsg%.
mcskipg mt,<>
mcdef a as 1
mcdef test as<mcdef<a> as 5
mcdef nest as<mcdef<a> as 2
mcdefg <a> as rubbish
mcdefg<a> as 3
mcdefg a7 as%a+5.
a<>mcnodef<>a<>mcdef<a>as 4
a<>mcwarn<a>
>
nest<>a>
a<>test<>mcnodef%a+3.a7 sb 1234567
mcskip <a>
mcdef<a> as rubbish
mcins<a>.
mcwarn<a>
%a mcnowarn 3-3.a mcnowarn<>mcnoins<>mcsub  (
,2,1)mcnodef<>mcnoskip<>mcdef x as 1
mcdef mcdef x as 2
x as x+<x>
mcdef<x> as 0
%2.<2>mcskip m mcdef a as t
a,mcskip+
mcdef<x>as/
+x+x
a/45/mcdef p as<mcdef<p> as 6
p<>mcwarn <p>
p a7>
p sb 01234567
mcnodef<>mcnoskip<>mcskip t,' '
mcdef<%.> as 1
mcins<%.>
mcskip<%.>
mcwarn '%'
%%xxx.%mcnowarn<>mcwarn:
%this is skipped.:%arg.:mcnoskip%22-21.%:%arg.. sb 1111
:mcnowarn<>mcdef l withs m as 2
mcdef l withs m withs<%> withs 3 with  . as 5
mcdef l as 1
l l m %3 . 4 l m%3. sb 1 2 3 4 5
mcdef 4 withs 5 withs 6 n0
as<mcwarng:
%12-11. :mcsub(z2 3z,10-8,4) >
mcskip 3 withs 4.
mcins 3 withs 4.
mcwarn 3 withs 4
3 4 mcskip 2 3 with space
2 skipped 3 4 5<>3 4 mcnowarn<>2 skipped 3  4 5 sb 4 5 4 5
mcskip m,1 4 n0
mcdef 3 withs 4 withs 5 end as rubbish
1 d 3  5 3 4 . 4 5 6 sb :mcleng(z) <2 3 4 5 6>
:mcnoskip:mcset s3=1
:<1>::mcleng(ab):mcnodef:%3*1.:mcset s3=0
:mcnowarn:mcskipg d,<:>
 sb :1:2:3
