begin
  ! This is a particularly nasty test as the i2c output depends on the --tidy flag.
  ! - MONOP precedences are not compared properly against BINOP precedences.
  ! Note: imp2026 gets it right.
  
  integer i

  i = -1 >> 1            ;! This imp construct actually should evaluate as: -(1>>1) which is 0!  Yes, it's documented.

  write(i, 3) ; newline

  i = (-1) >> 1          ;! unsigned shift should pull in 0's at the top, returning MAX INT.

  write(i, 3) ; newline

endofprogram