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

Annotation of /trunk/eweasel/tests/exec146/test.e

Parent Directory Parent Directory | Revision Log Revision Log


Revision 80391 - (hide annotations)
Fri Aug 21 23:10:52 2009 UTC (10 years, 6 months ago) by manus
File size: 548 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    
9     creation
10    
11     make
12    
13     feature
14    
15     make is
16     local
17     r: REAL
18     do
19     $INST
20 manus 80391 r := {REAL_32} 50.0
21 manus 65296 r := c_floor (r)
22     io.put_real (r)
23     io.new_line
24     end
25    
26     c_floor (r: REAL): REAL is
27     -- Greatest integral value no greater than `r'
28     external
29     "C signature (double): EIF_REAL use <math.h>"
30     alias
31     "floor"
32     end
33    
34    
35     end
36    

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.23