polserver/testsuite/escript/while/while12.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

17 lines
No EOL
324 B
Text

program test()
var startX := 3, endX := 8;
var startY := 2, endY := 7;
var fooY := 2;
while (startX <= endX)
while (startY <= endY)
print( "startX=" +startX + ", startY=" + startY );
startY := startY + 1;
endwhile
startY := fooY;
startX := startX + 1;
print( "startX=" + startX );
endwhile
endprogram