Edinburgh IMP77 Compiler - Version 8.4
    1 %begin
    2
    3 %integer x
    4 %integername xp
    5 %integernamearray inra(0:9)
    6
    7 %routine test12(%integernamearrayname xinan1)
    8   xinan1(4) == xp
    9   xp == xinan1(4)
   10   xinan1(4) == x
   11   xinan1(4) = x
   12   x = xinan1(4)
   13 %end
   14
   15 inra(4) == x
   16 test12(inra)
   17
   18 %endofprogram
   14 Statements compiled