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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [ada/] [acats/] [tests/] [c2/] [c25001a.ada] - Blame information for rev 720

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 720 jeremybenn 
-- C25001A.ADA
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 
-- CHECK THAT ALL CHARACTER LITERALS CAN BE WRITTEN.
26 
 
27 
--      CASE A: THE BASIC CHARACTER SET.
28 
 
29 
-- TBN  3/17/86
30 
 
31 
WITH REPORT; USE REPORT;
32 
PROCEDURE C25001A IS
33 
 
34 
BEGIN
35 
     TEST ("C25001A", "CHECK THAT EACH CHARACTER IN THE BASIC " &
36 
                      "CHARACTER SET CAN BE WRITTEN");
37 
 
38 
     IF CHARACTER'POS('A') /= 65 THEN
39 
          FAILED ("INCORRECT POSITION NUMBER FOR 'A'");
40 
     END IF;
41 
     IF CHARACTER'POS('B') /= 66 THEN
42 
          FAILED ("INCORRECT POSITION NUMBER FOR 'B'");
43 
     END IF;
44 
     IF CHARACTER'POS('C') /= 67 THEN
45 
          FAILED ("INCORRECT POSITION NUMBER FOR 'C'");
46 
     END IF;
47 
     IF CHARACTER'POS('D') /= 68 THEN
48 
          FAILED ("INCORRECT POSITION NUMBER FOR 'D'");
49 
     END IF;
50 
     IF CHARACTER'POS('E') /= 69 THEN
51 
          FAILED ("INCORRECT POSITION NUMBER FOR 'E'");
52 
     END IF;
53 
     IF CHARACTER'POS('F') /= 70 THEN
54 
          FAILED ("INCORRECT POSITION NUMBER FOR 'F'");
55 
     END IF;
56 
     IF CHARACTER'POS('G') /= 71 THEN
57 
          FAILED ("INCORRECT POSITION NUMBER FOR 'G'");
58 
     END IF;
59 
     IF CHARACTER'POS('H') /= 72 THEN
60 
          FAILED ("INCORRECT POSITION NUMBER FOR 'H'");
61 
     END IF;
62 
     IF CHARACTER'POS('I') /= 73 THEN
63 
          FAILED ("INCORRECT POSITION NUMBER FOR 'I'");
64 
     END IF;
65 
     IF CHARACTER'POS('J') /= 74 THEN
66 
          FAILED ("INCORRECT POSITION NUMBER FOR 'J'");
67 
     END IF;
68 
     IF CHARACTER'POS('K') /= 75 THEN
69 
          FAILED ("INCORRECT POSITION NUMBER FOR 'K'");
70 
     END IF;
71 
     IF CHARACTER'POS('L') /= 76 THEN
72 
          FAILED ("INCORRECT POSITION NUMBER FOR 'L'");
73 
     END IF;
74 
     IF CHARACTER'POS('M') /= 77 THEN
75 
          FAILED ("INCORRECT POSITION NUMBER FOR 'M'");
76 
     END IF;
77 
     IF CHARACTER'POS('N') /= 78 THEN
78 
          FAILED ("INCORRECT POSITION NUMBER FOR 'N'");
79 
     END IF;
80 
     IF CHARACTER'POS('O') /= 79 THEN
81 
          FAILED ("INCORRECT POSITION NUMBER FOR 'O'");
82 
     END IF;
83 
     IF CHARACTER'POS('P') /= 80 THEN
84 
          FAILED ("INCORRECT POSITION NUMBER FOR 'P'");
85 
     END IF;
86 
     IF CHARACTER'POS('Q') /= 81 THEN
87 
          FAILED ("INCORRECT POSITION NUMBER FOR 'Q'");
88 
     END IF;
89 
     IF CHARACTER'POS('R') /= 82 THEN
90 
          FAILED ("INCORRECT POSITION NUMBER FOR 'R'");
91 
     END IF;
92 
     IF CHARACTER'POS('S') /= 83 THEN
93 
          FAILED ("INCORRECT POSITION NUMBER FOR 'S'");
94 
     END IF;
95 
     IF CHARACTER'POS('T') /= 84 THEN
96 
          FAILED ("INCORRECT POSITION NUMBER FOR 'T'");
97 
     END IF;
98 
     IF CHARACTER'POS('U') /= 85 THEN
99 
          FAILED ("INCORRECT POSITION NUMBER FOR 'U'");
100 
     END IF;
101 
     IF CHARACTER'POS('V') /= 86 THEN
102 
          FAILED ("INCORRECT POSITION NUMBER FOR 'V'");
103 
     END IF;
104 
     IF CHARACTER'POS('W') /= 87 THEN
105 
          FAILED ("INCORRECT POSITION NUMBER FOR 'W'");
106 
     END IF;
107 
     IF CHARACTER'POS('X') /= 88 THEN
108 
          FAILED ("INCORRECT POSITION NUMBER FOR 'X'");
109 
     END IF;
110 
     IF CHARACTER'POS('Y') /= 89 THEN
111 
          FAILED ("INCORRECT POSITION NUMBER FOR 'Y'");
112 
     END IF;
113 
     IF CHARACTER'POS('Z') /= 90 THEN
114 
          FAILED ("INCORRECT POSITION NUMBER FOR 'Z'");
115 
     END IF;
116 
 
117 
     IF CHARACTER'POS('0') /= 48 THEN
118 
          FAILED ("INCORRECT POSITION NUMBER FOR '0'");
119 
     END IF;
120 
     IF CHARACTER'POS('1') /= 49 THEN
121 
          FAILED ("INCORRECT POSITION NUMBER FOR '1'");
122 
     END IF;
123 
     IF CHARACTER'POS('2') /= 50 THEN
124 
          FAILED ("INCORRECT POSITION NUMBER FOR '2'");
125 
     END IF;
126 
     IF CHARACTER'POS('3') /= 51 THEN
127 
          FAILED ("INCORRECT POSITION NUMBER FOR '3'");
128 
     END IF;
129 
     IF CHARACTER'POS('4') /= 52 THEN
130 
          FAILED ("INCORRECT POSITION NUMBER FOR '4'");
131 
     END IF;
132 
     IF CHARACTER'POS('5') /= 53 THEN
133 
          FAILED ("INCORRECT POSITION NUMBER FOR '5'");
134 
     END IF;
135 
     IF CHARACTER'POS('6') /= 54 THEN
136 
          FAILED ("INCORRECT POSITION NUMBER FOR '6'");
137 
     END IF;
138 
     IF CHARACTER'POS('7') /= 55 THEN
139 
          FAILED ("INCORRECT POSITION NUMBER FOR '7'");
140 
     END IF;
141 
     IF CHARACTER'POS('8') /= 56 THEN
142 
          FAILED ("INCORRECT POSITION NUMBER FOR '8'");
143 
     END IF;
144 
     IF CHARACTER'POS('9') /= 57 THEN
145 
          FAILED ("INCORRECT POSITION NUMBER FOR '9'");
146 
     END IF;
147 
 
148 
     IF CHARACTER'POS('"') /= 34 THEN
149 
          FAILED ("INCORRECT POSITION NUMBER FOR '""'");
150 
     END IF;
151 
     IF CHARACTER'POS('#') /= 35 THEN
152 
          FAILED ("INCORRECT POSITION NUMBER FOR '#'");
153 
     END IF;
154 
     IF CHARACTER'POS('&') /= 38 THEN
155 
          FAILED ("INCORRECT POSITION NUMBER FOR '&'");
156 
     END IF;
157 
     IF CHARACTER'POS(''') /= 39 THEN
158 
          FAILED ("INCORRECT POSITION NUMBER FOR '''");
159 
     END IF;
160 
     IF CHARACTER'POS('(') /= 40 THEN
161 
          FAILED ("INCORRECT POSITION NUMBER FOR '('");
162 
     END IF;
163 
     IF CHARACTER'POS(')') /= 41 THEN
164 
          FAILED ("INCORRECT POSITION NUMBER FOR ')'");
165 
     END IF;
166 
     IF CHARACTER'POS('*') /= 42 THEN
167 
          FAILED ("INCORRECT POSITION NUMBER FOR '*'");
168 
     END IF;
169 
     IF CHARACTER'POS('+') /= 43 THEN
170 
          FAILED ("INCORRECT POSITION NUMBER FOR '+'");
171 
     END IF;
172 
     IF CHARACTER'POS(',') /= 44 THEN
173 
          FAILED ("INCORRECT POSITION NUMBER FOR ','");
174 
     END IF;
175 
     IF CHARACTER'POS('-') /= 45 THEN
176 
          FAILED ("INCORRECT POSITION NUMBER FOR '-'");
177 
     END IF;
178 
     IF CHARACTER'POS('.') /= 46 THEN
179 
          FAILED ("INCORRECT POSITION NUMBER FOR '.'");
180 
     END IF;
181 
     IF CHARACTER'POS('/') /= 47 THEN
182 
          FAILED ("INCORRECT POSITION NUMBER FOR '/'");
183 
     END IF;
184 
     IF CHARACTER'POS(':') /= 58 THEN
185 
          FAILED ("INCORRECT POSITION NUMBER FOR ':'");
186 
     END IF;
187 
     IF CHARACTER'POS(';') /= 59 THEN
188 
          FAILED ("INCORRECT POSITION NUMBER FOR ';'");
189 
     END IF;
190 
     IF CHARACTER'POS('<') /= 60 THEN
191 
          FAILED ("INCORRECT POSITION NUMBER FOR '<'");
192 
     END IF;
193 
     IF CHARACTER'POS('=') /= 61 THEN
194 
          FAILED ("INCORRECT POSITION NUMBER FOR '='");
195 
     END IF;
196 
     IF CHARACTER'POS('>') /= 62 THEN
197 
          FAILED ("INCORRECT POSITION NUMBER FOR '>'");
198 
     END IF;
199 
     IF CHARACTER'POS('_') /= 95 THEN
200 
          FAILED ("INCORRECT POSITION NUMBER FOR '_'");
201 
     END IF;
202 
     IF CHARACTER'POS('|') /= 124 THEN
203 
          FAILED ("INCORRECT POSITION NUMBER FOR '|'");
204 
     END IF;
205 
 
206 
     IF CHARACTER'POS(' ') /= 32 THEN
207 
          FAILED ("INCORRECT POSITION NUMBER FOR ' '");
208 
     END IF;
209 
 
210 
     RESULT;
211 
END C25001A;

powered by: WebSVN 2.1.0

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