28 lines
294 B
Plaintext
28 lines
294 B
Plaintext
//
|
|
// $Id$
|
|
//
|
|
|
|
// quick exit test
|
|
|
|
function main
|
|
local x := 0
|
|
|
|
do while x < 10
|
|
++x
|
|
if x == 5
|
|
exit
|
|
endif
|
|
enddo
|
|
|
|
qout("do exit test",iif(x == 5,"passed","fail"))
|
|
|
|
for x := 1 to 10
|
|
if x == 5
|
|
exit
|
|
endif
|
|
next
|
|
|
|
qout("for exit test",iif(x == 5,"passed","fail"))
|
|
|
|
return nil
|