OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [ada/] [acats/] [tests/] [cxb/] [cxb5001.a] - Blame information for rev 149

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 149 jeremybenn
-- CXB5001.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
--      Check that the specification of the package Interfaces.Fortran
28
--      are available for use.
29
--
30
-- TEST DESCRIPTION:
31
--      This test verifies that the types and subprograms specified for the
32
--      interface are present
33
--
34
-- APPLICABILITY CRITERIA:
35
--      If an implementation provides package Interfaces.Fortran, this test
36
--      must compile, execute, and report "PASSED".
37
--
38
--
39
-- CHANGE HISTORY:
40
--      06 Dec 94   SAIC    ACVC 2.0
41
--      28 Feb 96   SAIC    Added applicability criteria.
42
--      27 Oct 96   SAIC    Incorporated reviewer comments.
43
--
44
--!
45
 
46
with Report;
47
with Interfaces.Fortran;                                        -- N/A => ERROR
48
 
49
procedure CXB5001 is
50
   package Fortran renames Interfaces.FORTRAN;
51
 
52
begin
53
 
54
   Report.Test ("CXB5001", "Check the specification of Interfaces.Fortran");
55
 
56
 
57
   declare  -- encapsulate the test
58
 
59
 
60
         TC_Int     : integer := 1;
61
         TC_Natural : natural;
62
         TC_String  : String := "ABCD";
63
         TC_Character : Character := 'a';
64
 
65
         TST_Fortran_Integer   :  FORTRAN.Fortran_Integer;
66
 
67
         TST_Real              : Fortran.Real;
68
         TST_Double_Precision  : Fortran.Double_Precision;
69
 
70
         TST_Logical : Fortran.Logical := FORTRAN.true;
71
                                                   -- verify it is a Boolean
72
         TST_Complex : Fortran.Complex;
73
 
74
         TST_Imaginary_i : Fortran.Imaginary := FORTRAN.i;
75
         TST_Imaginary_j : Fortran.Imaginary := FORTRAN.j;
76
 
77
 
78
         -- Initialize it so we can use it below
79
         TST_Character_Set : Fortran.Character_Set :=
80
                                                Fortran.Character_Set'First;
81
 
82
         TST_Fortran_Character : FORTRAN.Fortran_Character (1..5) :=
83
                                       (others => TST_Character_Set);
84
 
85
 
86
 
87
   begin    -- encapsulation
88
 
89
      -- Arrange that the calls to the subprograms are compiled but
90
      -- not executed
91
      --
92
      if not Report.Equal ( TC_Int, TC_Int ) then
93
 
94
         TST_Character_Set := Fortran.To_Fortran (TC_Character);
95
         TC_Character := Fortran.To_Ada (TST_Character_Set);
96
 
97
 
98
         TST_Fortran_Character := FORTRAN.To_Fortran ("TEST STRING");
99
         Report.Comment ( Fortran.To_Ada (TST_Fortran_Character) );
100
 
101
         Fortran.To_Fortran ( TC_String, TST_Fortran_Character, TC_Natural );
102
         Fortran.To_Ada ( TST_Fortran_Character, TC_String, TC_Natural );
103
 
104
      end if;
105
 
106
   end;     -- encapsulation
107
 
108
   Report.Result;
109
 
110
end CXB5001;

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.