discard """
  output: '''success'''
  joinable: false
  disabled: "openbsd"
"""

# bug #4818

# Test that this completes without OOM.

const BUFFER_SIZE = 5000
var buffer = cast[ptr uint16](alloc(BUFFER_SIZE))

var total_size: int64 = 0
for i in 0 .. 1000:
  let size = BUFFER_SIZE * i
  #echo "requesting ", size
  total_size += size.int64
  buffer = cast[ptr uint16](realloc(buffer, size))
  #echo totalSize, " total: ", getTotalMem(), " occupied: ", getOccupiedMem(), " free: ", getFreeMem()

dealloc(buffer)
echo "success"