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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [achar_2.f90] - Blame information for rev 853

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

Line No. Rev Author Line
1 149 jeremybenn 
! { dg-do run }
2 
! PR 30389 - we now treat ACHAR equivalent to CHAR (except for
3 
!            out of range-values) and IACHAR equivalent to ICHAR.
4 
program main
5 
  integer :: i
6 
  character(len=1) :: c
7 
  if (iachar(achar(1)) /= 1) call abort
8 
  if (iachar ("")/= 1) call abort
9 
  if (achar (1) /= "") call abort
10 
  if ("" /= achar ( ichar ( ""))) call abort
11 
  i = 1
12 
  c = ""
13 
  if (achar(i) /= "") call abort
14 
  if (iachar(c) /= iachar("")) call abort
15 
  if (iachar(achar(2)) /= 2) call abort
16 
  if (iachar ("")/= 2) call abort
17 
  if (achar (2) /= "") call abort
18 
  if ("" /= achar ( ichar ( ""))) call abort
19 
  i = 2
20 
  c = ""
21 
  if (achar(i) /= "") call abort
22 
  if (iachar(c) /= iachar("")) call abort
23 
  if (iachar(achar(3)) /= 3) call abort
24 
  if (iachar ("")/= 3) call abort
25 
  if (achar (3) /= "") call abort
26 
  if ("" /= achar ( ichar ( ""))) call abort
27 
  i = 3
28 
  c = ""
29 
  if (achar(i) /= "") call abort
30 
  if (iachar(c) /= iachar("")) call abort
31 
  if (iachar(achar(4)) /= 4) call abort
32 
  if (iachar ("")/= 4) call abort
33 
  if (achar (4) /= "") call abort
34 
  if ("" /= achar ( ichar ( ""))) call abort
35 
  i = 4
36 
  c = ""
37 
  if (achar(i) /= "") call abort
38 
  if (iachar(c) /= iachar("")) call abort
39 
  if (iachar(achar(5)) /= 5) call abort
40 
  if (iachar ("")/= 5) call abort
41 
  if (achar (5) /= "") call abort
42 
  if ("" /= achar ( ichar ( ""))) call abort
43 
  i = 5
44 
  c = ""
45 
  if (achar(i) /= "") call abort
46 
  if (iachar(c) /= iachar("")) call abort
47 
  if (iachar(achar(6)) /= 6) call abort
48 
  if (iachar ("")/= 6) call abort
49 
  if (achar (6) /= "") call abort
50 
  if ("" /= achar ( ichar ( ""))) call abort
51 
  i = 6
52 
  c = ""
53 
  if (achar(i) /= "") call abort
54 
  if (iachar(c) /= iachar("")) call abort
55 
  if (iachar(achar(7)) /= 7) call abort
56 
  if (iachar ("")/= 7) call abort
57 
  if (achar (7) /= "") call abort
58 
  if ("" /= achar ( ichar ( ""))) call abort
59 
  i = 7
60 
  c = ""
61 
  if (achar(i) /= "") call abort
62 
  if (iachar(c) /= iachar("")) call abort
63 
  if (iachar(achar(8)) /= 8) call abort
64 
  if (iachar ("")/= 8) call abort
65 
  if (achar (8) /= "") call abort
66 
  if ("" /= achar ( ichar ( ""))) call abort
67 
  i = 8
68 
  c = ""
69 
  if (achar(i) /= "") call abort
70 
  if (iachar(c) /= iachar("")) call abort
71 
  if (iachar(achar(9)) /= 9) call abort
72 
  if (iachar (" ")/= 9) call abort
73 
  if (achar (9) /= "    ") call abort
74 
  if (" " /= achar ( ichar ( "  "))) call abort
75 
  i = 9
76 
  c = " "
77 
  if (achar(i) /= "     ") call abort
78 
  if (iachar(c) /= iachar("     ")) call abort
79 
  if (iachar(achar(10)) /= 10) call abort
80 
  if (iachar(achar(11)) /= 11) call abort
81 
  if (iachar ("")/= 11) call abort
82 
  if (achar (11) /= "") call abort
83 
  if ("" /= achar ( ichar ( ""))) call abort
84 
  i = 11
85 
  c = ""
86 
  if (achar(i) /= "") call abort
87 
  if (iachar(c) /= iachar("")) call abort
88 
  if (iachar(achar(12)) /= 12) call abort
89 
  if (iachar ("")/= 12) call abort
90 
  if (achar (12) /= "") call abort
91 
  if ("" /= achar ( ichar ( ""))) call abort
92 
  i = 12
93 
  c = ""
94 
  if (achar(i) /= "") call abort
95 
  if (iachar(c) /= iachar("")) call abort
96 
  if (iachar(achar(13)) /= 13) call abort
97 
  if (iachar(achar(14)) /= 14) call abort
98 
  if (iachar ("")/= 14) call abort
99 
  if (achar (14) /= "") call abort
100 
  if ("" /= achar ( ichar ( ""))) call abort
101 
  i = 14
102 
  c = ""
103 
  if (achar(i) /= "") call abort
104 
  if (iachar(c) /= iachar("")) call abort
105 
  if (iachar(achar(15)) /= 15) call abort
106 
  if (iachar ("")/= 15) call abort
107 
  if (achar (15) /= "") call abort
108 
  if ("" /= achar ( ichar ( ""))) call abort
109 
  i = 15
110 
  c = ""
111 
  if (achar(i) /= "") call abort
112 
  if (iachar(c) /= iachar("")) call abort
113 
  if (iachar(achar(16)) /= 16) call abort
114 
  if (iachar ("")/= 16) call abort
115 
  if (achar (16) /= "") call abort
116 
  if ("" /= achar ( ichar ( ""))) call abort
117 
  i = 16
118 
  c = ""
119 
  if (achar(i) /= "") call abort
120 
  if (iachar(c) /= iachar("")) call abort
121 
  if (iachar(achar(17)) /= 17) call abort
122 
  if (iachar ("")/= 17) call abort
123 
  if (achar (17) /= "") call abort
124 
  if ("" /= achar ( ichar ( ""))) call abort
125 
  i = 17
126 
  c = ""
127 
  if (achar(i) /= "") call abort
128 
  if (iachar(c) /= iachar("")) call abort
129 
  if (iachar(achar(18)) /= 18) call abort
130 
  if (iachar ("")/= 18) call abort
131 
  if (achar (18) /= "") call abort
132 
  if ("" /= achar ( ichar ( ""))) call abort
133 
  i = 18
134 
  c = ""
135 
  if (achar(i) /= "") call abort
136 
  if (iachar(c) /= iachar("")) call abort
137 
  if (iachar(achar(19)) /= 19) call abort
138 
  if (iachar ("")/= 19) call abort
139 
  if (achar (19) /= "") call abort
140 
  if ("" /= achar ( ichar ( ""))) call abort
141 
  i = 19
142 
  c = ""
143 
  if (achar(i) /= "") call abort
144 
  if (iachar(c) /= iachar("")) call abort
145 
  if (iachar(achar(20)) /= 20) call abort
146 
  if (iachar ("")/= 20) call abort
147 
  if (achar (20) /= "") call abort
148 
  if ("" /= achar ( ichar ( ""))) call abort
149 
  i = 20
150 
  c = ""
151 
  if (achar(i) /= "") call abort
152 
  if (iachar(c) /= iachar("")) call abort
153 
  if (iachar(achar(21)) /= 21) call abort
154 
  if (iachar ("")/= 21) call abort
155 
  if (achar (21) /= "") call abort
156 
  if ("" /= achar ( ichar ( ""))) call abort
157 
  i = 21
158 
  c = ""
159 
  if (achar(i) /= "") call abort
160 
  if (iachar(c) /= iachar("")) call abort
161 
  if (iachar(achar(22)) /= 22) call abort
162 
  if (iachar ("")/= 22) call abort
163 
  if (achar (22) /= "") call abort
164 
  if ("" /= achar ( ichar ( ""))) call abort
165 
  i = 22
166 
  c = ""
167 
  if (achar(i) /= "") call abort
168 
  if (iachar(c) /= iachar("")) call abort
169 
  if (iachar(achar(23)) /= 23) call abort
170 
  if (iachar ("")/= 23) call abort
171 
  if (achar (23) /= "") call abort
172 
  if ("" /= achar ( ichar ( ""))) call abort
173 
  i = 23
174 
  c = ""
175 
  if (achar(i) /= "") call abort
176 
  if (iachar(c) /= iachar("")) call abort
177 
  if (iachar(achar(24)) /= 24) call abort
178 
  if (iachar ("")/= 24) call abort
179 
  if (achar (24) /= "") call abort
180 
  if ("" /= achar ( ichar ( ""))) call abort
181 
  i = 24
182 
  c = ""
183 
  if (achar(i) /= "") call abort
184 
  if (iachar(c) /= iachar("")) call abort
185 
  if (iachar(achar(25)) /= 25) call abort
186 
  if (iachar ("")/= 25) call abort
187 
  if (achar (25) /= "") call abort
188 
  if ("" /= achar ( ichar ( ""))) call abort
189 
  i = 25
190 
  c = ""
191 
  if (achar(i) /= "") call abort
192 
  if (iachar(c) /= iachar("")) call abort
193 
  if (iachar(achar(26)) /= 26) call abort
194 
  if (iachar(achar(27)) /= 27) call abort
195 
  if (iachar ("")/= 27) call abort
196 
  if (achar (27) /= "") call abort
197 
  if ("" /= achar ( ichar ( ""))) call abort
198 
  i = 27
199 
  c = ""
200 
  if (achar(i) /= "") call abort
201 
  if (iachar(c) /= iachar("")) call abort
202 
  if (iachar(achar(28)) /= 28) call abort
203 
  if (iachar ("")/= 28) call abort
204 
  if (achar (28) /= "") call abort
205 
  if ("" /= achar ( ichar ( ""))) call abort
206 
  i = 28
207 
  c = ""
208 
  if (achar(i) /= "") call abort
209 
  if (iachar(c) /= iachar("")) call abort
210 
  if (iachar(achar(29)) /= 29) call abort
211 
  if (iachar ("")/= 29) call abort
212 
  if (achar (29) /= "") call abort
213 
  if ("" /= achar ( ichar ( ""))) call abort
214 
  i = 29
215 
  c = ""
216 
  if (achar(i) /= "") call abort
217 
  if (iachar(c) /= iachar("")) call abort
218 
  if (iachar(achar(30)) /= 30) call abort
219 
  if (iachar ("")/= 30) call abort
220 
  if (achar (30) /= "") call abort
221 
  if ("" /= achar ( ichar ( ""))) call abort
222 
  i = 30
223 
  c = ""
224 
  if (achar(i) /= "") call abort
225 
  if (iachar(c) /= iachar("")) call abort
226 
  if (iachar(achar(31)) /= 31) call abort
227 
  if (iachar ("")/= 31) call abort
228 
  if (achar (31) /= "") call abort
229 
  if ("" /= achar ( ichar ( ""))) call abort
230 
  i = 31
231 
  c = ""
232 
  if (achar(i) /= "") call abort
233 
  if (iachar(c) /= iachar("")) call abort
234 
  if (iachar(achar(32)) /= 32) call abort
235 
  if (iachar (" ")/= 32) call abort
236 
  if (achar (32) /= " ") call abort
237 
  if (" " /= achar ( ichar ( " "))) call abort
238 
  i = 32
239 
  c = " "
240 
  if (achar(i) /= " ") call abort
241 
  if (iachar(c) /= iachar(" ")) call abort
242 
  if (iachar(achar(33)) /= 33) call abort
243 
  if (iachar ("!")/= 33) call abort
244 
  if (achar (33) /= "!") call abort
245 
  if ("!" /= achar ( ichar ( "!"))) call abort
246 
  i = 33
247 
  c = "!"
248 
  if (achar(i) /= "!") call abort
249 
  if (iachar(c) /= iachar("!")) call abort
250 
  if (iachar(achar(34)) /= 34) call abort
251 
  if (iachar ('"')/= 34) call abort
252 
  if (achar (34) /= '"') call abort
253 
  if ('"' /= achar ( ichar ( '"'))) call abort
254 
  i = 34
255 
  c = '"'
256 
  if (achar(i) /= '"') call abort
257 
  if (iachar(c) /= iachar('"')) call abort
258 
  if (iachar(achar(35)) /= 35) call abort
259 
  if (iachar ("#")/= 35) call abort
260 
  if (achar (35) /= "#") call abort
261 
  if ("#" /= achar ( ichar ( "#"))) call abort
262 
  i = 35
263 
  c = "#"
264 
  if (achar(i) /= "#") call abort
265 
  if (iachar(c) /= iachar("#")) call abort
266 
  if (iachar(achar(36)) /= 36) call abort
267 
  if (iachar ("$")/= 36) call abort
268 
  if (achar (36) /= "$") call abort
269 
  if ("$" /= achar ( ichar ( "$"))) call abort
270 
  i = 36
271 
  c = "$"
272 
  if (achar(i) /= "$") call abort
273 
  if (iachar(c) /= iachar("$")) call abort
274 
  if (iachar(achar(37)) /= 37) call abort
275 
  if (iachar ("%")/= 37) call abort
276 
  if (achar (37) /= "%") call abort
277 
  if ("%" /= achar ( ichar ( "%"))) call abort
278 
  i = 37
279 
  c = "%"
280 
  if (achar(i) /= "%") call abort
281 
  if (iachar(c) /= iachar("%")) call abort
282 
  if (iachar(achar(38)) /= 38) call abort
283 
  if (iachar ("&")/= 38) call abort
284 
  if (achar (38) /= "&") call abort
285 
  if ("&" /= achar ( ichar ( "&"))) call abort
286 
  i = 38
287 
  c = "&"
288 
  if (achar(i) /= "&") call abort
289 
  if (iachar(c) /= iachar("&")) call abort
290 
  if (iachar(achar(39)) /= 39) call abort
291 
  if (iachar ("'")/= 39) call abort
292 
  if (achar (39) /= "'") call abort
293 
  if ("'" /= achar ( ichar ( "'"))) call abort
294 
  i = 39
295 
  c = "'"
296 
  if (achar(i) /= "'") call abort
297 
  if (iachar(c) /= iachar("'")) call abort
298 
  if (iachar(achar(40)) /= 40) call abort
299 
  if (iachar ("(")/= 40) call abort
300 
  if (achar (40) /= "(") call abort
301 
  if ("(" /= achar ( ichar ( "("))) call abort
302 
  i = 40
303 
  c = "("
304 
  if (achar(i) /= "(") call abort
305 
  if (iachar(c) /= iachar("(")) call abort
306 
  if (iachar(achar(41)) /= 41) call abort
307 
  if (iachar (")")/= 41) call abort
308 
  if (achar (41) /= ")") call abort
309 
  if (")" /= achar ( ichar ( ")"))) call abort
310 
  i = 41
311 
  c = ")"
312 
  if (achar(i) /= ")") call abort
313 
  if (iachar(c) /= iachar(")")) call abort
314 
  if (iachar(achar(42)) /= 42) call abort
315 
  if (iachar ("*")/= 42) call abort
316 
  if (achar (42) /= "*") call abort
317 
  if ("*" /= achar ( ichar ( "*"))) call abort
318 
  i = 42
319 
  c = "*"
320 
  if (achar(i) /= "*") call abort
321 
  if (iachar(c) /= iachar("*")) call abort
322 
  if (iachar(achar(43)) /= 43) call abort
323 
  if (iachar ("+")/= 43) call abort
324 
  if (achar (43) /= "+") call abort
325 
  if ("+" /= achar ( ichar ( "+"))) call abort
326 
  i = 43
327 
  c = "+"
328 
  if (achar(i) /= "+") call abort
329 
  if (iachar(c) /= iachar("+")) call abort
330 
  if (iachar(achar(44)) /= 44) call abort
331 
  if (iachar (",")/= 44) call abort
332 
  if (achar (44) /= ",") call abort
333 
  if ("," /= achar ( ichar ( ","))) call abort
334 
  i = 44
335 
  c = ","
336 
  if (achar(i) /= ",") call abort
337 
  if (iachar(c) /= iachar(",")) call abort
338 
  if (iachar(achar(45)) /= 45) call abort
339 
  if (iachar ("-")/= 45) call abort
340 
  if (achar (45) /= "-") call abort
341 
  if ("-" /= achar ( ichar ( "-"))) call abort
342 
  i = 45
343 
  c = "-"
344 
  if (achar(i) /= "-") call abort
345 
  if (iachar(c) /= iachar("-")) call abort
346 
  if (iachar(achar(46)) /= 46) call abort
347 
  if (iachar (".")/= 46) call abort
348 
  if (achar (46) /= ".") call abort
349 
  if ("." /= achar ( ichar ( "."))) call abort
350 
  i = 46
351 
  c = "."
352 
  if (achar(i) /= ".") call abort
353 
  if (iachar(c) /= iachar(".")) call abort
354 
  if (iachar(achar(47)) /= 47) call abort
355 
  if (iachar ("/")/= 47) call abort
356 
  if (achar (47) /= "/") call abort
357 
  if ("/" /= achar ( ichar ( "/"))) call abort
358 
  i = 47
359 
  c = "/"
360 
  if (achar(i) /= "/") call abort
361 
  if (iachar(c) /= iachar("/")) call abort
362 
  if (iachar(achar(48)) /= 48) call abort
363 
  if (iachar ("0")/= 48) call abort
364 
  if (achar (48) /= "0") call abort
365 
  if ("0" /= achar ( ichar ( "0"))) call abort
366 
  i = 48
367 
  c = "0"
368 
  if (achar(i) /= "0") call abort
369 
  if (iachar(c) /= iachar("0")) call abort
370 
  if (iachar(achar(49)) /= 49) call abort
371 
  if (iachar ("1")/= 49) call abort
372 
  if (achar (49) /= "1") call abort
373 
  if ("1" /= achar ( ichar ( "1"))) call abort
374 
  i = 49
375 
  c = "1"
376 
  if (achar(i) /= "1") call abort
377 
  if (iachar(c) /= iachar("1")) call abort
378 
  if (iachar(achar(50)) /= 50) call abort
379 
  if (iachar ("2")/= 50) call abort
380 
  if (achar (50) /= "2") call abort
381 
  if ("2" /= achar ( ichar ( "2"))) call abort
382 
  i = 50
383 
  c = "2"
384 
  if (achar(i) /= "2") call abort
385 
  if (iachar(c) /= iachar("2")) call abort
386 
  if (iachar(achar(51)) /= 51) call abort
387 
  if (iachar ("3")/= 51) call abort
388 
  if (achar (51) /= "3") call abort
389 
  if ("3" /= achar ( ichar ( "3"))) call abort
390 
  i = 51
391 
  c = "3"
392 
  if (achar(i) /= "3") call abort
393 
  if (iachar(c) /= iachar("3")) call abort
394 
  if (iachar(achar(52)) /= 52) call abort
395 
  if (iachar ("4")/= 52) call abort
396 
  if (achar (52) /= "4") call abort
397 
  if ("4" /= achar ( ichar ( "4"))) call abort
398 
  i = 52
399 
  c = "4"
400 
  if (achar(i) /= "4") call abort
401 
  if (iachar(c) /= iachar("4")) call abort
402 
  if (iachar(achar(53)) /= 53) call abort
403 
  if (iachar ("5")/= 53) call abort
404 
  if (achar (53) /= "5") call abort
405 
  if ("5" /= achar ( ichar ( "5"))) call abort
406 
  i = 53
407 
  c = "5"
408 
  if (achar(i) /= "5") call abort
409 
  if (iachar(c) /= iachar("5")) call abort
410 
  if (iachar(achar(54)) /= 54) call abort
411 
  if (iachar ("6")/= 54) call abort
412 
  if (achar (54) /= "6") call abort
413 
  if ("6" /= achar ( ichar ( "6"))) call abort
414 
  i = 54
415 
  c = "6"
416 
  if (achar(i) /= "6") call abort
417 
  if (iachar(c) /= iachar("6")) call abort
418 
  if (iachar(achar(55)) /= 55) call abort
419 
  if (iachar ("7")/= 55) call abort
420 
  if (achar (55) /= "7") call abort
421 
  if ("7" /= achar ( ichar ( "7"))) call abort
422 
  i = 55
423 
  c = "7"
424 
  if (achar(i) /= "7") call abort
425 
  if (iachar(c) /= iachar("7")) call abort
426 
  if (iachar(achar(56)) /= 56) call abort
427 
  if (iachar ("8")/= 56) call abort
428 
  if (achar (56) /= "8") call abort
429 
  if ("8" /= achar ( ichar ( "8"))) call abort
430 
  i = 56
431 
  c = "8"
432 
  if (achar(i) /= "8") call abort
433 
  if (iachar(c) /= iachar("8")) call abort
434 
  if (iachar(achar(57)) /= 57) call abort
435 
  if (iachar ("9")/= 57) call abort
436 
  if (achar (57) /= "9") call abort
437 
  if ("9" /= achar ( ichar ( "9"))) call abort
438 
  i = 57
439 
  c = "9"
440 
  if (achar(i) /= "9") call abort
441 
  if (iachar(c) /= iachar("9")) call abort
442 
  if (iachar(achar(58)) /= 58) call abort
443 
  if (iachar (":")/= 58) call abort
444 
  if (achar (58) /= ":") call abort
445 
  if (":" /= achar ( ichar ( ":"))) call abort
446 
  i = 58
447 
  c = ":"
448 
  if (achar(i) /= ":") call abort
449 
  if (iachar(c) /= iachar(":")) call abort
450 
  if (iachar(achar(59)) /= 59) call abort
451 
  if (iachar (";")/= 59) call abort
452 
  if (achar (59) /= ";") call abort
453 
  if (";" /= achar ( ichar ( ";"))) call abort
454 
  i = 59
455 
  c = ";"
456 
  if (achar(i) /= ";") call abort
457 
  if (iachar(c) /= iachar(";")) call abort
458 
  if (iachar(achar(60)) /= 60) call abort
459 
  if (iachar ("<")/= 60) call abort
460 
  if (achar (60) /= "<") call abort
461 
  if ("<" /= achar ( ichar ( "<"))) call abort
462 
  i = 60
463 
  c = "<"
464 
  if (achar(i) /= "<") call abort
465 
  if (iachar(c) /= iachar("<")) call abort
466 
  if (iachar(achar(61)) /= 61) call abort
467 
  if (iachar ("=")/= 61) call abort
468 
  if (achar (61) /= "=") call abort
469 
  if ("=" /= achar ( ichar ( "="))) call abort
470 
  i = 61
471 
  c = "="
472 
  if (achar(i) /= "=") call abort
473 
  if (iachar(c) /= iachar("=")) call abort
474 
  if (iachar(achar(62)) /= 62) call abort
475 
  if (iachar (">")/= 62) call abort
476 
  if (achar (62) /= ">") call abort
477 
  if (">" /= achar ( ichar ( ">"))) call abort
478 
  i = 62
479 
  c = ">"
480 
  if (achar(i) /= ">") call abort
481 
  if (iachar(c) /= iachar(">")) call abort
482 
  if (iachar(achar(63)) /= 63) call abort
483 
  if (iachar ("?")/= 63) call abort
484 
  if (achar (63) /= "?") call abort
485 
  if ("?" /= achar ( ichar ( "?"))) call abort
486 
  i = 63
487 
  c = "?"
488 
  if (achar(i) /= "?") call abort
489 
  if (iachar(c) /= iachar("?")) call abort
490 
  if (iachar(achar(64)) /= 64) call abort
491 
  if (iachar ("@")/= 64) call abort
492 
  if (achar (64) /= "@") call abort
493 
  if ("@" /= achar ( ichar ( "@"))) call abort
494 
  i = 64
495 
  c = "@"
496 
  if (achar(i) /= "@") call abort
497 
  if (iachar(c) /= iachar("@")) call abort
498 
  if (iachar(achar(65)) /= 65) call abort
499 
  if (iachar ("A")/= 65) call abort
500 
  if (achar (65) /= "A") call abort
501 
  if ("A" /= achar ( ichar ( "A"))) call abort
502 
  i = 65
503 
  c = "A"
504 
  if (achar(i) /= "A") call abort
505 
  if (iachar(c) /= iachar("A")) call abort
506 
  if (iachar(achar(66)) /= 66) call abort
507 
  if (iachar ("B")/= 66) call abort
508 
  if (achar (66) /= "B") call abort
509 
  if ("B" /= achar ( ichar ( "B"))) call abort
510 
  i = 66
511 
  c = "B"
512 
  if (achar(i) /= "B") call abort
513 
  if (iachar(c) /= iachar("B")) call abort
514 
  if (iachar(achar(67)) /= 67) call abort
515 
  if (iachar ("C")/= 67) call abort
516 
  if (achar (67) /= "C") call abort
517 
  if ("C" /= achar ( ichar ( "C"))) call abort
518 
  i = 67
519 
  c = "C"
520 
  if (achar(i) /= "C") call abort
521 
  if (iachar(c) /= iachar("C")) call abort
522 
  if (iachar(achar(68)) /= 68) call abort
523 
  if (iachar ("D")/= 68) call abort
524 
  if (achar (68) /= "D") call abort
525 
  if ("D" /= achar ( ichar ( "D"))) call abort
526 
  i = 68
527 
  c = "D"
528 
  if (achar(i) /= "D") call abort
529 
  if (iachar(c) /= iachar("D")) call abort
530 
  if (iachar(achar(69)) /= 69) call abort
531 
  if (iachar ("E")/= 69) call abort
532 
  if (achar (69) /= "E") call abort
533 
  if ("E" /= achar ( ichar ( "E"))) call abort
534 
  i = 69
535 
  c = "E"
536 
  if (achar(i) /= "E") call abort
537 
  if (iachar(c) /= iachar("E")) call abort
538 
  if (iachar(achar(70)) /= 70) call abort
539 
  if (iachar ("F")/= 70) call abort
540 
  if (achar (70) /= "F") call abort
541 
  if ("F" /= achar ( ichar ( "F"))) call abort
542 
  i = 70
543 
  c = "F"
544 
  if (achar(i) /= "F") call abort
545 
  if (iachar(c) /= iachar("F")) call abort
546 
  if (iachar(achar(71)) /= 71) call abort
547 
  if (iachar ("G")/= 71) call abort
548 
  if (achar (71) /= "G") call abort
549 
  if ("G" /= achar ( ichar ( "G"))) call abort
550 
  i = 71
551 
  c = "G"
552 
  if (achar(i) /= "G") call abort
553 
  if (iachar(c) /= iachar("G")) call abort
554 
  if (iachar(achar(72)) /= 72) call abort
555 
  if (iachar ("H")/= 72) call abort
556 
  if (achar (72) /= "H") call abort
557 
  if ("H" /= achar ( ichar ( "H"))) call abort
558 
  i = 72
559 
  c = "H"
560 
  if (achar(i) /= "H") call abort
561 
  if (iachar(c) /= iachar("H")) call abort
562 
  if (iachar(achar(73)) /= 73) call abort
563 
  if (iachar ("I")/= 73) call abort
564 
  if (achar (73) /= "I") call abort
565 
  if ("I" /= achar ( ichar ( "I"))) call abort
566 
  i = 73
567 
  c = "I"
568 
  if (achar(i) /= "I") call abort
569 
  if (iachar(c) /= iachar("I")) call abort
570 
  if (iachar(achar(74)) /= 74) call abort
571 
  if (iachar ("J")/= 74) call abort
572 
  if (achar (74) /= "J") call abort
573 
  if ("J" /= achar ( ichar ( "J"))) call abort
574 
  i = 74
575 
  c = "J"
576 
  if (achar(i) /= "J") call abort
577 
  if (iachar(c) /= iachar("J")) call abort
578 
  if (iachar(achar(75)) /= 75) call abort
579 
  if (iachar ("K")/= 75) call abort
580 
  if (achar (75) /= "K") call abort
581 
  if ("K" /= achar ( ichar ( "K"))) call abort
582 
  i = 75
583 
  c = "K"
584 
  if (achar(i) /= "K") call abort
585 
  if (iachar(c) /= iachar("K")) call abort
586 
  if (iachar(achar(76)) /= 76) call abort
587 
  if (iachar ("L")/= 76) call abort
588 
  if (achar (76) /= "L") call abort
589 
  if ("L" /= achar ( ichar ( "L"))) call abort
590 
  i = 76
591 
  c = "L"
592 
  if (achar(i) /= "L") call abort
593 
  if (iachar(c) /= iachar("L")) call abort
594 
  if (iachar(achar(77)) /= 77) call abort
595 
  if (iachar ("M")/= 77) call abort
596 
  if (achar (77) /= "M") call abort
597 
  if ("M" /= achar ( ichar ( "M"))) call abort
598 
  i = 77
599 
  c = "M"
600 
  if (achar(i) /= "M") call abort
601 
  if (iachar(c) /= iachar("M")) call abort
602 
  if (iachar(achar(78)) /= 78) call abort
603 
  if (iachar ("N")/= 78) call abort
604 
  if (achar (78) /= "N") call abort
605 
  if ("N" /= achar ( ichar ( "N"))) call abort
606 
  i = 78
607 
  c = "N"
608 
  if (achar(i) /= "N") call abort
609 
  if (iachar(c) /= iachar("N")) call abort
610 
  if (iachar(achar(79)) /= 79) call abort
611 
  if (iachar ("O")/= 79) call abort
612 
  if (achar (79) /= "O") call abort
613 
  if ("O" /= achar ( ichar ( "O"))) call abort
614 
  i = 79
615 
  c = "O"
616 
  if (achar(i) /= "O") call abort
617 
  if (iachar(c) /= iachar("O")) call abort
618 
  if (iachar(achar(80)) /= 80) call abort
619 
  if (iachar ("P")/= 80) call abort
620 
  if (achar (80) /= "P") call abort
621 
  if ("P" /= achar ( ichar ( "P"))) call abort
622 
  i = 80
623 
  c = "P"
624 
  if (achar(i) /= "P") call abort
625 
  if (iachar(c) /= iachar("P")) call abort
626 
  if (iachar(achar(81)) /= 81) call abort
627 
  if (iachar ("Q")/= 81) call abort
628 
  if (achar (81) /= "Q") call abort
629 
  if ("Q" /= achar ( ichar ( "Q"))) call abort
630 
  i = 81
631 
  c = "Q"
632 
  if (achar(i) /= "Q") call abort
633 
  if (iachar(c) /= iachar("Q")) call abort
634 
  if (iachar(achar(82)) /= 82) call abort
635 
  if (iachar ("R")/= 82) call abort
636 
  if (achar (82) /= "R") call abort
637 
  if ("R" /= achar ( ichar ( "R"))) call abort
638 
  i = 82
639 
  c = "R"
640 
  if (achar(i) /= "R") call abort
641 
  if (iachar(c) /= iachar("R")) call abort
642 
  if (iachar(achar(83)) /= 83) call abort
643 
  if (iachar ("S")/= 83) call abort
644 
  if (achar (83) /= "S") call abort
645 
  if ("S" /= achar ( ichar ( "S"))) call abort
646 
  i = 83
647 
  c = "S"
648 
  if (achar(i) /= "S") call abort
649 
  if (iachar(c) /= iachar("S")) call abort
650 
  if (iachar(achar(84)) /= 84) call abort
651 
  if (iachar ("T")/= 84) call abort
652 
  if (achar (84) /= "T") call abort
653 
  if ("T" /= achar ( ichar ( "T"))) call abort
654 
  i = 84
655 
  c = "T"
656 
  if (achar(i) /= "T") call abort
657 
  if (iachar(c) /= iachar("T")) call abort
658 
  if (iachar(achar(85)) /= 85) call abort
659 
  if (iachar ("U")/= 85) call abort
660 
  if (achar (85) /= "U") call abort
661 
  if ("U" /= achar ( ichar ( "U"))) call abort
662 
  i = 85
663 
  c = "U"
664 
  if (achar(i) /= "U") call abort
665 
  if (iachar(c) /= iachar("U")) call abort
666 
  if (iachar(achar(86)) /= 86) call abort
667 
  if (iachar ("V")/= 86) call abort
668 
  if (achar (86) /= "V") call abort
669 
  if ("V" /= achar ( ichar ( "V"))) call abort
670 
  i = 86
671 
  c = "V"
672 
  if (achar(i) /= "V") call abort
673 
  if (iachar(c) /= iachar("V")) call abort
674 
  if (iachar(achar(87)) /= 87) call abort
675 
  if (iachar ("W")/= 87) call abort
676 
  if (achar (87) /= "W") call abort
677 
  if ("W" /= achar ( ichar ( "W"))) call abort
678 
  i = 87
679 
  c = "W"
680 
  if (achar(i) /= "W") call abort
681 
  if (iachar(c) /= iachar("W")) call abort
682 
  if (iachar(achar(88)) /= 88) call abort
683 
  if (iachar ("X")/= 88) call abort
684 
  if (achar (88) /= "X") call abort
685 
  if ("X" /= achar ( ichar ( "X"))) call abort
686 
  i = 88
687 
  c = "X"
688 
  if (achar(i) /= "X") call abort
689 
  if (iachar(c) /= iachar("X")) call abort
690 
  if (iachar(achar(89)) /= 89) call abort
691 
  if (iachar ("Y")/= 89) call abort
692 
  if (achar (89) /= "Y") call abort
693 
  if ("Y" /= achar ( ichar ( "Y"))) call abort
694 
  i = 89
695 
  c = "Y"
696 
  if (achar(i) /= "Y") call abort
697 
  if (iachar(c) /= iachar("Y")) call abort
698 
  if (iachar(achar(90)) /= 90) call abort
699 
  if (iachar ("Z")/= 90) call abort
700 
  if (achar (90) /= "Z") call abort
701 
  if ("Z" /= achar ( ichar ( "Z"))) call abort
702 
  i = 90
703 
  c = "Z"
704 
  if (achar(i) /= "Z") call abort
705 
  if (iachar(c) /= iachar("Z")) call abort
706 
  if (iachar(achar(91)) /= 91) call abort
707 
  if (iachar ("[")/= 91) call abort
708 
  if (achar (91) /= "[") call abort
709 
  if ("[" /= achar ( ichar ( "["))) call abort
710 
  i = 91
711 
  c = "["
712 
  if (achar(i) /= "[") call abort
713 
  if (iachar(c) /= iachar("[")) call abort
714 
  if (iachar(achar(92)) /= 92) call abort
715 
  if (iachar ("\")/= 92) call abort
716 
  if (achar (92) /= "\") call abort
717 
  if ("\" /= achar ( ichar ( "\"))) call abort
718 
  i = 92
719 
  c = "\"
720 
  if (achar(i) /= "\") call abort
721 
  if (iachar(c) /= iachar("\")) call abort
722 
  if (iachar(achar(93)) /= 93) call abort
723 
  if (iachar ("]")/= 93) call abort
724 
  if (achar (93) /= "]") call abort
725 
  if ("]" /= achar ( ichar ( "]"))) call abort
726 
  i = 93
727 
  c = "]"
728 
  if (achar(i) /= "]") call abort
729 
  if (iachar(c) /= iachar("]")) call abort
730 
  if (iachar(achar(94)) /= 94) call abort
731 
  if (iachar ("^")/= 94) call abort
732 
  if (achar (94) /= "^") call abort
733 
  if ("^" /= achar ( ichar ( "^"))) call abort
734 
  i = 94
735 
  c = "^"
736 
  if (achar(i) /= "^") call abort
737 
  if (iachar(c) /= iachar("^")) call abort
738 
  if (iachar(achar(95)) /= 95) call abort
739 
  if (iachar ("_")/= 95) call abort
740 
  if (achar (95) /= "_") call abort
741 
  if ("_" /= achar ( ichar ( "_"))) call abort
742 
  i = 95
743 
  c = "_"
744 
  if (achar(i) /= "_") call abort
745 
  if (iachar(c) /= iachar("_")) call abort
746 
  if (iachar(achar(96)) /= 96) call abort
747 
  if (iachar ("`")/= 96) call abort
748 
  if (achar (96) /= "`") call abort
749 
  if ("`" /= achar ( ichar ( "`"))) call abort
750 
  i = 96
751 
  c = "`"
752 
  if (achar(i) /= "`") call abort
753 
  if (iachar(c) /= iachar("`")) call abort
754 
  if (iachar(achar(97)) /= 97) call abort
755 
  if (iachar ("a")/= 97) call abort
756 
  if (achar (97) /= "a") call abort
757 
  if ("a" /= achar ( ichar ( "a"))) call abort
758 
  i = 97
759 
  c = "a"
760 
  if (achar(i) /= "a") call abort
761 
  if (iachar(c) /= iachar("a")) call abort
762 
  if (iachar(achar(98)) /= 98) call abort
763 
  if (iachar ("b")/= 98) call abort
764 
  if (achar (98) /= "b") call abort
765 
  if ("b" /= achar ( ichar ( "b"))) call abort
766 
  i = 98
767 
  c = "b"
768 
  if (achar(i) /= "b") call abort
769 
  if (iachar(c) /= iachar("b")) call abort
770 
  if (iachar(achar(99)) /= 99) call abort
771 
  if (iachar ("c")/= 99) call abort
772 
  if (achar (99) /= "c") call abort
773 
  if ("c" /= achar ( ichar ( "c"))) call abort
774 
  i = 99
775 
  c = "c"
776 
  if (achar(i) /= "c") call abort
777 
  if (iachar(c) /= iachar("c")) call abort
778 
  if (iachar(achar(100)) /= 100) call abort
779 
  if (iachar ("d")/= 100) call abort
780 
  if (achar (100) /= "d") call abort
781 
  if ("d" /= achar ( ichar ( "d"))) call abort
782 
  i = 100
783 
  c = "d"
784 
  if (achar(i) /= "d") call abort
785 
  if (iachar(c) /= iachar("d")) call abort
786 
  if (iachar(achar(101)) /= 101) call abort
787 
  if (iachar ("e")/= 101) call abort
788 
  if (achar (101) /= "e") call abort
789 
  if ("e" /= achar ( ichar ( "e"))) call abort
790 
  i = 101
791 
  c = "e"
792 
  if (achar(i) /= "e") call abort
793 
  if (iachar(c) /= iachar("e")) call abort
794 
  if (iachar(achar(102)) /= 102) call abort
795 
  if (iachar ("f")/= 102) call abort
796 
  if (achar (102) /= "f") call abort
797 
  if ("f" /= achar ( ichar ( "f"))) call abort
798 
  i = 102
799 
  c = "f"
800 
  if (achar(i) /= "f") call abort
801 
  if (iachar(c) /= iachar("f")) call abort
802 
  if (iachar(achar(103)) /= 103) call abort
803 
  if (iachar ("g")/= 103) call abort
804 
  if (achar (103) /= "g") call abort
805 
  if ("g" /= achar ( ichar ( "g"))) call abort
806 
  i = 103
807 
  c = "g"
808 
  if (achar(i) /= "g") call abort
809 
  if (iachar(c) /= iachar("g")) call abort
810 
  if (iachar(achar(104)) /= 104) call abort
811 
  if (iachar ("h")/= 104) call abort
812 
  if (achar (104) /= "h") call abort
813 
  if ("h" /= achar ( ichar ( "h"))) call abort
814 
  i = 104
815 
  c = "h"
816 
  if (achar(i) /= "h") call abort
817 
  if (iachar(c) /= iachar("h")) call abort
818 
  if (iachar(achar(105)) /= 105) call abort
819 
  if (iachar ("i")/= 105) call abort
820 
  if (achar (105) /= "i") call abort
821 
  if ("i" /= achar ( ichar ( "i"))) call abort
822 
  i = 105
823 
  c = "i"
824 
  if (achar(i) /= "i") call abort
825 
  if (iachar(c) /= iachar("i")) call abort
826 
  if (iachar(achar(106)) /= 106) call abort
827 
  if (iachar ("j")/= 106) call abort
828 
  if (achar (106) /= "j") call abort
829 
  if ("j" /= achar ( ichar ( "j"))) call abort
830 
  i = 106
831 
  c = "j"
832 
  if (achar(i) /= "j") call abort
833 
  if (iachar(c) /= iachar("j")) call abort
834 
  if (iachar(achar(107)) /= 107) call abort
835 
  if (iachar ("k")/= 107) call abort
836 
  if (achar (107) /= "k") call abort
837 
  if ("k" /= achar ( ichar ( "k"))) call abort
838 
  i = 107
839 
  c = "k"
840 
  if (achar(i) /= "k") call abort
841 
  if (iachar(c) /= iachar("k")) call abort
842 
  if (iachar(achar(108)) /= 108) call abort
843 
  if (iachar ("l")/= 108) call abort
844 
  if (achar (108) /= "l") call abort
845 
  if ("l" /= achar ( ichar ( "l"))) call abort
846 
  i = 108
847 
  c = "l"
848 
  if (achar(i) /= "l") call abort
849 
  if (iachar(c) /= iachar("l")) call abort
850 
  if (iachar(achar(109)) /= 109) call abort
851 
  if (iachar ("m")/= 109) call abort
852 
  if (achar (109) /= "m") call abort
853 
  if ("m" /= achar ( ichar ( "m"))) call abort
854 
  i = 109
855 
  c = "m"
856 
  if (achar(i) /= "m") call abort
857 
  if (iachar(c) /= iachar("m")) call abort
858 
  if (iachar(achar(110)) /= 110) call abort
859 
  if (iachar ("n")/= 110) call abort
860 
  if (achar (110) /= "n") call abort
861 
  if ("n" /= achar ( ichar ( "n"))) call abort
862 
  i = 110
863 
  c = "n"
864 
  if (achar(i) /= "n") call abort
865 
  if (iachar(c) /= iachar("n")) call abort
866 
  if (iachar(achar(111)) /= 111) call abort
867 
  if (iachar ("o")/= 111) call abort
868 
  if (achar (111) /= "o") call abort
869 
  if ("o" /= achar ( ichar ( "o"))) call abort
870 
  i = 111
871 
  c = "o"
872 
  if (achar(i) /= "o") call abort
873 
  if (iachar(c) /= iachar("o")) call abort
874 
  if (iachar(achar(112)) /= 112) call abort
875 
  if (iachar ("p")/= 112) call abort
876 
  if (achar (112) /= "p") call abort
877 
  if ("p" /= achar ( ichar ( "p"))) call abort
878 
  i = 112
879 
  c = "p"
880 
  if (achar(i) /= "p") call abort
881 
  if (iachar(c) /= iachar("p")) call abort
882 
  if (iachar(achar(113)) /= 113) call abort
883 
  if (iachar ("q")/= 113) call abort
884 
  if (achar (113) /= "q") call abort
885 
  if ("q" /= achar ( ichar ( "q"))) call abort
886 
  i = 113
887 
  c = "q"
888 
  if (achar(i) /= "q") call abort
889 
  if (iachar(c) /= iachar("q")) call abort
890 
  if (iachar(achar(114)) /= 114) call abort
891 
  if (iachar ("r")/= 114) call abort
892 
  if (achar (114) /= "r") call abort
893 
  if ("r" /= achar ( ichar ( "r"))) call abort
894 
  i = 114
895 
  c = "r"
896 
  if (achar(i) /= "r") call abort
897 
  if (iachar(c) /= iachar("r")) call abort
898 
  if (iachar(achar(115)) /= 115) call abort
899 
  if (iachar ("s")/= 115) call abort
900 
  if (achar (115) /= "s") call abort
901 
  if ("s" /= achar ( ichar ( "s"))) call abort
902 
  i = 115
903 
  c = "s"
904 
  if (achar(i) /= "s") call abort
905 
  if (iachar(c) /= iachar("s")) call abort
906 
  if (iachar(achar(116)) /= 116) call abort
907 
  if (iachar ("t")/= 116) call abort
908 
  if (achar (116) /= "t") call abort
909 
  if ("t" /= achar ( ichar ( "t"))) call abort
910 
  i = 116
911 
  c = "t"
912 
  if (achar(i) /= "t") call abort
913 
  if (iachar(c) /= iachar("t")) call abort
914 
  if (iachar(achar(117)) /= 117) call abort
915 
  if (iachar ("u")/= 117) call abort
916 
  if (achar (117) /= "u") call abort
917 
  if ("u" /= achar ( ichar ( "u"))) call abort
918 
  i = 117
919 
  c = "u"
920 
  if (achar(i) /= "u") call abort
921 
  if (iachar(c) /= iachar("u")) call abort
922 
  if (iachar(achar(118)) /= 118) call abort
923 
  if (iachar ("v")/= 118) call abort
924 
  if (achar (118) /= "v") call abort
925 
  if ("v" /= achar ( ichar ( "v"))) call abort
926 
  i = 118
927 
  c = "v"
928 
  if (achar(i) /= "v") call abort
929 
  if (iachar(c) /= iachar("v")) call abort
930 
  if (iachar(achar(119)) /= 119) call abort
931 
  if (iachar ("w")/= 119) call abort
932 
  if (achar (119) /= "w") call abort
933 
  if ("w" /= achar ( ichar ( "w"))) call abort
934 
  i = 119
935 
  c = "w"
936 
  if (achar(i) /= "w") call abort
937 
  if (iachar(c) /= iachar("w")) call abort
938 
  if (iachar(achar(120)) /= 120) call abort
939 
  if (iachar ("x")/= 120) call abort
940 
  if (achar (120) /= "x") call abort
941 
  if ("x" /= achar ( ichar ( "x"))) call abort
942 
  i = 120
943 
  c = "x"
944 
  if (achar(i) /= "x") call abort
945 
  if (iachar(c) /= iachar("x")) call abort
946 
  if (iachar(achar(121)) /= 121) call abort
947 
  if (iachar ("y")/= 121) call abort
948 
  if (achar (121) /= "y") call abort
949 
  if ("y" /= achar ( ichar ( "y"))) call abort
950 
  i = 121
951 
  c = "y"
952 
  if (achar(i) /= "y") call abort
953 
  if (iachar(c) /= iachar("y")) call abort
954 
  if (iachar(achar(122)) /= 122) call abort
955 
  if (iachar ("z")/= 122) call abort
956 
  if (achar (122) /= "z") call abort
957 
  if ("z" /= achar ( ichar ( "z"))) call abort
958 
  i = 122
959 
  c = "z"
960 
  if (achar(i) /= "z") call abort
961 
  if (iachar(c) /= iachar("z")) call abort
962 
  if (iachar(achar(123)) /= 123) call abort
963 
  if (iachar ("{")/= 123) call abort
964 
  if (achar (123) /= "{") call abort
965 
  if ("{" /= achar ( ichar ( "{"))) call abort
966 
  i = 123
967 
  c = "{"
968 
  if (achar(i) /= "{") call abort
969 
  if (iachar(c) /= iachar("{")) call abort
970 
  if (iachar(achar(124)) /= 124) call abort
971 
  if (iachar ("|")/= 124) call abort
972 
  if (achar (124) /= "|") call abort
973 
  if ("|" /= achar ( ichar ( "|"))) call abort
974 
  i = 124
975 
  c = "|"
976 
  if (achar(i) /= "|") call abort
977 
  if (iachar(c) /= iachar("|")) call abort
978 
  if (iachar(achar(125)) /= 125) call abort
979 
  if (iachar ("}")/= 125) call abort
980 
  if (achar (125) /= "}") call abort
981 
  if ("}" /= achar ( ichar ( "}"))) call abort
982 
  i = 125
983 
  c = "}"
984 
  if (achar(i) /= "}") call abort
985 
  if (iachar(c) /= iachar("}")) call abort
986 
  if (iachar(achar(126)) /= 126) call abort
987 
  if (iachar ("~")/= 126) call abort
988 
  if (achar (126) /= "~") call abort
989 
  if ("~" /= achar ( ichar ( "~"))) call abort
990 
  i = 126
991 
  c = "~"
992 
  if (achar(i) /= "~") call abort
993 
  if (iachar(c) /= iachar("~")) call abort
994 
  if (iachar(achar(127)) /= 127) call abort
995 
  if (iachar ("")/= 127) call abort
996 
  if (achar (127) /= "") call abort
997 
  if ("" /= achar ( ichar ( ""))) call abort
998 
  i = 127
999 
  c = ""
1000 
  if (achar(i) /= "") call abort
1001 
  if (iachar(c) /= iachar("")) call abort
1002 
  if (iachar(achar(128)) /= 128) call abort
1003 
  if (iachar ("€")/= 128) call abort
1004 
  if (achar (128) /= "€") call abort
1005 
  if ("€" /= achar ( ichar ( "€"))) call abort
1006 
  i = 128
1007 
  c = "€"
1008 
  if (achar(i) /= "€") call abort
1009 
  if (iachar(c) /= iachar("€")) call abort
1010 
  if (iachar(achar(129)) /= 129) call abort
1011 
  if (iachar ("")/= 129) call abort
1012 
  if (achar (129) /= "") call abort
1013 
  if ("" /= achar ( ichar ( ""))) call abort
1014 
  i = 129
1015 
  c = ""
1016 
  if (achar(i) /= "") call abort
1017 
  if (iachar(c) /= iachar("")) call abort
1018 
  if (iachar(achar(130)) /= 130) call abort
1019 
  if (iachar ("‚")/= 130) call abort
1020 
  if (achar (130) /= "‚") call abort
1021 
  if ("‚" /= achar ( ichar ( "‚"))) call abort
1022 
  i = 130
1023 
  c = "‚"
1024 
  if (achar(i) /= "‚") call abort
1025 
  if (iachar(c) /= iachar("‚")) call abort
1026 
  if (iachar(achar(131)) /= 131) call abort
1027 
  if (iachar ("ƒ")/= 131) call abort
1028 
  if (achar (131) /= "ƒ") call abort
1029 
  if ("ƒ" /= achar ( ichar ( "ƒ"))) call abort
1030 
  i = 131
1031 
  c = "ƒ"
1032 
  if (achar(i) /= "ƒ") call abort
1033 
  if (iachar(c) /= iachar("ƒ")) call abort
1034 
  if (iachar(achar(132)) /= 132) call abort
1035 
  if (iachar ("„")/= 132) call abort
1036 
  if (achar (132) /= "„") call abort
1037 
  if ("„" /= achar ( ichar ( "„"))) call abort
1038 
  i = 132
1039 
  c = "„"
1040 
  if (achar(i) /= "„") call abort
1041 
  if (iachar(c) /= iachar("„")) call abort
1042 
  if (iachar(achar(133)) /= 133) call abort
1043 
  if (iachar ("…")/= 133) call abort
1044 
  if (achar (133) /= "…") call abort
1045 
  if ("…" /= achar ( ichar ( "…"))) call abort
1046 
  i = 133
1047 
  c = "…"
1048 
  if (achar(i) /= "…") call abort
1049 
  if (iachar(c) /= iachar("…")) call abort
1050 
  if (iachar(achar(134)) /= 134) call abort
1051 
  if (iachar ("†")/= 134) call abort
1052 
  if (achar (134) /= "†") call abort
1053 
  if ("†" /= achar ( ichar ( "†"))) call abort
1054 
  i = 134
1055 
  c = "†"
1056 
  if (achar(i) /= "†") call abort
1057 
  if (iachar(c) /= iachar("†")) call abort
1058 
  if (iachar(achar(135)) /= 135) call abort
1059 
  if (iachar ("‡")/= 135) call abort
1060 
  if (achar (135) /= "‡") call abort
1061 
  if ("‡" /= achar ( ichar ( "‡"))) call abort
1062 
  i = 135
1063 
  c = "‡"
1064 
  if (achar(i) /= "‡") call abort
1065 
  if (iachar(c) /= iachar("‡")) call abort
1066 
  if (iachar(achar(136)) /= 136) call abort
1067 
  if (iachar ("ˆ")/= 136) call abort
1068 
  if (achar (136) /= "ˆ") call abort
1069 
  if ("ˆ" /= achar ( ichar ( "ˆ"))) call abort
1070 
  i = 136
1071 
  c = "ˆ"
1072 
  if (achar(i) /= "ˆ") call abort
1073 
  if (iachar(c) /= iachar("ˆ")) call abort
1074 
  if (iachar(achar(137)) /= 137) call abort
1075 
  if (iachar ("‰")/= 137) call abort
1076 
  if (achar (137) /= "‰") call abort
1077 
  if ("‰" /= achar ( ichar ( "‰"))) call abort
1078 
  i = 137
1079 
  c = "‰"
1080 
  if (achar(i) /= "‰") call abort
1081 
  if (iachar(c) /= iachar("‰")) call abort
1082 
  if (iachar(achar(138)) /= 138) call abort
1083 
  if (iachar ("Š")/= 138) call abort
1084 
  if (achar (138) /= "Š") call abort
1085 
  if ("Š" /= achar ( ichar ( "Š"))) call abort
1086 
  i = 138
1087 
  c = "Š"
1088 
  if (achar(i) /= "Š") call abort
1089 
  if (iachar(c) /= iachar("Š")) call abort
1090 
  if (iachar(achar(139)) /= 139) call abort
1091 
  if (iachar ("‹")/= 139) call abort
1092 
  if (achar (139) /= "‹") call abort
1093 
  if ("‹" /= achar ( ichar ( "‹"))) call abort
1094 
  i = 139
1095 
  c = "‹"
1096 
  if (achar(i) /= "‹") call abort
1097 
  if (iachar(c) /= iachar("‹")) call abort
1098 
  if (iachar(achar(140)) /= 140) call abort
1099 
  if (iachar ("Œ")/= 140) call abort
1100 
  if (achar (140) /= "Œ") call abort
1101 
  if ("Œ" /= achar ( ichar ( "Œ"))) call abort
1102 
  i = 140
1103 
  c = "Œ"
1104 
  if (achar(i) /= "Œ") call abort
1105 
  if (iachar(c) /= iachar("Œ")) call abort
1106 
  if (iachar(achar(141)) /= 141) call abort
1107 
  if (iachar ("")/= 141) call abort
1108 
  if (achar (141) /= "") call abort
1109 
  if ("" /= achar ( ichar ( ""))) call abort
1110 
  i = 141
1111 
  c = ""
1112 
  if (achar(i) /= "") call abort
1113 
  if (iachar(c) /= iachar("")) call abort
1114 
  if (iachar(achar(142)) /= 142) call abort
1115 
  if (iachar ("Ž")/= 142) call abort
1116 
  if (achar (142) /= "Ž") call abort
1117 
  if ("Ž" /= achar ( ichar ( "Ž"))) call abort
1118 
  i = 142
1119 
  c = "Ž"
1120 
  if (achar(i) /= "Ž") call abort
1121 
  if (iachar(c) /= iachar("Ž")) call abort
1122 
  if (iachar(achar(143)) /= 143) call abort
1123 
  if (iachar ("")/= 143) call abort
1124 
  if (achar (143) /= "") call abort
1125 
  if ("" /= achar ( ichar ( ""))) call abort
1126 
  i = 143
1127 
  c = ""
1128 
  if (achar(i) /= "") call abort
1129 
  if (iachar(c) /= iachar("")) call abort
1130 
  if (iachar(achar(144)) /= 144) call abort
1131 
  if (iachar ("")/= 144) call abort
1132 
  if (achar (144) /= "") call abort
1133 
  if ("" /= achar ( ichar ( ""))) call abort
1134 
  i = 144
1135 
  c = ""
1136 
  if (achar(i) /= "") call abort
1137 
  if (iachar(c) /= iachar("")) call abort
1138 
  if (iachar(achar(145)) /= 145) call abort
1139 
  if (iachar ("‘")/= 145) call abort
1140 
  if (achar (145) /= "‘") call abort
1141 
  if ("‘" /= achar ( ichar ( "‘"))) call abort
1142 
  i = 145
1143 
  c = "‘"
1144 
  if (achar(i) /= "‘") call abort
1145 
  if (iachar(c) /= iachar("‘")) call abort
1146 
  if (iachar(achar(146)) /= 146) call abort
1147 
  if (iachar ("’")/= 146) call abort
1148 
  if (achar (146) /= "’") call abort
1149 
  if ("’" /= achar ( ichar ( "’"))) call abort
1150 
  i = 146
1151 
  c = "’"
1152 
  if (achar(i) /= "’") call abort
1153 
  if (iachar(c) /= iachar("’")) call abort
1154 
  if (iachar(achar(147)) /= 147) call abort
1155 
  if (iachar ("“")/= 147) call abort
1156 
  if (achar (147) /= "“") call abort
1157 
  if ("“" /= achar ( ichar ( "“"))) call abort
1158 
  i = 147
1159 
  c = "“"
1160 
  if (achar(i) /= "“") call abort
1161 
  if (iachar(c) /= iachar("“")) call abort
1162 
  if (iachar(achar(148)) /= 148) call abort
1163 
  if (iachar ("”")/= 148) call abort
1164 
  if (achar (148) /= "”") call abort
1165 
  if ("”" /= achar ( ichar ( "”"))) call abort
1166 
  i = 148
1167 
  c = "”"
1168 
  if (achar(i) /= "”") call abort
1169 
  if (iachar(c) /= iachar("”")) call abort
1170 
  if (iachar(achar(149)) /= 149) call abort
1171 
  if (iachar ("•")/= 149) call abort
1172 
  if (achar (149) /= "•") call abort
1173 
  if ("•" /= achar ( ichar ( "•"))) call abort
1174 
  i = 149
1175 
  c = "•"
1176 
  if (achar(i) /= "•") call abort
1177 
  if (iachar(c) /= iachar("•")) call abort
1178 
  if (iachar(achar(150)) /= 150) call abort
1179 
  if (iachar ("–")/= 150) call abort
1180 
  if (achar (150) /= "–") call abort
1181 
  if ("–" /= achar ( ichar ( "–"))) call abort
1182 
  i = 150
1183 
  c = "–"
1184 
  if (achar(i) /= "–") call abort
1185 
  if (iachar(c) /= iachar("–")) call abort
1186 
  if (iachar(achar(151)) /= 151) call abort
1187 
  if (iachar ("—")/= 151) call abort
1188 
  if (achar (151) /= "—") call abort
1189 
  if ("—" /= achar ( ichar ( "—"))) call abort
1190 
  i = 151
1191 
  c = "—"
1192 
  if (achar(i) /= "—") call abort
1193 
  if (iachar(c) /= iachar("—")) call abort
1194 
  if (iachar(achar(152)) /= 152) call abort
1195 
  if (iachar ("˜")/= 152) call abort
1196 
  if (achar (152) /= "˜") call abort
1197 
  if ("˜" /= achar ( ichar ( "˜"))) call abort
1198 
  i = 152
1199 
  c = "˜"
1200 
  if (achar(i) /= "˜") call abort
1201 
  if (iachar(c) /= iachar("˜")) call abort
1202 
  if (iachar(achar(153)) /= 153) call abort
1203 
  if (iachar ("™")/= 153) call abort
1204 
  if (achar (153) /= "™") call abort
1205 
  if ("™" /= achar ( ichar ( "™"))) call abort
1206 
  i = 153
1207 
  c = "™"
1208 
  if (achar(i) /= "™") call abort
1209 
  if (iachar(c) /= iachar("™")) call abort
1210 
  if (iachar(achar(154)) /= 154) call abort
1211 
  if (iachar ("š")/= 154) call abort
1212 
  if (achar (154) /= "š") call abort
1213 
  if ("š" /= achar ( ichar ( "š"))) call abort
1214 
  i = 154
1215 
  c = "š"
1216 
  if (achar(i) /= "š") call abort
1217 
  if (iachar(c) /= iachar("š")) call abort
1218 
  if (iachar(achar(155)) /= 155) call abort
1219 
  if (iachar ("›")/= 155) call abort
1220 
  if (achar (155) /= "›") call abort
1221 
  if ("›" /= achar ( ichar ( "›"))) call abort
1222 
  i = 155
1223 
  c = "›"
1224 
  if (achar(i) /= "›") call abort
1225 
  if (iachar(c) /= iachar("›")) call abort
1226 
  if (iachar(achar(156)) /= 156) call abort
1227 
  if (iachar ("œ")/= 156) call abort
1228 
  if (achar (156) /= "œ") call abort
1229 
  if ("œ" /= achar ( ichar ( "œ"))) call abort
1230 
  i = 156
1231 
  c = "œ"
1232 
  if (achar(i) /= "œ") call abort
1233 
  if (iachar(c) /= iachar("œ")) call abort
1234 
  if (iachar(achar(157)) /= 157) call abort
1235 
  if (iachar ("")/= 157) call abort
1236 
  if (achar (157) /= "") call abort
1237 
  if ("" /= achar ( ichar ( ""))) call abort
1238 
  i = 157
1239 
  c = ""
1240 
  if (achar(i) /= "") call abort
1241 
  if (iachar(c) /= iachar("")) call abort
1242 
  if (iachar(achar(158)) /= 158) call abort
1243 
  if (iachar ("ž")/= 158) call abort
1244 
  if (achar (158) /= "ž") call abort
1245 
  if ("ž" /= achar ( ichar ( "ž"))) call abort
1246 
  i = 158
1247 
  c = "ž"
1248 
  if (achar(i) /= "ž") call abort
1249 
  if (iachar(c) /= iachar("ž")) call abort
1250 
  if (iachar(achar(159)) /= 159) call abort
1251 
  if (iachar ("Ÿ")/= 159) call abort
1252 
  if (achar (159) /= "Ÿ") call abort
1253 
  if ("Ÿ" /= achar ( ichar ( "Ÿ"))) call abort
1254 
  i = 159
1255 
  c = "Ÿ"
1256 
  if (achar(i) /= "Ÿ") call abort
1257 
  if (iachar(c) /= iachar("Ÿ")) call abort
1258 
  if (iachar(achar(160)) /= 160) call abort
1259 
  if (iachar (" ")/= 160) call abort
1260 
  if (achar (160) /= " ") call abort
1261 
  if (" " /= achar ( ichar ( " "))) call abort
1262 
  i = 160
1263 
  c = " "
1264 
  if (achar(i) /= " ") call abort
1265 
  if (iachar(c) /= iachar(" ")) call abort
1266 
  if (iachar(achar(161)) /= 161) call abort
1267 
  if (iachar ("¡")/= 161) call abort
1268 
  if (achar (161) /= "¡") call abort
1269 
  if ("¡" /= achar ( ichar ( "¡"))) call abort
1270 
  i = 161
1271 
  c = "¡"
1272 
  if (achar(i) /= "¡") call abort
1273 
  if (iachar(c) /= iachar("¡")) call abort
1274 
  if (iachar(achar(162)) /= 162) call abort
1275 
  if (iachar ("¢")/= 162) call abort
1276 
  if (achar (162) /= "¢") call abort
1277 
  if ("¢" /= achar ( ichar ( "¢"))) call abort
1278 
  i = 162
1279 
  c = "¢"
1280 
  if (achar(i) /= "¢") call abort
1281 
  if (iachar(c) /= iachar("¢")) call abort
1282 
  if (iachar(achar(163)) /= 163) call abort
1283 
  if (iachar ("£")/= 163) call abort
1284 
  if (achar (163) /= "£") call abort
1285 
  if ("£" /= achar ( ichar ( "£"))) call abort
1286 
  i = 163
1287 
  c = "£"
1288 
  if (achar(i) /= "£") call abort
1289 
  if (iachar(c) /= iachar("£")) call abort
1290 
  if (iachar(achar(164)) /= 164) call abort
1291 
  if (iachar ("¤")/= 164) call abort
1292 
  if (achar (164) /= "¤") call abort
1293 
  if ("¤" /= achar ( ichar ( "¤"))) call abort
1294 
  i = 164
1295 
  c = "¤"
1296 
  if (achar(i) /= "¤") call abort
1297 
  if (iachar(c) /= iachar("¤")) call abort
1298 
  if (iachar(achar(165)) /= 165) call abort
1299 
  if (iachar ("¥")/= 165) call abort
1300 
  if (achar (165) /= "¥") call abort
1301 
  if ("¥" /= achar ( ichar ( "¥"))) call abort
1302 
  i = 165
1303 
  c = "¥"
1304 
  if (achar(i) /= "¥") call abort
1305 
  if (iachar(c) /= iachar("¥")) call abort
1306 
  if (iachar(achar(166)) /= 166) call abort
1307 
  if (iachar ("¦")/= 166) call abort
1308 
  if (achar (166) /= "¦") call abort
1309 
  if ("¦" /= achar ( ichar ( "¦"))) call abort
1310 
  i = 166
1311 
  c = "¦"
1312 
  if (achar(i) /= "¦") call abort
1313 
  if (iachar(c) /= iachar("¦")) call abort
1314 
  if (iachar(achar(167)) /= 167) call abort
1315 
  if (iachar ("§")/= 167) call abort
1316 
  if (achar (167) /= "§") call abort
1317 
  if ("§" /= achar ( ichar ( "§"))) call abort
1318 
  i = 167
1319 
  c = "§"
1320 
  if (achar(i) /= "§") call abort
1321 
  if (iachar(c) /= iachar("§")) call abort
1322 
  if (iachar(achar(168)) /= 168) call abort
1323 
  if (iachar ("¨")/= 168) call abort
1324 
  if (achar (168) /= "¨") call abort
1325 
  if ("¨" /= achar ( ichar ( "¨"))) call abort
1326 
  i = 168
1327 
  c = "¨"
1328 
  if (achar(i) /= "¨") call abort
1329 
  if (iachar(c) /= iachar("¨")) call abort
1330 
  if (iachar(achar(169)) /= 169) call abort
1331 
  if (iachar ("©")/= 169) call abort
1332 
  if (achar (169) /= "©") call abort
1333 
  if ("©" /= achar ( ichar ( "©"))) call abort
1334 
  i = 169
1335 
  c = "©"
1336 
  if (achar(i) /= "©") call abort
1337 
  if (iachar(c) /= iachar("©")) call abort
1338 
  if (iachar(achar(170)) /= 170) call abort
1339 
  if (iachar ("ª")/= 170) call abort
1340 
  if (achar (170) /= "ª") call abort
1341 
  if ("ª" /= achar ( ichar ( "ª"))) call abort
1342 
  i = 170
1343 
  c = "ª"
1344 
  if (achar(i) /= "ª") call abort
1345 
  if (iachar(c) /= iachar("ª")) call abort
1346 
  if (iachar(achar(171)) /= 171) call abort
1347 
  if (iachar ("«")/= 171) call abort
1348 
  if (achar (171) /= "«") call abort
1349 
  if ("«" /= achar ( ichar ( "«"))) call abort
1350 
  i = 171
1351 
  c = "«"
1352 
  if (achar(i) /= "«") call abort
1353 
  if (iachar(c) /= iachar("«")) call abort
1354 
  if (iachar(achar(172)) /= 172) call abort
1355 
  if (iachar ("¬")/= 172) call abort
1356 
  if (achar (172) /= "¬") call abort
1357 
  if ("¬" /= achar ( ichar ( "¬"))) call abort
1358 
  i = 172
1359 
  c = "¬"
1360 
  if (achar(i) /= "¬") call abort
1361 
  if (iachar(c) /= iachar("¬")) call abort
1362 
  if (iachar(achar(173)) /= 173) call abort
1363 
  if (iachar ("­")/= 173) call abort
1364 
  if (achar (173) /= "­") call abort
1365 
  if ("­" /= achar ( ichar ( "­"))) call abort
1366 
  i = 173
1367 
  c = "­"
1368 
  if (achar(i) /= "­") call abort
1369 
  if (iachar(c) /= iachar("­")) call abort
1370 
  if (iachar(achar(174)) /= 174) call abort
1371 
  if (iachar ("®")/= 174) call abort
1372 
  if (achar (174) /= "®") call abort
1373 
  if ("®" /= achar ( ichar ( "®"))) call abort
1374 
  i = 174
1375 
  c = "®"
1376 
  if (achar(i) /= "®") call abort
1377 
  if (iachar(c) /= iachar("®")) call abort
1378 
  if (iachar(achar(175)) /= 175) call abort
1379 
  if (iachar ("¯")/= 175) call abort
1380 
  if (achar (175) /= "¯") call abort
1381 
  if ("¯" /= achar ( ichar ( "¯"))) call abort
1382 
  i = 175
1383 
  c = "¯"
1384 
  if (achar(i) /= "¯") call abort
1385 
  if (iachar(c) /= iachar("¯")) call abort
1386 
  if (iachar(achar(176)) /= 176) call abort
1387 
  if (iachar ("°")/= 176) call abort
1388 
  if (achar (176) /= "°") call abort
1389 
  if ("°" /= achar ( ichar ( "°"))) call abort
1390 
  i = 176
1391 
  c = "°"
1392 
  if (achar(i) /= "°") call abort
1393 
  if (iachar(c) /= iachar("°")) call abort
1394 
  if (iachar(achar(177)) /= 177) call abort
1395 
  if (iachar ("±")/= 177) call abort
1396 
  if (achar (177) /= "±") call abort
1397 
  if ("±" /= achar ( ichar ( "±"))) call abort
1398 
  i = 177
1399 
  c = "±"
1400 
  if (achar(i) /= "±") call abort
1401 
  if (iachar(c) /= iachar("±")) call abort
1402 
  if (iachar(achar(178)) /= 178) call abort
1403 
  if (iachar ("²")/= 178) call abort
1404 
  if (achar (178) /= "²") call abort
1405 
  if ("²" /= achar ( ichar ( "²"))) call abort
1406 
  i = 178
1407 
  c = "²"
1408 
  if (achar(i) /= "²") call abort
1409 
  if (iachar(c) /= iachar("²")) call abort
1410 
  if (iachar(achar(179)) /= 179) call abort
1411 
  if (iachar ("³")/= 179) call abort
1412 
  if (achar (179) /= "³") call abort
1413 
  if ("³" /= achar ( ichar ( "³"))) call abort
1414 
  i = 179
1415 
  c = "³"
1416 
  if (achar(i) /= "³") call abort
1417 
  if (iachar(c) /= iachar("³")) call abort
1418 
  if (iachar(achar(180)) /= 180) call abort
1419 
  if (iachar ("´")/= 180) call abort
1420 
  if (achar (180) /= "´") call abort
1421 
  if ("´" /= achar ( ichar ( "´"))) call abort
1422 
  i = 180
1423 
  c = "´"
1424 
  if (achar(i) /= "´") call abort
1425 
  if (iachar(c) /= iachar("´")) call abort
1426 
  if (iachar(achar(181)) /= 181) call abort
1427 
  if (iachar ("µ")/= 181) call abort
1428 
  if (achar (181) /= "µ") call abort
1429 
  if ("µ" /= achar ( ichar ( "µ"))) call abort
1430 
  i = 181
1431 
  c = "µ"
1432 
  if (achar(i) /= "µ") call abort
1433 
  if (iachar(c) /= iachar("µ")) call abort
1434 
  if (iachar(achar(182)) /= 182) call abort
1435 
  if (iachar ("¶")/= 182) call abort
1436 
  if (achar (182) /= "¶") call abort
1437 
  if ("¶" /= achar ( ichar ( "¶"))) call abort
1438 
  i = 182
1439 
  c = "¶"
1440 
  if (achar(i) /= "¶") call abort
1441 
  if (iachar(c) /= iachar("¶")) call abort
1442 
  if (iachar(achar(183)) /= 183) call abort
1443 
  if (iachar ("·")/= 183) call abort
1444 
  if (achar (183) /= "·") call abort
1445 
  if ("·" /= achar ( ichar ( "·"))) call abort
1446 
  i = 183
1447 
  c = "·"
1448 
  if (achar(i) /= "·") call abort
1449 
  if (iachar(c) /= iachar("·")) call abort
1450 
  if (iachar(achar(184)) /= 184) call abort
1451 
  if (iachar ("¸")/= 184) call abort
1452 
  if (achar (184) /= "¸") call abort
1453 
  if ("¸" /= achar ( ichar ( "¸"))) call abort
1454 
  i = 184
1455 
  c = "¸"
1456 
  if (achar(i) /= "¸") call abort
1457 
  if (iachar(c) /= iachar("¸")) call abort
1458 
  if (iachar(achar(185)) /= 185) call abort
1459 
  if (iachar ("¹")/= 185) call abort
1460 
  if (achar (185) /= "¹") call abort
1461 
  if ("¹" /= achar ( ichar ( "¹"))) call abort
1462 
  i = 185
1463 
  c = "¹"
1464 
  if (achar(i) /= "¹") call abort
1465 
  if (iachar(c) /= iachar("¹")) call abort
1466 
  if (iachar(achar(186)) /= 186) call abort
1467 
  if (iachar ("º")/= 186) call abort
1468 
  if (achar (186) /= "º") call abort
1469 
  if ("º" /= achar ( ichar ( "º"))) call abort
1470 
  i = 186
1471 
  c = "º"
1472 
  if (achar(i) /= "º") call abort
1473 
  if (iachar(c) /= iachar("º")) call abort
1474 
  if (iachar(achar(187)) /= 187) call abort
1475 
  if (iachar ("»")/= 187) call abort
1476 
  if (achar (187) /= "»") call abort
1477 
  if ("»" /= achar ( ichar ( "»"))) call abort
1478 
  i = 187
1479 
  c = "»"
1480 
  if (achar(i) /= "»") call abort
1481 
  if (iachar(c) /= iachar("»")) call abort
1482 
  if (iachar(achar(188)) /= 188) call abort
1483 
  if (iachar ("¼")/= 188) call abort
1484 
  if (achar (188) /= "¼") call abort
1485 
  if ("¼" /= achar ( ichar ( "¼"))) call abort
1486 
  i = 188
1487 
  c = "¼"
1488 
  if (achar(i) /= "¼") call abort
1489 
  if (iachar(c) /= iachar("¼")) call abort
1490 
  if (iachar(achar(189)) /= 189) call abort
1491 
  if (iachar ("½")/= 189) call abort
1492 
  if (achar (189) /= "½") call abort
1493 
  if ("½" /= achar ( ichar ( "½"))) call abort
1494 
  i = 189
1495 
  c = "½"
1496 
  if (achar(i) /= "½") call abort
1497 
  if (iachar(c) /= iachar("½")) call abort
1498 
  if (iachar(achar(190)) /= 190) call abort
1499 
  if (iachar ("¾")/= 190) call abort
1500 
  if (achar (190) /= "¾") call abort
1501 
  if ("¾" /= achar ( ichar ( "¾"))) call abort
1502 
  i = 190
1503 
  c = "¾"
1504 
  if (achar(i) /= "¾") call abort
1505 
  if (iachar(c) /= iachar("¾")) call abort
1506 
  if (iachar(achar(191)) /= 191) call abort
1507 
  if (iachar ("¿")/= 191) call abort
1508 
  if (achar (191) /= "¿") call abort
1509 
  if ("¿" /= achar ( ichar ( "¿"))) call abort
1510 
  i = 191
1511 
  c = "¿"
1512 
  if (achar(i) /= "¿") call abort
1513 
  if (iachar(c) /= iachar("¿")) call abort
1514 
  if (iachar(achar(192)) /= 192) call abort
1515 
  if (iachar ("À")/= 192) call abort
1516 
  if (achar (192) /= "À") call abort
1517 
  if ("À" /= achar ( ichar ( "À"))) call abort
1518 
  i = 192
1519 
  c = "À"
1520 
  if (achar(i) /= "À") call abort
1521 
  if (iachar(c) /= iachar("À")) call abort
1522 
  if (iachar(achar(193)) /= 193) call abort
1523 
  if (iachar ("Á")/= 193) call abort
1524 
  if (achar (193) /= "Á") call abort
1525 
  if ("Á" /= achar ( ichar ( "Á"))) call abort
1526 
  i = 193
1527 
  c = "Á"
1528 
  if (achar(i) /= "Á") call abort
1529 
  if (iachar(c) /= iachar("Á")) call abort
1530 
  if (iachar(achar(194)) /= 194) call abort
1531 
  if (iachar ("Â")/= 194) call abort
1532 
  if (achar (194) /= "Â") call abort
1533 
  if ("Â" /= achar ( ichar ( "Â"))) call abort
1534 
  i = 194
1535 
  c = "Â"
1536 
  if (achar(i) /= "Â") call abort
1537 
  if (iachar(c) /= iachar("Â")) call abort
1538 
  if (iachar(achar(195)) /= 195) call abort
1539 
  if (iachar ("Ã")/= 195) call abort
1540 
  if (achar (195) /= "Ã") call abort
1541 
  if ("Ã" /= achar ( ichar ( "Ã"))) call abort
1542 
  i = 195
1543 
  c = "Ã"
1544 
  if (achar(i) /= "Ã") call abort
1545 
  if (iachar(c) /= iachar("Ã")) call abort
1546 
  if (iachar(achar(196)) /= 196) call abort
1547 
  if (iachar ("Ä")/= 196) call abort
1548 
  if (achar (196) /= "Ä") call abort
1549 
  if ("Ä" /= achar ( ichar ( "Ä"))) call abort
1550 
  i = 196
1551 
  c = "Ä"
1552 
  if (achar(i) /= "Ä") call abort
1553 
  if (iachar(c) /= iachar("Ä")) call abort
1554 
  if (iachar(achar(197)) /= 197) call abort
1555 
  if (iachar ("Å")/= 197) call abort
1556 
  if (achar (197) /= "Å") call abort
1557 
  if ("Å" /= achar ( ichar ( "Å"))) call abort
1558 
  i = 197
1559 
  c = "Å"
1560 
  if (achar(i) /= "Å") call abort
1561 
  if (iachar(c) /= iachar("Å")) call abort
1562 
  if (iachar(achar(198)) /= 198) call abort
1563 
  if (iachar ("Æ")/= 198) call abort
1564 
  if (achar (198) /= "Æ") call abort
1565 
  if ("Æ" /= achar ( ichar ( "Æ"))) call abort
1566 
  i = 198
1567 
  c = "Æ"
1568 
  if (achar(i) /= "Æ") call abort
1569 
  if (iachar(c) /= iachar("Æ")) call abort
1570 
  if (iachar(achar(199)) /= 199) call abort
1571 
  if (iachar ("Ç")/= 199) call abort
1572 
  if (achar (199) /= "Ç") call abort
1573 
  if ("Ç" /= achar ( ichar ( "Ç"))) call abort
1574 
  i = 199
1575 
  c = "Ç"
1576 
  if (achar(i) /= "Ç") call abort
1577 
  if (iachar(c) /= iachar("Ç")) call abort
1578 
  if (iachar(achar(200)) /= 200) call abort
1579 
  if (iachar ("È")/= 200) call abort
1580 
  if (achar (200) /= "È") call abort
1581 
  if ("È" /= achar ( ichar ( "È"))) call abort
1582 
  i = 200
1583 
  c = "È"
1584 
  if (achar(i) /= "È") call abort
1585 
  if (iachar(c) /= iachar("È")) call abort
1586 
  if (iachar(achar(201)) /= 201) call abort
1587 
  if (iachar ("É")/= 201) call abort
1588 
  if (achar (201) /= "É") call abort
1589 
  if ("É" /= achar ( ichar ( "É"))) call abort
1590 
  i = 201
1591 
  c = "É"
1592 
  if (achar(i) /= "É") call abort
1593 
  if (iachar(c) /= iachar("É")) call abort
1594 
  if (iachar(achar(202)) /= 202) call abort
1595 
  if (iachar ("Ê")/= 202) call abort
1596 
  if (achar (202) /= "Ê") call abort
1597 
  if ("Ê" /= achar ( ichar ( "Ê"))) call abort
1598 
  i = 202
1599 
  c = "Ê"
1600 
  if (achar(i) /= "Ê") call abort
1601 
  if (iachar(c) /= iachar("Ê")) call abort
1602 
  if (iachar(achar(203)) /= 203) call abort
1603 
  if (iachar ("Ë")/= 203) call abort
1604 
  if (achar (203) /= "Ë") call abort
1605 
  if ("Ë" /= achar ( ichar ( "Ë"))) call abort
1606 
  i = 203
1607 
  c = "Ë"
1608 
  if (achar(i) /= "Ë") call abort
1609 
  if (iachar(c) /= iachar("Ë")) call abort
1610 
  if (iachar(achar(204)) /= 204) call abort
1611 
  if (iachar ("Ì")/= 204) call abort
1612 
  if (achar (204) /= "Ì") call abort
1613 
  if ("Ì" /= achar ( ichar ( "Ì"))) call abort
1614 
  i = 204
1615 
  c = "Ì"
1616 
  if (achar(i) /= "Ì") call abort
1617 
  if (iachar(c) /= iachar("Ì")) call abort
1618 
  if (iachar(achar(205)) /= 205) call abort
1619 
  if (iachar ("Í")/= 205) call abort
1620 
  if (achar (205) /= "Í") call abort
1621 
  if ("Í" /= achar ( ichar ( "Í"))) call abort
1622 
  i = 205
1623 
  c = "Í"
1624 
  if (achar(i) /= "Í") call abort
1625 
  if (iachar(c) /= iachar("Í")) call abort
1626 
  if (iachar(achar(206)) /= 206) call abort
1627 
  if (iachar ("Î")/= 206) call abort
1628 
  if (achar (206) /= "Î") call abort
1629 
  if ("Î" /= achar ( ichar ( "Î"))) call abort
1630 
  i = 206
1631 
  c = "Î"
1632 
  if (achar(i) /= "Î") call abort
1633 
  if (iachar(c) /= iachar("Î")) call abort
1634 
  if (iachar(achar(207)) /= 207) call abort
1635 
  if (iachar ("Ï")/= 207) call abort
1636 
  if (achar (207) /= "Ï") call abort
1637 
  if ("Ï" /= achar ( ichar ( "Ï"))) call abort
1638 
  i = 207
1639 
  c = "Ï"
1640 
  if (achar(i) /= "Ï") call abort
1641 
  if (iachar(c) /= iachar("Ï")) call abort
1642 
  if (iachar(achar(208)) /= 208) call abort
1643 
  if (iachar ("Ð")/= 208) call abort
1644 
  if (achar (208) /= "Ð") call abort
1645 
  if ("Ð" /= achar ( ichar ( "Ð"))) call abort
1646 
  i = 208
1647 
  c = "Ð"
1648 
  if (achar(i) /= "Ð") call abort
1649 
  if (iachar(c) /= iachar("Ð")) call abort
1650 
  if (iachar(achar(209)) /= 209) call abort
1651 
  if (iachar ("Ñ")/= 209) call abort
1652 
  if (achar (209) /= "Ñ") call abort
1653 
  if ("Ñ" /= achar ( ichar ( "Ñ"))) call abort
1654 
  i = 209
1655 
  c = "Ñ"
1656 
  if (achar(i) /= "Ñ") call abort
1657 
  if (iachar(c) /= iachar("Ñ")) call abort
1658 
  if (iachar(achar(210)) /= 210) call abort
1659 
  if (iachar ("Ò")/= 210) call abort
1660 
  if (achar (210) /= "Ò") call abort
1661 
  if ("Ò" /= achar ( ichar ( "Ò"))) call abort
1662 
  i = 210
1663 
  c = "Ò"
1664 
  if (achar(i) /= "Ò") call abort
1665 
  if (iachar(c) /= iachar("Ò")) call abort
1666 
  if (iachar(achar(211)) /= 211) call abort
1667 
  if (iachar ("Ó")/= 211) call abort
1668 
  if (achar (211) /= "Ó") call abort
1669 
  if ("Ó" /= achar ( ichar ( "Ó"))) call abort
1670 
  i = 211
1671 
  c = "Ó"
1672 
  if (achar(i) /= "Ó") call abort
1673 
  if (iachar(c) /= iachar("Ó")) call abort
1674 
  if (iachar(achar(212)) /= 212) call abort
1675 
  if (iachar ("Ô")/= 212) call abort
1676 
  if (achar (212) /= "Ô") call abort
1677 
  if ("Ô" /= achar ( ichar ( "Ô"))) call abort
1678 
  i = 212
1679 
  c = "Ô"
1680 
  if (achar(i) /= "Ô") call abort
1681 
  if (iachar(c) /= iachar("Ô")) call abort
1682 
  if (iachar(achar(213)) /= 213) call abort
1683 
  if (iachar ("Õ")/= 213) call abort
1684 
  if (achar (213) /= "Õ") call abort
1685 
  if ("Õ" /= achar ( ichar ( "Õ"))) call abort
1686 
  i = 213
1687 
  c = "Õ"
1688 
  if (achar(i) /= "Õ") call abort
1689 
  if (iachar(c) /= iachar("Õ")) call abort
1690 
  if (iachar(achar(214)) /= 214) call abort
1691 
  if (iachar ("Ö")/= 214) call abort
1692 
  if (achar (214) /= "Ö") call abort
1693 
  if ("Ö" /= achar ( ichar ( "Ö"))) call abort
1694 
  i = 214
1695 
  c = "Ö"
1696 
  if (achar(i) /= "Ö") call abort
1697 
  if (iachar(c) /= iachar("Ö")) call abort
1698 
  if (iachar(achar(215)) /= 215) call abort
1699 
  if (iachar ("×")/= 215) call abort
1700 
  if (achar (215) /= "×") call abort
1701 
  if ("×" /= achar ( ichar ( "×"))) call abort
1702 
  i = 215
1703 
  c = "×"
1704 
  if (achar(i) /= "×") call abort
1705 
  if (iachar(c) /= iachar("×")) call abort
1706 
  if (iachar(achar(216)) /= 216) call abort
1707 
  if (iachar ("Ø")/= 216) call abort
1708 
  if (achar (216) /= "Ø") call abort
1709 
  if ("Ø" /= achar ( ichar ( "Ø"))) call abort
1710 
  i = 216
1711 
  c = "Ø"
1712 
  if (achar(i) /= "Ø") call abort
1713 
  if (iachar(c) /= iachar("Ø")) call abort
1714 
  if (iachar(achar(217)) /= 217) call abort
1715 
  if (iachar ("Ù")/= 217) call abort
1716 
  if (achar (217) /= "Ù") call abort
1717 
  if ("Ù" /= achar ( ichar ( "Ù"))) call abort
1718 
  i = 217
1719 
  c = "Ù"
1720 
  if (achar(i) /= "Ù") call abort
1721 
  if (iachar(c) /= iachar("Ù")) call abort
1722 
  if (iachar(achar(218)) /= 218) call abort
1723 
  if (iachar ("Ú")/= 218) call abort
1724 
  if (achar (218) /= "Ú") call abort
1725 
  if ("Ú" /= achar ( ichar ( "Ú"))) call abort
1726 
  i = 218
1727 
  c = "Ú"
1728 
  if (achar(i) /= "Ú") call abort
1729 
  if (iachar(c) /= iachar("Ú")) call abort
1730 
  if (iachar(achar(219)) /= 219) call abort
1731 
  if (iachar ("Û")/= 219) call abort
1732 
  if (achar (219) /= "Û") call abort
1733 
  if ("Û" /= achar ( ichar ( "Û"))) call abort
1734 
  i = 219
1735 
  c = "Û"
1736 
  if (achar(i) /= "Û") call abort
1737 
  if (iachar(c) /= iachar("Û")) call abort
1738 
  if (iachar(achar(220)) /= 220) call abort
1739 
  if (iachar ("Ü")/= 220) call abort
1740 
  if (achar (220) /= "Ü") call abort
1741 
  if ("Ü" /= achar ( ichar ( "Ü"))) call abort
1742 
  i = 220
1743 
  c = "Ü"
1744 
  if (achar(i) /= "Ü") call abort
1745 
  if (iachar(c) /= iachar("Ü")) call abort
1746 
  if (iachar(achar(221)) /= 221) call abort
1747 
  if (iachar ("Ý")/= 221) call abort
1748 
  if (achar (221) /= "Ý") call abort
1749 
  if ("Ý" /= achar ( ichar ( "Ý"))) call abort
1750 
  i = 221
1751 
  c = "Ý"
1752 
  if (achar(i) /= "Ý") call abort
1753 
  if (iachar(c) /= iachar("Ý")) call abort
1754 
  if (iachar(achar(222)) /= 222) call abort
1755 
  if (iachar ("Þ")/= 222) call abort
1756 
  if (achar (222) /= "Þ") call abort
1757 
  if ("Þ" /= achar ( ichar ( "Þ"))) call abort
1758 
  i = 222
1759 
  c = "Þ"
1760 
  if (achar(i) /= "Þ") call abort
1761 
  if (iachar(c) /= iachar("Þ")) call abort
1762 
  if (iachar(achar(223)) /= 223) call abort
1763 
  if (iachar ("ß")/= 223) call abort
1764 
  if (achar (223) /= "ß") call abort
1765 
  if ("ß" /= achar ( ichar ( "ß"))) call abort
1766 
  i = 223
1767 
  c = "ß"
1768 
  if (achar(i) /= "ß") call abort
1769 
  if (iachar(c) /= iachar("ß")) call abort
1770 
  if (iachar(achar(224)) /= 224) call abort
1771 
  if (iachar ("à")/= 224) call abort
1772 
  if (achar (224) /= "à") call abort
1773 
  if ("à" /= achar ( ichar ( "à"))) call abort
1774 
  i = 224
1775 
  c = "à"
1776 
  if (achar(i) /= "à") call abort
1777 
  if (iachar(c) /= iachar("à")) call abort
1778 
  if (iachar(achar(225)) /= 225) call abort
1779 
  if (iachar ("á")/= 225) call abort
1780 
  if (achar (225) /= "á") call abort
1781 
  if ("á" /= achar ( ichar ( "á"))) call abort
1782 
  i = 225
1783 
  c = "á"
1784 
  if (achar(i) /= "á") call abort
1785 
  if (iachar(c) /= iachar("á")) call abort
1786 
  if (iachar(achar(226)) /= 226) call abort
1787 
  if (iachar ("â")/= 226) call abort
1788 
  if (achar (226) /= "â") call abort
1789 
  if ("â" /= achar ( ichar ( "â"))) call abort
1790 
  i = 226
1791 
  c = "â"
1792 
  if (achar(i) /= "â") call abort
1793 
  if (iachar(c) /= iachar("â")) call abort
1794 
  if (iachar(achar(227)) /= 227) call abort
1795 
  if (iachar ("ã")/= 227) call abort
1796 
  if (achar (227) /= "ã") call abort
1797 
  if ("ã" /= achar ( ichar ( "ã"))) call abort
1798 
  i = 227
1799 
  c = "ã"
1800 
  if (achar(i) /= "ã") call abort
1801 
  if (iachar(c) /= iachar("ã")) call abort
1802 
  if (iachar(achar(228)) /= 228) call abort
1803 
  if (iachar ("ä")/= 228) call abort
1804 
  if (achar (228) /= "ä") call abort
1805 
  if ("ä" /= achar ( ichar ( "ä"))) call abort
1806 
  i = 228
1807 
  c = "ä"
1808 
  if (achar(i) /= "ä") call abort
1809 
  if (iachar(c) /= iachar("ä")) call abort
1810 
  if (iachar(achar(229)) /= 229) call abort
1811 
  if (iachar ("å")/= 229) call abort
1812 
  if (achar (229) /= "å") call abort
1813 
  if ("å" /= achar ( ichar ( "å"))) call abort
1814 
  i = 229
1815 
  c = "å"
1816 
  if (achar(i) /= "å") call abort
1817 
  if (iachar(c) /= iachar("å")) call abort
1818 
  if (iachar(achar(230)) /= 230) call abort
1819 
  if (iachar ("æ")/= 230) call abort
1820 
  if (achar (230) /= "æ") call abort
1821 
  if ("æ" /= achar ( ichar ( "æ"))) call abort
1822 
  i = 230
1823 
  c = "æ"
1824 
  if (achar(i) /= "æ") call abort
1825 
  if (iachar(c) /= iachar("æ")) call abort
1826 
  if (iachar(achar(231)) /= 231) call abort
1827 
  if (iachar ("ç")/= 231) call abort
1828 
  if (achar (231) /= "ç") call abort
1829 
  if ("ç" /= achar ( ichar ( "ç"))) call abort
1830 
  i = 231
1831 
  c = "ç"
1832 
  if (achar(i) /= "ç") call abort
1833 
  if (iachar(c) /= iachar("ç")) call abort
1834 
  if (iachar(achar(232)) /= 232) call abort
1835 
  if (iachar ("è")/= 232) call abort
1836 
  if (achar (232) /= "è") call abort
1837 
  if ("è" /= achar ( ichar ( "è"))) call abort
1838 
  i = 232
1839 
  c = "è"
1840 
  if (achar(i) /= "è") call abort
1841 
  if (iachar(c) /= iachar("è")) call abort
1842 
  if (iachar(achar(233)) /= 233) call abort
1843 
  if (iachar ("é")/= 233) call abort
1844 
  if (achar (233) /= "é") call abort
1845 
  if ("é" /= achar ( ichar ( "é"))) call abort
1846 
  i = 233
1847 
  c = "é"
1848 
  if (achar(i) /= "é") call abort
1849 
  if (iachar(c) /= iachar("é")) call abort
1850 
  if (iachar(achar(234)) /= 234) call abort
1851 
  if (iachar ("ê")/= 234) call abort
1852 
  if (achar (234) /= "ê") call abort
1853 
  if ("ê" /= achar ( ichar ( "ê"))) call abort
1854 
  i = 234
1855 
  c = "ê"
1856 
  if (achar(i) /= "ê") call abort
1857 
  if (iachar(c) /= iachar("ê")) call abort
1858 
  if (iachar(achar(235)) /= 235) call abort
1859 
  if (iachar ("ë")/= 235) call abort
1860 
  if (achar (235) /= "ë") call abort
1861 
  if ("ë" /= achar ( ichar ( "ë"))) call abort
1862 
  i = 235
1863 
  c = "ë"
1864 
  if (achar(i) /= "ë") call abort
1865 
  if (iachar(c) /= iachar("ë")) call abort
1866 
  if (iachar(achar(236)) /= 236) call abort
1867 
  if (iachar ("ì")/= 236) call abort
1868 
  if (achar (236) /= "ì") call abort
1869 
  if ("ì" /= achar ( ichar ( "ì"))) call abort
1870 
  i = 236
1871 
  c = "ì"
1872 
  if (achar(i) /= "ì") call abort
1873 
  if (iachar(c) /= iachar("ì")) call abort
1874 
  if (iachar(achar(237)) /= 237) call abort
1875 
  if (iachar ("í")/= 237) call abort
1876 
  if (achar (237) /= "í") call abort
1877 
  if ("í" /= achar ( ichar ( "í"))) call abort
1878 
  i = 237
1879 
  c = "í"
1880 
  if (achar(i) /= "í") call abort
1881 
  if (iachar(c) /= iachar("í")) call abort
1882 
  if (iachar(achar(238)) /= 238) call abort
1883 
  if (iachar ("î")/= 238) call abort
1884 
  if (achar (238) /= "î") call abort
1885 
  if ("î" /= achar ( ichar ( "î"))) call abort
1886 
  i = 238
1887 
  c = "î"
1888 
  if (achar(i) /= "î") call abort
1889 
  if (iachar(c) /= iachar("î")) call abort
1890 
  if (iachar(achar(239)) /= 239) call abort
1891 
  if (iachar ("ï")/= 239) call abort
1892 
  if (achar (239) /= "ï") call abort
1893 
  if ("ï" /= achar ( ichar ( "ï"))) call abort
1894 
  i = 239
1895 
  c = "ï"
1896 
  if (achar(i) /= "ï") call abort
1897 
  if (iachar(c) /= iachar("ï")) call abort
1898 
  if (iachar(achar(240)) /= 240) call abort
1899 
  if (iachar ("ð")/= 240) call abort
1900 
  if (achar (240) /= "ð") call abort
1901 
  if ("ð" /= achar ( ichar ( "ð"))) call abort
1902 
  i = 240
1903 
  c = "ð"
1904 
  if (achar(i) /= "ð") call abort
1905 
  if (iachar(c) /= iachar("ð")) call abort
1906 
  if (iachar(achar(241)) /= 241) call abort
1907 
  if (iachar ("ñ")/= 241) call abort
1908 
  if (achar (241) /= "ñ") call abort
1909 
  if ("ñ" /= achar ( ichar ( "ñ"))) call abort
1910 
  i = 241
1911 
  c = "ñ"
1912 
  if (achar(i) /= "ñ") call abort
1913 
  if (iachar(c) /= iachar("ñ")) call abort
1914 
  if (iachar(achar(242)) /= 242) call abort
1915 
  if (iachar ("ò")/= 242) call abort
1916 
  if (achar (242) /= "ò") call abort
1917 
  if ("ò" /= achar ( ichar ( "ò"))) call abort
1918 
  i = 242
1919 
  c = "ò"
1920 
  if (achar(i) /= "ò") call abort
1921 
  if (iachar(c) /= iachar("ò")) call abort
1922 
  if (iachar(achar(243)) /= 243) call abort
1923 
  if (iachar ("ó")/= 243) call abort
1924 
  if (achar (243) /= "ó") call abort
1925 
  if ("ó" /= achar ( ichar ( "ó"))) call abort
1926 
  i = 243
1927 
  c = "ó"
1928 
  if (achar(i) /= "ó") call abort
1929 
  if (iachar(c) /= iachar("ó")) call abort
1930 
  if (iachar(achar(244)) /= 244) call abort
1931 
  if (iachar ("ô")/= 244) call abort
1932 
  if (achar (244) /= "ô") call abort
1933 
  if ("ô" /= achar ( ichar ( "ô"))) call abort
1934 
  i = 244
1935 
  c = "ô"
1936 
  if (achar(i) /= "ô") call abort
1937 
  if (iachar(c) /= iachar("ô")) call abort
1938 
  if (iachar(achar(245)) /= 245) call abort
1939 
  if (iachar ("õ")/= 245) call abort
1940 
  if (achar (245) /= "õ") call abort
1941 
  if ("õ" /= achar ( ichar ( "õ"))) call abort
1942 
  i = 245
1943 
  c = "õ"
1944 
  if (achar(i) /= "õ") call abort
1945 
  if (iachar(c) /= iachar("õ")) call abort
1946 
  if (iachar(achar(246)) /= 246) call abort
1947 
  if (iachar ("ö")/= 246) call abort
1948 
  if (achar (246) /= "ö") call abort
1949 
  if ("ö" /= achar ( ichar ( "ö"))) call abort
1950 
  i = 246
1951 
  c = "ö"
1952 
  if (achar(i) /= "ö") call abort
1953 
  if (iachar(c) /= iachar("ö")) call abort
1954 
  if (iachar(achar(247)) /= 247) call abort
1955 
  if (iachar ("÷")/= 247) call abort
1956 
  if (achar (247) /= "÷") call abort
1957 
  if ("÷" /= achar ( ichar ( "÷"))) call abort
1958 
  i = 247
1959 
  c = "÷"
1960 
  if (achar(i) /= "÷") call abort
1961 
  if (iachar(c) /= iachar("÷")) call abort
1962 
  if (iachar(achar(248)) /= 248) call abort
1963 
  if (iachar ("ø")/= 248) call abort
1964 
  if (achar (248) /= "ø") call abort
1965 
  if ("ø" /= achar ( ichar ( "ø"))) call abort
1966 
  i = 248
1967 
  c = "ø"
1968 
  if (achar(i) /= "ø") call abort
1969 
  if (iachar(c) /= iachar("ø")) call abort
1970 
  if (iachar(achar(249)) /= 249) call abort
1971 
  if (iachar ("ù")/= 249) call abort
1972 
  if (achar (249) /= "ù") call abort
1973 
  if ("ù" /= achar ( ichar ( "ù"))) call abort
1974 
  i = 249
1975 
  c = "ù"
1976 
  if (achar(i) /= "ù") call abort
1977 
  if (iachar(c) /= iachar("ù")) call abort
1978 
  if (iachar(achar(250)) /= 250) call abort
1979 
  if (iachar ("ú")/= 250) call abort
1980 
  if (achar (250) /= "ú") call abort
1981 
  if ("ú" /= achar ( ichar ( "ú"))) call abort
1982 
  i = 250
1983 
  c = "ú"
1984 
  if (achar(i) /= "ú") call abort
1985 
  if (iachar(c) /= iachar("ú")) call abort
1986 
  if (iachar(achar(251)) /= 251) call abort
1987 
  if (iachar ("û")/= 251) call abort
1988 
  if (achar (251) /= "û") call abort
1989 
  if ("û" /= achar ( ichar ( "û"))) call abort
1990 
  i = 251
1991 
  c = "û"
1992 
  if (achar(i) /= "û") call abort
1993 
  if (iachar(c) /= iachar("û")) call abort
1994 
  if (iachar(achar(252)) /= 252) call abort
1995 
  if (iachar ("ü")/= 252) call abort
1996 
  if (achar (252) /= "ü") call abort
1997 
  if ("ü" /= achar ( ichar ( "ü"))) call abort
1998 
  i = 252
1999 
  c = "ü"
2000 
  if (achar(i) /= "ü") call abort
2001 
  if (iachar(c) /= iachar("ü")) call abort
2002 
  if (iachar(achar(253)) /= 253) call abort
2003 
  if (iachar ("ý")/= 253) call abort
2004 
  if (achar (253) /= "ý") call abort
2005 
  if ("ý" /= achar ( ichar ( "ý"))) call abort
2006 
  i = 253
2007 
  c = "ý"
2008 
  if (achar(i) /= "ý") call abort
2009 
  if (iachar(c) /= iachar("ý")) call abort
2010 
  if (iachar(achar(254)) /= 254) call abort
2011 
  if (iachar ("þ")/= 254) call abort
2012 
  if (achar (254) /= "þ") call abort
2013 
  if ("þ" /= achar ( ichar ( "þ"))) call abort
2014 
  i = 254
2015 
  c = "þ"
2016 
  if (achar(i) /= "þ") call abort
2017 
  if (iachar(c) /= iachar("þ")) call abort
2018 
  if (iachar(achar(255)) /= 255) call abort
2019 
  if (iachar ("ÿ")/= 255) call abort
2020 
  if (achar (255) /= "ÿ") call abort
2021 
  if ("ÿ" /= achar ( ichar ( "ÿ"))) call abort
2022 
  i = 255
2023 
  c = "ÿ"
2024 
  if (achar(i) /= "ÿ") call abort
2025 
  if (iachar(c) /= iachar("ÿ")) call abort
2026 
end program main

powered by: WebSVN 2.1.0

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