gomp-20050608-branch/gcc/testsuite/ada/acats/tests/c3/c3a00121.a

   1 -- C3A00121.A
   2  --
   3 --                             Grant of Unlimited Rights
   4 --
   5 --     Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687,
   6 --     F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained
   7 --     unlimited rights in the software and documentation contained herein.
   8 --     Unlimited rights are defined in DFAR 252.227-7013(a)(19).  By making
   9 --     this public release, the Government intends to confer upon all
  10 --     recipients unlimited rights  equal to those held by the Government.
  11 --     These rights include rights to use, duplicate, release or disclose the
  12 --     released technical data and computer software in whole or in part, in
  13 --     any manner and for any purpose whatsoever, and to have or permit others
  14 --     to do so.
  15 --
  16 --                                    DISCLAIMER
  17 --
  18 --     ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR
  19 --     DISCLOSED ARE AS IS.  THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED
  20 --     WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE
  21 --     SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE
  22 --     OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A
  23 --     PARTICULAR PURPOSE OF SAID MATERIAL.
  24 --*
  25  --
  26  -- OBJECTIVE:
  27  --      See file C3A00122.AM
  28  --
  29  -- TEST DESCRIPTION:
  30  --      See file C3A00122.AM
  31  --
  32  -- TEST FILES:
  33  --      The following files comprise this test:
  34  --
  35  --         C3A00120.A
  36  --      => C3A00121.A
  37  --         C3A00122.AM
  38  --
  39  --
  40 -- CHANGE HISTORY:
  41 --      06 Dec 94   SAIC    ACVC 2.0
  42 --
  43  --!
  44
  45  Separate (C3A0012_0)
  46  procedure Log_Calc_Fast (Angle     : in  Float;
  47                           Method    : out Call_Kind) is
  48  begin
  49     C3A0012_0.Log_Result := Angle;
  50     Method := Fast_Call;
  51  end Log_Calc_Fast;
  52
  53
  54  --=======================================================================--
  55
  56
  57  Separate (C3A0012_0)
  58  procedure Log_Calc_Acc (Angle    : in  Float;
  59                          Method   : out Call_Kind) is
  60  begin
  61     C3A0012_0.Log_Result := Angle;
  62     Method := Accurate_Call;
  63  end Log_Calc_Acc;
  64
  65
  66  --=======================================================================--
  67
  68
  69  Separate (C3A0012_0)
  70  procedure Log_Calc_Table (Angle      : in  Float;
  71                            Method     : out Call_Kind) is
  72  begin
  73     C3A0012_0.Log_Result := Angle;
  74     Method := Table_Lookup_Call;
  75  end Log_Calc_Table;
  76