polserver/testsuite/escript/compiler2/compiler2-037-while-single-pass.src

var a := 1;

while (a)
    print("correct - should be taken (once)");
    a := 0;
endwhile
print("correct - loop should exit");