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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 82287 - (show annotations)
Tue Feb 9 20:09:46 2010 UTC (10 years ago) by manus
File size: 556 byte(s)
Updated to match new defaults for `total order on REALs' setting and VD83 warning that could be raised when trying to change that setting between compilation.

1 class TEST
2 create
3 make
4 feature
5
6 make is
7 do
8 if "$DATA" = "$DATA" then
9 end
10 print ({REAL_32}.nan = {REAL_32}.nan)
11 print ("%N")
12 print ({REAL_64}.nan = {REAL_64}.nan)
13 print ("%N")
14 print ({REAL_32}.nan /= {REAL_32}.nan)
15 print ("%N")
16 print ({REAL_64}.nan /= {REAL_64}.nan)
17 print ("%N")
18
19 print ({REAL_32}.nan ~ {REAL_32}.nan)
20 print ("%N")
21 print ({REAL_64}.nan ~ {REAL_64}.nan)
22 print ("%N")
23 print ({REAL_32}.nan /~ {REAL_32}.nan)
24 print ("%N")
25 print ({REAL_64}.nan /~ {REAL_64}.nan)
26 print ("%N")
27 end
28
29 end

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23