index 0837de4ef28f6ba05ca3dbe8f4c191e95fd0caa5..da6a8041e833c307ff423b8411513067390e8c53 100644 (file)
--- a/test.c
+++ b/test.c
" k : INTEGER;"
" i : INTEGER;"
" b : BOOLEAN;"
+ ""
+ "PROCEDURE Tier;"
"BEGIN"
- " k := -10 + 1;"
+ " k := 314;"
+ "END Tier;"
+ ""
+ "BEGIN"
+ " k := 1;"
" i := k;"
- " b := ~TRUE OR FALSE;"
+ " b := TRUE;"
+ " Tier;"
"END Test."
;
{
ctx = oberon_create_context();
mod = oberon_compile_module(ctx, source);
+ //mod -> begin();
oberon_destroy_context(ctx);
return 0;
}