1------------------------------------------------------------------------------
2--                                                                          --
3--                         GNAT RUN-TIME COMPONENTS                         --
4--                                                                          --
5--                         A D A . N U M E R I C S                          --
6--                                                                          --
7--                                 S p e c                                  --
8--                                                                          --
9-- This specification is derived from the Ada Reference Manual for use with --
10-- GNAT.  In accordance with the copyright of that document, you can freely --
11-- copy and modify this specification,  provided that if you redistribute a --
12-- modified version,  any changes that you have made are clearly indicated. --
13--                                                                          --
14------------------------------------------------------------------------------
15
16package Ada.Numerics is
17   pragma Pure;
18
19   Argument_Error : exception;
20
21   Pi : constant :=
22          3.14159_26535_89793_23846_26433_83279_50288_41971_69399_37511;
23
24   --  ["03C0"] : constant := Pi;
25   --  This is the Greek letter Pi (for Ada 2005 AI-388). Note that it is
26   --  conforming to have this constant present even in Ada 95 mode, as there
27   --  is no way for a normal mode Ada 95 program to reference this identifier.
28   --  ???This is removed for now, because nobody uses it, and it causes
29   --  trouble for tools other than the compiler. If people want to use the
30   --  Greek letter in their programs, they can easily define it themselves.
31
32   e : constant :=
33         2.71828_18284_59045_23536_02874_71352_66249_77572_47093_69996;
34
35end Ada.Numerics;
36