polserver/testsuite/escript/_perf/perf007.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

20 lines
No EOL
247 B
Text

include "perf";
var n := PERF_ARRAY_SIZE;
var a,b,c,d,t;
a := 7;
b := 2;
c := 5;
d := 8;
while( n )
t := a-b;
t := a+c;
t := c+d;
d := c+b;
if (d < c)
t := a;
else
t := c;
endif
n := n - 1;
endwhile