Parent Directory
|
Revision Log
Moved from trunk/Src/eweasel to trunk/eweasel so that a simple checkout of the source code is not penalized by the lenghty process of checking out all the tests of eweasel.
1 | |
2 | --| Copyright (c) 1993-2006 University of Southern California and contributors. |
3 | --| All rights reserved. |
4 | --| Your use of this work is governed under the terms of the GNU General |
5 | --| Public License version 2. |
6 | |
7 | -- To reproduce error: |
8 | -- Compile class as is. Finish_freezing (use `gcc'). Execute `test'. |
9 | -- Produces incorrect output: attribute `b' is not named in |
10 | -- the Strip list, but it is not included in the array. |
11 | |
12 | class |
13 | TEST |
14 | creation |
15 | make |
16 | feature |
17 | |
18 | make is |
19 | local |
20 | m: ARRAY [ANY]; |
21 | k: INTEGER; |
22 | do |
23 | b := 47; |
24 | m := strip (a); |
25 | from |
26 | k := m.lower; |
27 | until |
28 | k > m.upper |
29 | loop |
30 | print (m.item (k)); |
31 | k := k + 1; |
32 | end |
33 | io.new_line; |
34 | end; |
35 | |
36 | a: INTEGER; |
37 | b: INTEGER; |
38 | |
39 | end |
Name | Value |
---|---|
svn:eol-style | native |
svn:keywords | Author Date Id Revision |
ViewVC Help | |
Powered by ViewVC 1.1.23 |