Author: bernhard Date: Mon Jan 9 11:49:33 2006 New Revision: 11020 Added: trunk/languages/BASIC/compiler/samples/count_to_100.bas (contents, props changed) Modified: trunk/MANIFEST trunk/MANIFEST.SKIP trunk/languages/BASIC/compiler/ (props changed) Log: BASIC: Add BASIC test script from [perl #22877] Thanks to Clint Pierce.
Ignore generated file languages/BASIC/compiler/TARG_test.pir. Modified: trunk/MANIFEST ============================================================================== --- trunk/MANIFEST (original) +++ trunk/MANIFEST Mon Jan 9 11:49:33 2006 @@ -669,6 +669,7 @@ languages/BASIC/compiler/compile.pl languages/BASIC/compiler/readme.bas [BASIC] languages/BASIC/compiler/samples/chess.bas [BASIC] languages/BASIC/compiler/samples/conn4.bas [BASIC] +languages/BASIC/compiler/samples/count_to_100.bas [BASIC] languages/BASIC/compiler/samples/eliza2.bas [BASIC] languages/BASIC/compiler/samples/hanoi.bas [BASIC] languages/BASIC/compiler/samples/newtrek.bas [BASIC] Modified: trunk/MANIFEST.SKIP ============================================================================== --- trunk/MANIFEST.SKIP (original) +++ trunk/MANIFEST.SKIP Mon Jan 9 11:49:33 2006 @@ -1,5 +1,5 @@ # $Id$ -# generated by tools/dev/gen_manifest_skip.pl Sun Jan 8 17:11:38 2006 +# generated by tools/dev/gen_manifest_skip.pl Mon Jan 9 20:44:19 2006 # # This file should contain a transcript of the svn:ignore properties # of the directories in the Parrot subversion repository. (Needed for @@ -298,6 +298,8 @@ ^languages/test_regex\.pir/ # generated from svn:ignore of 'languages/BASIC/' # generated from svn:ignore of 'languages/BASIC/compiler/' +^languages/BASIC/compiler/TARG_test\.pir$ +^languages/BASIC/compiler/TARG_test\.pir/ # generated from svn:ignore of 'languages/BASIC/compiler/samples/' # generated from svn:ignore of 'languages/BASIC/interpreter/' # generated from svn:ignore of 'languages/Zcode/' Added: trunk/languages/BASIC/compiler/samples/count_to_100.bas ============================================================================== --- (empty file) +++ trunk/languages/BASIC/compiler/samples/count_to_100.bas Mon Jan 9 11:49:33 2006 @@ -0,0 +1,16 @@ +' $Id$ +' +' count_to_100.bas +' +' Test scripts for [perl #22877] as reported by Clint Pierce + +dim a$() +for i = 0 to 100 step .5 + for j = 1 to 30 + a$(j)=" " + next j + for j = 1 to 30 + print " "; + next j + print i +next i
