Mercurial > hg > CbC > CbC_gcc
comparison gcc/testsuite/ada/acats/tests/c2/c25001a.ada @ 111:04ced10e8804
gcc 7
author | kono |
---|---|
date | Fri, 27 Oct 2017 22:46:09 +0900 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
68:561a7518be6b | 111:04ced10e8804 |
---|---|
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; |