2 ! PR 30389 - we now treat ACHAR equivalent to CHAR (except for
3 ! out of range-values) and IACHAR equivalent to ICHAR.
7 if (iachar(achar(1)) /= 1) call abort
8 if (iachar ("
\ 1")/= 1) call abort
9 if (achar (1) /= "
\ 1") call abort
10 if ("
\ 1" /= achar ( ichar ( "
\ 1"))) call abort
13 if (achar(i) /= "
\ 1") call abort
14 if (iachar(c) /= iachar("
\ 1")) call abort
15 if (iachar(achar(2)) /= 2) call abort
16 if (iachar ("
\ 2")/= 2) call abort
17 if (achar (2) /= "
\ 2") call abort
18 if ("
\ 2" /= achar ( ichar ( "
\ 2"))) call abort
21 if (achar(i) /= "
\ 2") call abort
22 if (iachar(c) /= iachar("
\ 2")) call abort
23 if (iachar(achar(3)) /= 3) call abort
24 if (iachar ("
\ 3")/= 3) call abort
25 if (achar (3) /= "
\ 3") call abort
26 if ("
\ 3" /= achar ( ichar ( "
\ 3"))) call abort
29 if (achar(i) /= "
\ 3") call abort
30 if (iachar(c) /= iachar("
\ 3")) call abort
31 if (iachar(achar(4)) /= 4) call abort
32 if (iachar ("
\ 4")/= 4) call abort
33 if (achar (4) /= "
\ 4") call abort
34 if ("
\ 4" /= achar ( ichar ( "
\ 4"))) call abort
37 if (achar(i) /= "
\ 4") call abort
38 if (iachar(c) /= iachar("
\ 4")) call abort
39 if (iachar(achar(5)) /= 5) call abort
40 if (iachar ("
\ 5")/= 5) call abort
41 if (achar (5) /= "
\ 5") call abort
42 if ("
\ 5" /= achar ( ichar ( "
\ 5"))) call abort
45 if (achar(i) /= "
\ 5") call abort
46 if (iachar(c) /= iachar("
\ 5")) call abort
47 if (iachar(achar(6)) /= 6) call abort
48 if (iachar ("
\ 6")/= 6) call abort
49 if (achar (6) /= "
\ 6") call abort
50 if ("
\ 6" /= achar ( ichar ( "
\ 6"))) call abort
53 if (achar(i) /= "
\ 6") call abort
54 if (iachar(c) /= iachar("
\ 6")) call abort
55 if (iachar(achar(7)) /= 7) call abort
56 if (iachar ("
\a")/= 7) call abort
57 if (achar (7) /= "
\a") call abort
58 if ("
\a" /= achar ( ichar ( "
\a"))) call abort
61 if (achar(i) /= "
\a") call abort
62 if (iachar(c) /= iachar("
\a")) call abort
63 if (iachar(achar(8)) /= 8) call abort
64 if (iachar ("
\b")/= 8) call abort
65 if (achar (8) /= "
\b") call abort
66 if ("
\b" /= achar ( ichar ( "
\b"))) call abort
69 if (achar(i) /= "
\b") call abort
70 if (iachar(c) /= iachar("
\b")) 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
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 ("
\v")/= 11) call abort
82 if (achar (11) /= "
\v") call abort
83 if ("
\v" /= achar ( ichar ( "
\v"))) call abort
86 if (achar(i) /= "
\v") call abort
87 if (iachar(c) /= iachar("
\v")) call abort
88 if (iachar(achar(12)) /= 12) call abort
89 if (iachar ("
\f")/= 12) call abort
90 if (achar (12) /= "
\f") call abort
91 if ("
\f" /= achar ( ichar ( "
\f"))) call abort
94 if (achar(i) /= "
\f") call abort
95 if (iachar(c) /= iachar("
\f")) call abort
96 if (iachar(achar(13)) /= 13) call abort
97 if (iachar(achar(14)) /= 14) call abort
98 if (iachar ("
\ e")/= 14) call abort
99 if (achar (14) /= "
\ e") call abort
100 if ("
\ e" /= achar ( ichar ( "
\ e"))) call abort
103 if (achar(i) /= "
\ e") call abort
104 if (iachar(c) /= iachar("
\ e")) call abort
105 if (iachar(achar(15)) /= 15) call abort
106 if (iachar ("
\ f")/= 15) call abort
107 if (achar (15) /= "
\ f") call abort
108 if ("
\ f" /= achar ( ichar ( "
\ f"))) call abort
111 if (achar(i) /= "
\ f") call abort
112 if (iachar(c) /= iachar("
\ f")) call abort
113 if (iachar(achar(16)) /= 16) call abort
114 if (iachar ("
\10")/= 16) call abort
115 if (achar (16) /= "
\10") call abort
116 if ("
\10" /= achar ( ichar ( "
\10"))) call abort
119 if (achar(i) /= "
\10") call abort
120 if (iachar(c) /= iachar("
\10")) call abort
121 if (iachar(achar(17)) /= 17) call abort
122 if (iachar ("
\11")/= 17) call abort
123 if (achar (17) /= "
\11") call abort
124 if ("
\11" /= achar ( ichar ( "
\11"))) call abort
127 if (achar(i) /= "
\11") call abort
128 if (iachar(c) /= iachar("
\11")) call abort
129 if (iachar(achar(18)) /= 18) call abort
130 if (iachar ("
\12")/= 18) call abort
131 if (achar (18) /= "
\12") call abort
132 if ("
\12" /= achar ( ichar ( "
\12"))) call abort
135 if (achar(i) /= "
\12") call abort
136 if (iachar(c) /= iachar("
\12")) call abort
137 if (iachar(achar(19)) /= 19) call abort
138 if (iachar ("
\13")/= 19) call abort
139 if (achar (19) /= "
\13") call abort
140 if ("
\13" /= achar ( ichar ( "
\13"))) call abort
143 if (achar(i) /= "
\13") call abort
144 if (iachar(c) /= iachar("
\13")) call abort
145 if (iachar(achar(20)) /= 20) call abort
146 if (iachar ("
\14")/= 20) call abort
147 if (achar (20) /= "
\14") call abort
148 if ("
\14" /= achar ( ichar ( "
\14"))) call abort
151 if (achar(i) /= "
\14") call abort
152 if (iachar(c) /= iachar("
\14")) call abort
153 if (iachar(achar(21)) /= 21) call abort
154 if (iachar ("
\15")/= 21) call abort
155 if (achar (21) /= "
\15") call abort
156 if ("
\15" /= achar ( ichar ( "
\15"))) call abort
159 if (achar(i) /= "
\15") call abort
160 if (iachar(c) /= iachar("
\15")) call abort
161 if (iachar(achar(22)) /= 22) call abort
162 if (iachar ("
\16")/= 22) call abort
163 if (achar (22) /= "
\16") call abort
164 if ("
\16" /= achar ( ichar ( "
\16"))) call abort
167 if (achar(i) /= "
\16") call abort
168 if (iachar(c) /= iachar("
\16")) call abort
169 if (iachar(achar(23)) /= 23) call abort
170 if (iachar ("
\17")/= 23) call abort
171 if (achar (23) /= "
\17") call abort
172 if ("
\17" /= achar ( ichar ( "
\17"))) call abort
175 if (achar(i) /= "
\17") call abort
176 if (iachar(c) /= iachar("
\17")) call abort
177 if (iachar(achar(24)) /= 24) call abort
178 if (iachar ("
\18")/= 24) call abort
179 if (achar (24) /= "
\18") call abort
180 if ("
\18" /= achar ( ichar ( "
\18"))) call abort
183 if (achar(i) /= "
\18") call abort
184 if (iachar(c) /= iachar("
\18")) call abort
185 if (iachar(achar(25)) /= 25) call abort
186 if (iachar ("
\19")/= 25) call abort
187 if (achar (25) /= "
\19") call abort
188 if ("
\19" /= achar ( ichar ( "
\19"))) call abort
191 if (achar(i) /= "
\19") call abort
192 if (iachar(c) /= iachar("
\19")) call abort
193 if (iachar(achar(26)) /= 26) call abort
194 if (iachar(achar(27)) /= 27) call abort
195 if (iachar ("
\e")/= 27) call abort
196 if (achar (27) /= "
\e") call abort
197 if ("
\e" /= achar ( ichar ( "
\e"))) call abort
200 if (achar(i) /= "
\e") call abort
201 if (iachar(c) /= iachar("
\e")) call abort
202 if (iachar(achar(28)) /= 28) call abort
203 if (iachar ("
\1c")/= 28) call abort
204 if (achar (28) /= "
\1c") call abort
205 if ("
\1c" /= achar ( ichar ( "
\1c"))) call abort
208 if (achar(i) /= "
\1c") call abort
209 if (iachar(c) /= iachar("
\1c")) call abort
210 if (iachar(achar(29)) /= 29) call abort
211 if (iachar ("
\1d")/= 29) call abort
212 if (achar (29) /= "
\1d") call abort
213 if ("
\1d" /= achar ( ichar ( "
\1d"))) call abort
216 if (achar(i) /= "
\1d") call abort
217 if (iachar(c) /= iachar("
\1d")) call abort
218 if (iachar(achar(30)) /= 30) call abort
219 if (iachar ("
\1e")/= 30) call abort
220 if (achar (30) /= "
\1e") call abort
221 if ("
\1e" /= achar ( ichar ( "
\1e"))) call abort
224 if (achar(i) /= "
\1e") call abort
225 if (iachar(c) /= iachar("
\1e")) call abort
226 if (iachar(achar(31)) /= 31) call abort
227 if (iachar ("
\1f")/= 31) call abort
228 if (achar (31) /= "
\1f") call abort
229 if ("
\1f" /= achar ( ichar ( "
\1f"))) call abort
232 if (achar(i) /= "
\1f") call abort
233 if (iachar(c) /= iachar("
\1f")) 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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
992 if (achar(i) /= "~") call abort
993 if (iachar(c) /= iachar("~")) call abort
994 if (iachar(achar(127)) /= 127) call abort
995 if (iachar ("
\7f")/= 127) call abort
996 if (achar (127) /= "
\7f") call abort
997 if ("
\7f" /= achar ( ichar ( "
\7f"))) call abort
1000 if (achar(i) /= "
\7f") call abort
1001 if (iachar(c) /= iachar("
\7f")) call abort
1002 if (iachar(achar(128)) /= 128) call abort
1003 if (iachar ("
\80")/= 128) call abort
1004 if (achar (128) /= "
\80") call abort
1005 if ("
\80" /= achar ( ichar ( "
\80"))) call abort
1008 if (achar(i) /= "
\80") call abort
1009 if (iachar(c) /= iachar("
\80")) call abort
1010 if (iachar(achar(129)) /= 129) call abort
1011 if (iachar ("
\81")/= 129) call abort
1012 if (achar (129) /= "
\81") call abort
1013 if ("
\81" /= achar ( ichar ( "
\81"))) call abort
1016 if (achar(i) /= "
\81") call abort
1017 if (iachar(c) /= iachar("
\81")) call abort
1018 if (iachar(achar(130)) /= 130) call abort
1019 if (iachar ("
\82")/= 130) call abort
1020 if (achar (130) /= "
\82") call abort
1021 if ("
\82" /= achar ( ichar ( "
\82"))) call abort
1024 if (achar(i) /= "
\82") call abort
1025 if (iachar(c) /= iachar("
\82")) call abort
1026 if (iachar(achar(131)) /= 131) call abort
1027 if (iachar ("
\83")/= 131) call abort
1028 if (achar (131) /= "
\83") call abort
1029 if ("
\83" /= achar ( ichar ( "
\83"))) call abort
1032 if (achar(i) /= "
\83") call abort
1033 if (iachar(c) /= iachar("
\83")) call abort
1034 if (iachar(achar(132)) /= 132) call abort
1035 if (iachar ("
\84")/= 132) call abort
1036 if (achar (132) /= "
\84") call abort
1037 if ("
\84" /= achar ( ichar ( "
\84"))) call abort
1040 if (achar(i) /= "
\84") call abort
1041 if (iachar(c) /= iachar("
\84")) call abort
1042 if (iachar(achar(133)) /= 133) call abort
1043 if (iachar ("
\85")/= 133) call abort
1044 if (achar (133) /= "
\85") call abort
1045 if ("
\85" /= achar ( ichar ( "
\85"))) call abort
1048 if (achar(i) /= "
\85") call abort
1049 if (iachar(c) /= iachar("
\85")) call abort
1050 if (iachar(achar(134)) /= 134) call abort
1051 if (iachar ("
\86")/= 134) call abort
1052 if (achar (134) /= "
\86") call abort
1053 if ("
\86" /= achar ( ichar ( "
\86"))) call abort
1056 if (achar(i) /= "
\86") call abort
1057 if (iachar(c) /= iachar("
\86")) call abort
1058 if (iachar(achar(135)) /= 135) call abort
1059 if (iachar ("
\87")/= 135) call abort
1060 if (achar (135) /= "
\87") call abort
1061 if ("
\87" /= achar ( ichar ( "
\87"))) call abort
1064 if (achar(i) /= "
\87") call abort
1065 if (iachar(c) /= iachar("
\87")) call abort
1066 if (iachar(achar(136)) /= 136) call abort
1067 if (iachar ("
\88")/= 136) call abort
1068 if (achar (136) /= "
\88") call abort
1069 if ("
\88" /= achar ( ichar ( "
\88"))) call abort
1072 if (achar(i) /= "
\88") call abort
1073 if (iachar(c) /= iachar("
\88")) call abort
1074 if (iachar(achar(137)) /= 137) call abort
1075 if (iachar ("
\89")/= 137) call abort
1076 if (achar (137) /= "
\89") call abort
1077 if ("
\89" /= achar ( ichar ( "
\89"))) call abort
1080 if (achar(i) /= "
\89") call abort
1081 if (iachar(c) /= iachar("
\89")) call abort
1082 if (iachar(achar(138)) /= 138) call abort
1083 if (iachar ("
\8a")/= 138) call abort
1084 if (achar (138) /= "
\8a") call abort
1085 if ("
\8a" /= achar ( ichar ( "
\8a"))) call abort
1088 if (achar(i) /= "
\8a") call abort
1089 if (iachar(c) /= iachar("
\8a")) call abort
1090 if (iachar(achar(139)) /= 139) call abort
1091 if (iachar ("
\8b")/= 139) call abort
1092 if (achar (139) /= "
\8b") call abort
1093 if ("
\8b" /= achar ( ichar ( "
\8b"))) call abort
1096 if (achar(i) /= "
\8b") call abort
1097 if (iachar(c) /= iachar("
\8b")) call abort
1098 if (iachar(achar(140)) /= 140) call abort
1099 if (iachar ("
\8c")/= 140) call abort
1100 if (achar (140) /= "
\8c") call abort
1101 if ("
\8c" /= achar ( ichar ( "
\8c"))) call abort
1104 if (achar(i) /= "
\8c") call abort
1105 if (iachar(c) /= iachar("
\8c")) call abort
1106 if (iachar(achar(141)) /= 141) call abort
1107 if (iachar ("
\8d")/= 141) call abort
1108 if (achar (141) /= "
\8d") call abort
1109 if ("
\8d" /= achar ( ichar ( "
\8d"))) call abort
1112 if (achar(i) /= "
\8d") call abort
1113 if (iachar(c) /= iachar("
\8d")) call abort
1114 if (iachar(achar(142)) /= 142) call abort
1115 if (iachar ("
\8e")/= 142) call abort
1116 if (achar (142) /= "
\8e") call abort
1117 if ("
\8e" /= achar ( ichar ( "
\8e"))) call abort
1120 if (achar(i) /= "
\8e") call abort
1121 if (iachar(c) /= iachar("
\8e")) call abort
1122 if (iachar(achar(143)) /= 143) call abort
1123 if (iachar ("
\8f")/= 143) call abort
1124 if (achar (143) /= "
\8f") call abort
1125 if ("
\8f" /= achar ( ichar ( "
\8f"))) call abort
1128 if (achar(i) /= "
\8f") call abort
1129 if (iachar(c) /= iachar("
\8f")) call abort
1130 if (iachar(achar(144)) /= 144) call abort
1131 if (iachar ("
\90")/= 144) call abort
1132 if (achar (144) /= "
\90") call abort
1133 if ("
\90" /= achar ( ichar ( "
\90"))) call abort
1136 if (achar(i) /= "
\90") call abort
1137 if (iachar(c) /= iachar("
\90")) call abort
1138 if (iachar(achar(145)) /= 145) call abort
1139 if (iachar ("
\91")/= 145) call abort
1140 if (achar (145) /= "
\91") call abort
1141 if ("
\91" /= achar ( ichar ( "
\91"))) call abort
1144 if (achar(i) /= "
\91") call abort
1145 if (iachar(c) /= iachar("
\91")) call abort
1146 if (iachar(achar(146)) /= 146) call abort
1147 if (iachar ("
\92")/= 146) call abort
1148 if (achar (146) /= "
\92") call abort
1149 if ("
\92" /= achar ( ichar ( "
\92"))) call abort
1152 if (achar(i) /= "
\92") call abort
1153 if (iachar(c) /= iachar("
\92")) call abort
1154 if (iachar(achar(147)) /= 147) call abort
1155 if (iachar ("
\93")/= 147) call abort
1156 if (achar (147) /= "
\93") call abort
1157 if ("
\93" /= achar ( ichar ( "
\93"))) call abort
1160 if (achar(i) /= "
\93") call abort
1161 if (iachar(c) /= iachar("
\93")) call abort
1162 if (iachar(achar(148)) /= 148) call abort
1163 if (iachar ("
\94")/= 148) call abort
1164 if (achar (148) /= "
\94") call abort
1165 if ("
\94" /= achar ( ichar ( "
\94"))) call abort
1168 if (achar(i) /= "
\94") call abort
1169 if (iachar(c) /= iachar("
\94")) call abort
1170 if (iachar(achar(149)) /= 149) call abort
1171 if (iachar ("
\95")/= 149) call abort
1172 if (achar (149) /= "
\95") call abort
1173 if ("
\95" /= achar ( ichar ( "
\95"))) call abort
1176 if (achar(i) /= "
\95") call abort
1177 if (iachar(c) /= iachar("
\95")) call abort
1178 if (iachar(achar(150)) /= 150) call abort
1179 if (iachar ("
\96")/= 150) call abort
1180 if (achar (150) /= "
\96") call abort
1181 if ("
\96" /= achar ( ichar ( "
\96"))) call abort
1184 if (achar(i) /= "
\96") call abort
1185 if (iachar(c) /= iachar("
\96")) call abort
1186 if (iachar(achar(151)) /= 151) call abort
1187 if (iachar ("
\97")/= 151) call abort
1188 if (achar (151) /= "
\97") call abort
1189 if ("
\97" /= achar ( ichar ( "
\97"))) call abort
1192 if (achar(i) /= "
\97") call abort
1193 if (iachar(c) /= iachar("
\97")) call abort
1194 if (iachar(achar(152)) /= 152) call abort
1195 if (iachar ("
\98")/= 152) call abort
1196 if (achar (152) /= "
\98") call abort
1197 if ("
\98" /= achar ( ichar ( "
\98"))) call abort
1200 if (achar(i) /= "
\98") call abort
1201 if (iachar(c) /= iachar("
\98")) call abort
1202 if (iachar(achar(153)) /= 153) call abort
1203 if (iachar ("
\99")/= 153) call abort
1204 if (achar (153) /= "
\99") call abort
1205 if ("
\99" /= achar ( ichar ( "
\99"))) call abort
1208 if (achar(i) /= "
\99") call abort
1209 if (iachar(c) /= iachar("
\99")) call abort
1210 if (iachar(achar(154)) /= 154) call abort
1211 if (iachar ("
\9a")/= 154) call abort
1212 if (achar (154) /= "
\9a") call abort
1213 if ("
\9a" /= achar ( ichar ( "
\9a"))) call abort
1216 if (achar(i) /= "
\9a") call abort
1217 if (iachar(c) /= iachar("
\9a")) call abort
1218 if (iachar(achar(155)) /= 155) call abort
1219 if (iachar ("
\9b")/= 155) call abort
1220 if (achar (155) /= "
\9b") call abort
1221 if ("
\9b" /= achar ( ichar ( "
\9b"))) call abort
1224 if (achar(i) /= "
\9b") call abort
1225 if (iachar(c) /= iachar("
\9b")) call abort
1226 if (iachar(achar(156)) /= 156) call abort
1227 if (iachar ("
\9c")/= 156) call abort
1228 if (achar (156) /= "
\9c") call abort
1229 if ("
\9c" /= achar ( ichar ( "
\9c"))) call abort
1232 if (achar(i) /= "
\9c") call abort
1233 if (iachar(c) /= iachar("
\9c")) call abort
1234 if (iachar(achar(157)) /= 157) call abort
1235 if (iachar ("
\9d")/= 157) call abort
1236 if (achar (157) /= "
\9d") call abort
1237 if ("
\9d" /= achar ( ichar ( "
\9d"))) call abort
1240 if (achar(i) /= "
\9d") call abort
1241 if (iachar(c) /= iachar("
\9d")) call abort
1242 if (iachar(achar(158)) /= 158) call abort
1243 if (iachar ("
\9e")/= 158) call abort
1244 if (achar (158) /= "
\9e") call abort
1245 if ("
\9e" /= achar ( ichar ( "
\9e"))) call abort
1248 if (achar(i) /= "
\9e") call abort
1249 if (iachar(c) /= iachar("
\9e")) call abort
1250 if (iachar(achar(159)) /= 159) call abort
1251 if (iachar ("
\9f")/= 159) call abort
1252 if (achar (159) /= "
\9f") call abort
1253 if ("
\9f" /= achar ( ichar ( "
\9f"))) call abort
1256 if (achar(i) /= "
\9f") call abort
1257 if (iachar(c) /= iachar("
\9f")) 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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
2024 if (achar(i) /= "ÿ") call abort
2025 if (iachar(c) /= iachar("ÿ")) call abort