/[eiffelstudio]/trunk/eweasel/tests/exec018/test.e
ViewVC logotype

Contents of /trunk/eweasel/tests/exec018/test.e

Parent Directory Parent Directory | Revision Log Revision Log


Revision 65297 - (show annotations)
Thu Nov 30 20:22:33 2006 UTC (13 years ago) by manus
File size: 713 byte(s)
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

Properties

Name Value
svn:eol-style native
svn:keywords Author Date Id Revision

  ViewVC Help
Powered by ViewVC 1.1.23