/[eiffelstudio]/trunk/eweasel/tests/melt040/test_rev1.e
ViewVC logotype

Annotation of /trunk/eweasel/tests/melt040/test_rev1.e

Parent Directory Parent Directory | Revision Log Revision Log


Revision 80391 - (hide annotations)
Fri Aug 21 23:10:52 2009 UTC (10 years, 3 months ago) by manus
File size: 1261 byte(s)
Made eweasel code compile even if there is no conversion from REAL_64 to REAL_32.
However valid080 would be failing if the conversion is available as we expect by default
   the VJAR error.

1 manus 65296
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     class TEST
8     creation
9     make
10     feature
11    
12     make is
13     local
14     a: TEST1 [DOUBLE];
15     b: TEST1 [INTEGER];
16     c: TEST1 [REAL];
17     d: TEST1 [BOOLEAN];
18     e: TEST1 [CHARACTER];
19     f: TEST1 [POINTER];
20     g: TEST1 [STRING];
21     p: POINTER;
22     do
23     !!a;
24     io.putdouble (a # 13.47); io.new_line;
25     io.putdouble (a # 13); io.new_line;
26     io.putdouble (a # Double_const); io.new_line;
27     io.putdouble (a # Real_const); io.new_line;
28     io.putdouble (a # Integer_const); io.new_line;
29     !!b;
30     io.putint (b # 13); io.new_line;
31     io.putint (b # Integer_const); io.new_line;
32     !!c;
33 manus 80391 io.putreal (c # {REAL_32} 13.47); io.new_line;
34 manus 65296 io.putreal (c # 13); io.new_line;
35     io.putreal (c # Real_const); io.new_line;
36     io.putreal (c # Integer_const); io.new_line;
37     !!d;
38     io.putbool (d # True); io.new_line;
39     !!e;
40     io.putchar (e # 'Z'); io.new_line;
41     !!f;
42     print (f # p); io.new_line;
43     !!g;
44     io.putstring (g # "weasel"); io.new_line;
45     $INSTRUCTION;
46     end
47    
48     Double_const: DOUBLE is 29.47;
49     Real_const: REAL is 29.47;
50     Integer_const: INTEGER is 13;
51    
52     end

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23