begin
  integer J

  ! test precedence handling.  This should translate as -1(1>>1) and output 0.

  J = -1 >> 1;
  write(J, 4)
  newline
  ! imp2c currently not passing strings properly.  (It _was_ OK but broke.)
  !  printstring("Fail!") %and newline %if (J # 0)
endofprogram