home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / icon / dos / src / tests / mem02.icn < prev    next >
Text File  |  1992-02-11  |  488b  |  21 lines
  1. # The output of this test will vary depending on memory
  2. #  configuration.
  3.  
  4. procedure main()
  5.    collect(0)
  6.    write(image(x := []) | "failed")
  7.    every push(x,1 to 1000)
  8.    write(image(x))
  9.    every push(x,1 to 10000)
  10.    write(image(x))
  11.    every collect(0 to 3)
  12.    write("\ncollections:")
  13.    every write(&collections)
  14.    write("\nregions:")
  15.    every write(®ions)
  16.    write("\nstorage:")
  17.    every write(&storage)
  18.    write("\nallocated:")
  19.    every write(&allocated)
  20. end
  21.