source: to-imperative/trunk/samples/Arithm/sub.rf @ 1050

Last change on this file since 1050 was 1050, checked in by luba, 18 years ago
  • tests for long arithmetic
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 750 bytes
Line 
1$use Arithm StdIO;
2
3Main =
4  {
5    <PrintLN <"-" 2 10>>,
6    <PrintLN <"-" 2147483647 -2147483647>>,
7    <PrintLN <"-" 2147483647 2147483647>>,
8    <PrintLN <"-" -2147483647 2147483647>>,
9    <PrintLN <"-" -2147483647 -2147483647>>,
10    <PrintLN <"-" 2147483647 1>>,
11    <PrintLN <"-" 2147483647 -1>>,
12    <PrintLN <"-" -2147483647 1>>,
13    <PrintLN <"-" -2147483647 -1>>,
14
15    <PrintLN <"-" -21474836476 -1>>,
16    <PrintLN <"-" 32 -21474836476>>,
17    <PrintLN <"-" 21474836476 11>>,
18    <PrintLN <"-" 21474836476 -11>>,
19   
20    <PrintLN <"-" 21474836471 -21474836471>>,
21    <PrintLN <"-" 2147483647789364567 21474836471>>,
22    <PrintLN <"-" -2147483647789364567 21474836471>>,
23    <PrintLN <"-" -21474836471 -2147483647789364567>>;
24         
25  };
26
Note: See TracBrowser for help on using the repository browser.