diff options
Diffstat (limited to 'testsuite/runnable/procedure_cast.elna')
| -rw-r--r-- | testsuite/runnable/procedure_cast.elna | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/testsuite/runnable/procedure_cast.elna b/testsuite/runnable/procedure_cast.elna index 724fadf..191afbf 100644 --- a/testsuite/runnable/procedure_cast.elna +++ b/testsuite/runnable/procedure_cast.elna @@ -1,12 +1,11 @@ -var cb: proc(x: ^Char) -> Int +program() +var + cb: proc(x: ^Char) -> Int proc probe_int(x: ^Int) -> Int return 42 -program() begin cb := cast(probe_int: proc(x: ^Char) -> Int); assert(cb(nil) = 42) -return 0u8 - end. |