discard """
  output: '''[1, 2, 3, 4]
3
['1', '2', '3', '4', '5', '6', '7', '8', '9', 'A', 'B', 'C']
OK
'''
"""

var
  arr = [1,2,3]
  arrp = addr(arr)
  sss = @[4,5,6,7]
  sssp = addr(sss)
  ra = new(array[3, int])
  raa = [11,12,13]

#bug #3586
proc mutate[T](arr:openarray[T], brr: openArray[T]) =
  for i in 0..arr.len-1:
    doAssert(arr[i] == brr[i])

mutate(arr, arr)

#bug #2240
proc f(a: openarray[int], b: openArray[int]) =
  for i in 0..a.len-1:
   doAssert(a[i] == b[i])

var a = [7,8,9]
var p = addr a
f(p[], a)
f(sssp[], sss)

ra[0] = 11
ra[1] = 12
ra[2] = 13
f(ra[], raa)

#bug #2240b
proc fillBuffer(buf: var openarray[char]) =
  for i in 0..buf.len-1:
    buf[i] = chr(i)

proc fillSeqBuffer(b: ref seq[char]) =
  fillBuffer(b[])

proc getFilledBuffer(sz: int): ref seq[char] =
  let s : ref seq[char] = new(seq[char])
  s[] = newSeq[char](sz)
  fillBuffer(s[])
  return s

let aa = getFilledBuffer(3)
for i in 0..aa[].len-1:
  doAssert(aa[i] == chr(i))

var
  x = [1, 2, 3, 4]
  y1 = block: (
    a: (block:
      echo x
      cast[ptr array[2, int]](addr(x[0]))[]),
    b: 3)
  y2 = block:
    echo y1.a[0] + y1.a[1]
    cast[ptr array[4, int]](addr(x))[]
doAssert y1 == ([1, 2], 3)
doAssert y2 == [1, 2, 3, 4]

template newOpenArray(x: var string, size: int): openArray[char] =
  var z = 1
  toOpenArray(x, z, size)

template doSomethingAndCreate(x: var string): openArray[char] =
  let size = 12
  newOpenArray(x, size)

proc sinkk(x: openArray[char]) =
  echo x

var xArrayDeref = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
sinkk doSomethingAndCreate(xArrayDeref)

echo "OK"
