gcc/testsuite/gfortran.dg/achar_2.f90

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