polserver/testsuite/escript/bug/bug005.src
Gabriele Tozzi e085b218f6 Unit tests: full revision, now all run correctly
- Added missing ones
- Reviewed obsoleted ones
- Disabled/deleted unnecessary ones
- Added support for compile error checking
- Added support for run error checking
2015-12-19 05:31:23 +01:00

27 lines
319 B
Text

const EXPR_ZERO := 0;
function A(key)
var wtype;
var sev;
if (!EXPR_ZERO)
B();
else
foreach v in { 4,5,6 }
C();
endforeach
endif
sev := 7;
endfunction
function B()
endfunction
function C()
endfunction
program foo()
A(4);
print("ok");
endprogram