Edinburgh IMP77 Compiler - Version 8.4

    1  %begin
    2    %real unassigned real
    3    %longreal unassigned long real
    4    %real r
    5  
    6    r = unassigned real + 1.0
    7    r = 1.0
    8  
    9    print f l(r, 10); newline
   10    print f hex(unassigned real); newline
   11    print f hex(unassigned long real); newline
   12  
   13  %endofprogram

   13 Statements compiled