         Edinburgh IMP77 Compiler - Version 8.4

    1  %begin
    2    %byteintegerarray line(0:127)
    3    
    4    %routine out tag(%integer %name i, j, %integer col)
    5      %return %if line(i) = j                                   ;! 'i' in line(i) should have been indirected but was not.
    6    %end
?COL unused
    7  
    8    %integer p, q
    9  
   10    out tag(p, q, 42)
   11  
   12  %endofprogram

    8 Statements compiled
