         Edinburgh IMP77 Compiler - Version 8.4

    1  %begin
    2    %shortinteger fred
    3    fred = 16_3DEF
    4  
    5    fred = -fred
    6  
    7    %if fred < 0 %start
    8      print string("OK!"); newline
    9    %else
   10      print string("Compiler bug?"); newline
   11    %finish
   12  
   13  %endofprogram

   12 Statements compiled
