[Oorexx-bugs] [ oorexx-Bugs-1735294 ] Wrong symbol serving as label on END ?

[SourceForge.net <no...@so...>]

Bugs item #1735294, was opened at 2007-06-11 21:58
Message generated for change (Tracker Item Submitted) made by Item Submitter
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=684730&aid=1735294&group_id=119701

Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
Category: Interpreter
Group: 3.1.2
Status: Open
Resolution: None
Priority: 5
Private: No
Submitted By: Rony G. Flatscher (orexx)
Assigned to: Nobody/Anonymous (nobody)
Summary: Wrong symbol serving as label on END ?

Initial Comment:
Not really sure whether this is a bug or working as designed. If the latter, then maybe the error message could be rephrased to make it clearer, what the error is?

The following program uses the new "LABEL" subkeyword and also a control variable 'i' on a DO statement. The matching END statement denotes the control variable 'i' instead of the label "aha2".

----------- cut here -----------
   str=                      -
   "do label aha2 i=1 to 5 ;" -
   "   say 'hi #' i        ;" -
   "   leave aha2          ;" -
   "end i                  ;"

   say str~changestr(";", .endOfLine)
   say "--- about to INTERPRET:"

   interpret str
----------- cut here -----------

Saving and running the above program yields the following output and error message:

----------- cut here -----------
do label aha2 i=1 to 5
    say 'hi #' i
    leave aha2
 end i

--- about to INTERPRET:
    10 *-* end i                  ;
    10 *-* interpret str
Error 10 running F:\work\svn\oorexx\test\tests\oorexxunit\ooRexx\base\tstLabel.rex line 10:  Unexpected or unmatched END
Error 10.2:  Symbol following END ("I") must either match control variable or LABEL of block specification ("AHA2" on line 10) or be omitted
----------- cut here -----------

"I" *is* the control variable used in that block statement. 


----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=684730&aid=1735294&group_id=119701