23 lines
216 B
Nim
Executable file
23 lines
216 B
Nim
Executable file
discard """
|
|
file: "tcgbug.nim"
|
|
output: "success"
|
|
"""
|
|
|
|
type
|
|
TObj = object
|
|
x, y: int
|
|
PObj = ref TObj
|
|
|
|
proc p(a: PObj) =
|
|
a.x = 0
|
|
|
|
proc q(a: var PObj) =
|
|
a.p()
|
|
|
|
var
|
|
a: PObj
|
|
new(a)
|
|
q(a)
|
|
|
|
echo "success"
|
|
|