home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / historic / v941.tgz / icon.v941src.tar / icon.v941src / tests / general / over.icn < prev    next >
Text File  |  2000-07-29  |  377b  |  23 lines
  1. procedure main()
  2.    if not(&features == "large integers") then
  3.       stop("large integers not supported")
  4.    i := 100000 + 10000
  5.    write(i)
  6.    i +:= 2 ^ 30
  7.    write(i)
  8.    i +:= i
  9.    write(i)
  10.    i := 100000 * 10000
  11.    write(i)
  12.    i +:= 2 ^ 30
  13.    write(i)
  14.    i *:= i
  15.    write(i)
  16.    i := -100000 - 10000
  17.    write(i)
  18.    i +:= -(2 ^ 30)
  19.    write(i)
  20.    i -:= 2 ^ 30
  21.    write(i)
  22. end
  23.