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