URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gnat.dg/] [rational_arithmetic.ads] - Rev 304
Compare with Previous | Blame | View Log
package Rational_Arithmetic is -- Whole numbers type Whole is new Integer; -- -- Undefine unwanted operations function "/" (Left, Right: Whole) return Whole is abstract; -- -- Rational numbers -- type Rational is private; -- -- Constructors -- function "/" (Left, Right: Whole) return Rational; -- -- Rational operations -- function "-" (Left, Right: Rational) return Rational; -- -- Mixed operations -- function "+" (Left: Whole ; Right: Rational) return Rational; function "-" (Left: Whole ; Right: Rational) return Rational; function "-" (Left: Rational; Right: Whole ) return Rational; function "/" (Left: Whole ; Right: Rational) return Rational; function "*" (Left: Whole ; Right: Rational) return Rational; function "*" (Left: Rational; Right: Whole ) return Rational; -- -- Relational -- function "=" (Left: Rational; Right: Whole) return Boolean; -- private type Rational is record Numerator, Denominator: Whole; end record; end Rational_Arithmetic;