Return to arith1.icn CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / port

Initial revision

#  This program tests rt/arith.s.

procedure main()
   write(1 + 2)
   write(1 + "2")
   write(3 * 2e10)
   write(5e8 - 4e8)
   i := 0
   if i = 0 then write("conditional checks")
   write(1 / 1)
   write(-7 % 3)
   write(10 ^ 3)
end

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.