3 -- Grant of Unlimited Rights
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
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.
27 -- Check that access to subprogram type can be used to select and
28 -- invoke procedures with appropriate arguments dynamically.
31 -- Declare an access to procedure type in a package specification.
32 -- Declare three different log procedures that can be referred to by
33 -- the access to procedure type.
35 -- In the main program, call each procedure indirectly by dereferencing
40 -- 06 Dec 94 SAIC ACVC 2.0
41 -- 05 APR 96 SAIC RM reference change for 2.1
49 TC_Call_Tag
: Natural := 0;
51 Return_Num
: Float := 0.0;
53 -- Type accesses to any log procedure
54 type Log_Procedure_Ptr
is access procedure
57 procedure Log_Calc_Fast
(Angle
: in Float);
59 procedure Log_Calc_Acc
(Angle
: in Float);
61 procedure Log_Calc_Table
(Angle
: in Float);
66 -----------------------------------------------------------------------------
69 package body C3A0002_0
is
71 procedure Log_Calc_Fast
(Angle
: in Float) is
78 procedure Log_Calc_Acc
(Angle
: in Float) is
85 procedure Log_Calc_Table
(Angle
: in Float) is
93 -----------------------------------------------------------------------------
100 Log_Access
: C3A0002_0
.Log_Procedure_Ptr
;
101 Theta
: Float := 0.0;
105 Report
.Test
("C3A0002", "Check that access to subprogram type can be "
106 & "used to select and invoke procedures with "
107 & "appropriate arguments dynamically" );
109 Log_Access
:= C3A0002_0
.Log_Calc_Fast
'Access;
111 -- Invoking Log procedure designated by access value
114 If C3A0002_0
.TC_Call_Tag
/= 1 or C3A0002_0
.Return_Num
/= 0.0 then
115 Report
.Failed
("Incorrect Log_Calc_Fast result");
120 Log_Access
:= C3A0002_0
.Log_Calc_Acc
'Access;
122 -- Invoking Log procedure designated by access value
125 If C3A0002_0
.TC_Call_Tag
/= 2 or C3A0002_0
.Return_Num
/= 1.0 then
126 Report
.Failed
("Incorrect Log_Calc_Acc result");
131 Log_Access
:= C3A0002_0
.Log_Calc_Table
'Access;
133 -- Invoking Log procedure designated by access value
136 If C3A0002_0
.TC_Call_Tag
/= 3 or C3A0002_0
.Return_Num
/= -1.0 then
137 Report
.Failed
("Incorrect Log_Calc_Table result");