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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [ada/] [acats/] [tests/] [c2/] [c25001b.ada] - Blame information for rev 294

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 294 jeremybenn
-- C25001B.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 B: THE LOWER CASE LETTERS AND THE OTHER
28
--              SPECIAL CHARACTERS.
29
 
30
-- TBN  8/1/86
31
 
32
WITH REPORT; USE REPORT;
33
PROCEDURE C25001B IS
34
 
35
BEGIN
36
     TEST ("C25001B", "CHECK THAT EACH CHARACTER IN THE LOWER CASE " &
37
                      "LETTERS AND THE OTHER SPECIAL CHARACTERS CAN " &
38
                      "BE WRITTEN");
39
 
40
     IF CHARACTER'POS('a') /= 97 THEN
41
          FAILED ("INCORRECT POSITION NUMBER FOR 'a'");
42
     END IF;
43
     IF CHARACTER'POS('b') /= 98 THEN
44
          FAILED ("INCORRECT POSITION NUMBER FOR 'b'");
45
     END IF;
46
     IF CHARACTER'POS('c') /= 99 THEN
47
          FAILED ("INCORRECT POSITION NUMBER FOR 'c'");
48
     END IF;
49
     IF CHARACTER'POS('d') /= 100 THEN
50
          FAILED ("INCORRECT POSITION NUMBER FOR 'd'");
51
     END IF;
52
     IF CHARACTER'POS('e') /= 101 THEN
53
          FAILED ("INCORRECT POSITION NUMBER FOR 'e'");
54
     END IF;
55
     IF CHARACTER'POS('f') /= 102 THEN
56
          FAILED ("INCORRECT POSITION NUMBER FOR 'f'");
57
     END IF;
58
     IF CHARACTER'POS('g') /= 103 THEN
59
          FAILED ("INCORRECT POSITION NUMBER FOR 'g'");
60
     END IF;
61
     IF CHARACTER'POS('h') /= 104 THEN
62
          FAILED ("INCORRECT POSITION NUMBER FOR 'h'");
63
     END IF;
64
     IF CHARACTER'POS('i') /= 105 THEN
65
          FAILED ("INCORRECT POSITION NUMBER FOR 'i'");
66
     END IF;
67
     IF CHARACTER'POS('j') /= 106 THEN
68
          FAILED ("INCORRECT POSITION NUMBER FOR 'j'");
69
     END IF;
70
     IF CHARACTER'POS('k') /= 107 THEN
71
          FAILED ("INCORRECT POSITION NUMBER FOR 'k'");
72
     END IF;
73
     IF CHARACTER'POS('l') /= 108 THEN
74
          FAILED ("INCORRECT POSITION NUMBER FOR 'l'");
75
     END IF;
76
     IF CHARACTER'POS('m') /= 109 THEN
77
          FAILED ("INCORRECT POSITION NUMBER FOR 'm'");
78
     END IF;
79
     IF CHARACTER'POS('n') /= 110 THEN
80
          FAILED ("INCORRECT POSITION NUMBER FOR 'n'");
81
     END IF;
82
     IF CHARACTER'POS('o') /= 111 THEN
83
          FAILED ("INCORRECT POSITION NUMBER FOR 'o'");
84
     END IF;
85
     IF CHARACTER'POS('p') /= 112 THEN
86
          FAILED ("INCORRECT POSITION NUMBER FOR 'p'");
87
     END IF;
88
     IF CHARACTER'POS('q') /= 113 THEN
89
          FAILED ("INCORRECT POSITION NUMBER FOR 'q'");
90
     END IF;
91
     IF CHARACTER'POS('r') /= 114 THEN
92
          FAILED ("INCORRECT POSITION NUMBER FOR 'r'");
93
     END IF;
94
     IF CHARACTER'POS('s') /= 115 THEN
95
          FAILED ("INCORRECT POSITION NUMBER FOR 's'");
96
     END IF;
97
     IF CHARACTER'POS('t') /= 116 THEN
98
          FAILED ("INCORRECT POSITION NUMBER FOR 't'");
99
     END IF;
100
     IF CHARACTER'POS('u') /= 117 THEN
101
          FAILED ("INCORRECT POSITION NUMBER FOR 'u'");
102
     END IF;
103
     IF CHARACTER'POS('v') /= 118 THEN
104
          FAILED ("INCORRECT POSITION NUMBER FOR 'v'");
105
     END IF;
106
     IF CHARACTER'POS('w') /= 119 THEN
107
          FAILED ("INCORRECT POSITION NUMBER FOR 'w'");
108
     END IF;
109
     IF CHARACTER'POS('x') /= 120 THEN
110
          FAILED ("INCORRECT POSITION NUMBER FOR 'x'");
111
     END IF;
112
     IF CHARACTER'POS('y') /= 121 THEN
113
          FAILED ("INCORRECT POSITION NUMBER FOR 'y'");
114
     END IF;
115
     IF CHARACTER'POS('z') /= 122 THEN
116
          FAILED ("INCORRECT POSITION NUMBER FOR 'z'");
117
     END IF;
118
 
119
     IF CHARACTER'POS('!') /= 33 THEN
120
          FAILED ("INCORRECT POSITION NUMBER FOR '!'");
121
     END IF;
122
     IF CHARACTER'POS('$') /= 36 THEN
123
          FAILED ("INCORRECT POSITION NUMBER FOR '$'");
124
     END IF;
125
     IF CHARACTER'POS('%') /= 37 THEN
126
          FAILED ("INCORRECT POSITION NUMBER FOR '%'");
127
     END IF;
128
     IF CHARACTER'POS('?') /= 63 THEN
129
          FAILED ("INCORRECT POSITION NUMBER FOR '?'");
130
     END IF;
131
     IF CHARACTER'POS('@') /= 64 THEN
132
          FAILED ("INCORRECT POSITION NUMBER FOR '@'");
133
     END IF;
134
     IF CHARACTER'POS('[') /= 91 THEN
135
          FAILED ("INCORRECT POSITION NUMBER FOR '['");
136
     END IF;
137
     IF CHARACTER'POS('\') /= 92 THEN
138
          FAILED ("INCORRECT POSITION NUMBER FOR '\'");
139
     END IF;
140
     IF CHARACTER'POS(']') /= 93 THEN
141
          FAILED ("INCORRECT POSITION NUMBER FOR ']'");
142
     END IF;
143
     IF CHARACTER'POS('^') /= 94 THEN
144
          FAILED ("INCORRECT POSITION NUMBER FOR '^'");
145
     END IF;
146
     IF CHARACTER'POS('`') /= 96 THEN
147
          FAILED ("INCORRECT POSITION NUMBER FOR '`'");
148
     END IF;
149
     IF CHARACTER'POS('{') /= 123 THEN
150
          FAILED ("INCORRECT POSITION NUMBER FOR '{'");
151
     END IF;
152
     IF CHARACTER'POS('}') /= 125 THEN
153
          FAILED ("INCORRECT POSITION NUMBER FOR '}'");
154
     END IF;
155
     IF CHARACTER'POS('~') /= 126 THEN
156
          FAILED ("INCORRECT POSITION NUMBER FOR '~'");
157
     END IF;
158
 
159
     RESULT;
160
END C25001B;

powered by: WebSVN 2.1.0

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