Edinburgh IMP77 Compiler - Version 8.4

    1  %begin
    2    %routine proc(%integer n)
    3      write(n, 0); newline
    4    %end
    5  
    6    %real fred
    7  
    8    fred = 1.0
    9  
   10    proc(integer(addr(fred)))
   11    
   12  %endofprogram

    9 Statements compiled