X-Git-Url: http://deadsoftware.ru/gitweb?p=dsw-obn.git;a=blobdiff_plain;f=src%2Ftest.c;h=ebb807bc518fa1211589cb47f32e2ae7f733bd38;hp=42fc4ff3030a00a18b2b673141cc0f7137f2a1fc;hb=5b29102a5440d6511087356b9d9579b7501ca1ec;hpb=99fa357db44a4c30957bd0810e14a20456c58347 diff --git a/src/test.c b/src/test.c index 42fc4ff..ebb807b 100644 --- a/src/test.c +++ b/src/test.c @@ -14,10 +14,10 @@ static char source_test[] = "" "BEGIN" " Out.Open();" - " len := 2 * 8;" - " FOR i := 0 TO len BY 2 DO" + " LOOP" " Out.String('Count '); Out.Int(i, 0); Out.Ln;" - " len := len + 2;" + " i := i + 1;" + " IF i > 4 THEN EXIT END;" " END;" " Out.String('end'); Out.Ln;" "END Test."