Nim/tests/trefs.nim
2008-06-22 16:14:11 +02:00

19 lines
323 B
Nim
Executable file

# test for ref types (including refs to procs)
import
io
type
TProc = proc (a, b: int): int {.stdcall.}
proc foo(c, d: int): int {.stdcall.} =
return 0
proc wrongfoo(c, e: int): int {.inline.} =
return 0
var p: TProc
p = foo
write(stdout, "success!")
p = wrongfoo #ERROR_MSG type mismatch