OLD | NEW |
(Empty) | |
| 1 -- Copyright 2012 Free Software Foundation, Inc. |
| 2 -- |
| 3 -- This program is free software; you can redistribute it and/or modify |
| 4 -- it under the terms of the GNU General Public License as published by |
| 5 -- the Free Software Foundation; either version 3 of the License, or |
| 6 -- (at your option) any later version. |
| 7 -- |
| 8 -- This program is distributed in the hope that it will be useful, |
| 9 -- but WITHOUT ANY WARRANTY; without even the implied warranty of |
| 10 -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| 11 -- GNU General Public License for more details. |
| 12 -- |
| 13 -- You should have received a copy of the GNU General Public License |
| 14 -- along with this program. If not, see <http://www.gnu.org/licenses/>. |
| 15 |
| 16 with Ops; use Ops; |
| 17 procedure Ops_Test is |
| 18 |
| 19 begin |
| 20 Dummy (Make (31) + Make (11)); -- BEGIN |
| 21 Dummy (Make (31) - Make (11)); |
| 22 Dummy (Make (31) * Make (11)); |
| 23 Dummy (Make (31) / Make (11)); |
| 24 Dummy (Make (31) mod Make (11)); |
| 25 Dummy (Make (31) rem Make (11)); |
| 26 Dummy (Make (31) ** Make (11)); |
| 27 Dummy (Make (31) < Make (11)); |
| 28 Dummy (Make (31) <= Make (11)); |
| 29 Dummy (Make (31) > Make (11)); |
| 30 Dummy (Make (31) >= Make (11)); |
| 31 Dummy (Make (31) = Make (11)); |
| 32 Dummy (Make (31) and Make (11)); |
| 33 Dummy (Make (31) or Make (11)); |
| 34 Dummy (Make (31) xor Make (11)); |
| 35 Dummy (Make (31) & Make (11)); |
| 36 Dummy (abs (Make (42))); |
| 37 Dummy (not Make (11)); |
| 38 Dummy (+ Make (11)); |
| 39 Dummy (- Make (11)); |
| 40 end Ops_Test; |
OLD | NEW |