111
|
1 -- 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;
|