path: root/gcc/testsuite/gfortran.dg/achar_2.f90

! { dg-do run }
! PR 30389 - we now treat ACHAR equivalent to CHAR (except for
!            out of range-values) and IACHAR equivalent to ICHAR.
program main
  integer :: i
  character(len=1) :: c
  if (iachar(achar(1)) /= 1) STOP 1
  if (iachar ("
")/= 1) STOP 2
  if (achar (1) /= "
") STOP 3
  if ("
" /= achar ( ichar ( "
"))) STOP 4
  i = 1
  c = "
"
  if (achar(i) /= "
") STOP 5
  if (iachar(c) /= iachar("
")) STOP 6
  if (iachar(achar(2)) /= 2) STOP 7
  if (iachar ("")/= 2) STOP 8
  if (achar (2) /= "") STOP 9
  if ("" /= achar ( ichar ( ""))) STOP 10
  i = 2
  c = ""
  if (achar(i) /= "") STOP 11
  if (iachar(c) /= iachar("")) STOP 12
  if (iachar(achar(3)) /= 3) STOP 13
  if (iachar ("")/= 3) STOP 14
  if (achar (3) /= "") STOP 15
  if ("" /= achar ( ichar ( ""))) STOP 16
  i = 3
  c = ""
  if (achar(i) /= "") STOP 17
  if (iachar(c) /= iachar("")) STOP 18
  if (iachar(achar(4)) /= 4) STOP 19
  if (iachar ("")/= 4) STOP 20
  if (achar (4) /= "") STOP 21
  if ("" /= achar ( ichar ( ""))) STOP 22
  i = 4
  c = ""
  if (achar(i) /= "") STOP 23
  if (iachar(c) /= iachar("")) STOP 24
  if (iachar(achar(5)) /= 5) STOP 25
  if (iachar ("")/= 5) STOP 26
  if (achar (5) /= "") STOP 27
  if ("" /= achar ( ichar ( ""))) STOP 28
  i = 5
  c = ""
  if (achar(i) /= "") STOP 29
  if (iachar(c) /= iachar("")) STOP 30
  if (iachar(achar(6)) /= 6) STOP 31
  if (iachar ("")/= 6) STOP 32
  if (achar (6) /= "") STOP 33
  if ("" /= achar ( ichar ( ""))) STOP 34
  i = 6
  c = ""
  if (achar(i) /= "") STOP 35
  if (iachar(c) /= iachar("")) STOP 36
  if (iachar(achar(7)) /= 7) STOP 37
  if (iachar ("")/= 7) STOP 38
  if (achar (7) /= "") STOP 39
  if ("" /= achar ( ichar ( ""))) STOP 40
  i = 7
  c = ""
  if (achar(i) /= "") STOP 41
  if (iachar(c) /= iachar("")) STOP 42
  if (iachar(achar(8)) /= 8) STOP 43
  if (iachar ("")/= 8) STOP 44
  if (achar (8) /= "") STOP 45
  if ("" /= achar ( ichar ( ""))) STOP 46
  i = 8
  c = ""
  if (achar(i) /= "") STOP 47
  if (iachar(c) /= iachar("")) STOP 48
  if (iachar(achar(9)) /= 9) STOP 49
  if (iachar ("	")/= 9) STOP 50
  if (achar (9) /= "	") STOP 51
  if ("	" /= achar ( ichar ( "	"))) STOP 52
  i = 9
  c = "	"
  if (achar(i) /= "	") STOP 53
  if (iachar(c) /= iachar("	")) STOP 54
  if (iachar(achar(10)) /= 10) STOP 55
  if (iachar(achar(11)) /= 11) STOP 56
  if (iachar ("")/= 11) STOP 57
  if (achar (11) /= "") STOP 58
  if ("" /= achar ( ichar ( ""))) STOP 59
  i = 11
  c = ""
  if (achar(i) /= "") STOP 60
  if (iachar(c) /= iachar("")) STOP 61
  if (iachar(achar(12)) /= 12) STOP 62
  if (iachar ("")/= 12) STOP 63
  if (achar (12) /= "") STOP 64
  if ("" /= achar ( ichar ( ""))) STOP 65
  i = 12
  c = ""
  if (achar(i) /= "") STOP 66
  if (iachar(c) /= iachar("")) STOP 67
  if (iachar(achar(13)) /= 13) STOP 68
  if (iachar(achar(14)) /= 14) STOP 69
  if (iachar ("")/= 14) STOP 70
  if (achar (14) /= "") STOP 71
  if ("" /= achar ( ichar ( ""))) STOP 72
  i = 14
  c = ""
  if (achar(i) /= "") STOP 73
  if (iachar(c) /= iachar("")) STOP 74
  if (iachar(achar(15)) /= 15) STOP 75
  if (iachar ("")/= 15) STOP 76
  if (achar (15) /= "") STOP 77
  if ("" /= achar ( ichar ( ""))) STOP 78
  i = 15
  c = ""
  if (achar(i) /= "") STOP 79
  if (iachar(c) /= iachar("")) STOP 80
  if (iachar(achar(16)) /= 16) STOP 81
  if (iachar ("")/= 16) STOP 82
  if (achar (16) /= "") STOP 83
  if ("" /= achar ( ichar ( ""))) STOP 84
  i = 16
  c = ""
  if (achar(i) /= "") STOP 85
  if (iachar(c) /= iachar("")) STOP 86
  if (iachar(achar(17)) /= 17) STOP 87
  if (iachar ("")/= 17) STOP 88
  if (achar (17) /= "") STOP 89
  if ("" /= achar ( ichar ( ""))) STOP 90
  i = 17
  c = ""
  if (achar(i) /= "") STOP 91
  if (iachar(c) /= iachar("")) STOP 92
  if (iachar(achar(18)) /= 18) STOP 93
  if (iachar ("")/= 18) STOP 94
  if (achar (18) /= "") STOP 95
  if ("" /= achar ( ichar ( ""))) STOP 96
  i = 18
  c = ""
  if (achar(i) /= "") STOP 97
  if (iachar(c) /= iachar("")) STOP 98
  if (iachar(achar(19)) /= 19) STOP 99
  if (iachar ("")/= 19) STOP 100
  if (achar (19) /= "") STOP 101
  if ("" /= achar ( ichar ( ""))) STOP 102
  i = 19
  c = ""
  if (achar(i) /= "") STOP 103
  if (iachar(c) /= iachar("")) STOP 104
  if (iachar(achar(20)) /= 20) STOP 105
  if (iachar ("")/= 20) STOP 106
  if (achar (20) /= "") STOP 107
  if ("" /= achar ( ichar ( ""))) STOP 108
  i = 20
  c = ""
  if (achar(i) /= "") STOP 109
  if (iachar(c) /= iachar("")) STOP 110
  if (iachar(achar(21)) /= 21) STOP 111
  if (iachar ("")/= 21) STOP 112
  if (achar (21) /= "") STOP 113
  if ("" /= achar ( ichar ( ""))) STOP 114
  i = 21
  c = ""
  if (achar(i) /= "") STOP 115
  if (iachar(c) /= iachar("")) STOP 116
  if (iachar(achar(22)) /= 22) STOP 117
  if (iachar ("")/= 22) STOP 118
  if (achar (22) /= "") STOP 119
  if ("" /= achar ( ichar ( ""))) STOP 120
  i = 22
  c = ""
  if (achar(i) /= "") STOP 121
  if (iachar(c) /= iachar("")) STOP 122
  if (iachar(achar(23)) /= 23) STOP 123
  if (iachar ("")/= 23) STOP 124
  if (achar (23) /= "") STOP 125
  if ("" /= achar ( ichar ( ""))) STOP 126
  i = 23
  c = ""
  if (achar(i) /= "") STOP 127
  if (iachar(c) /= iachar("")) STOP 128
  if (iachar(achar(24)) /= 24) STOP 129
  if (iachar ("")/= 24) STOP 130
  if (achar (24) /= "") STOP 131
  if ("" /= achar ( ichar ( ""))) STOP 132
  i = 24
  c = ""
  if (achar(i) /= "") STOP 133
  if (iachar(c) /= iachar("")) STOP 134
  if (iachar(achar(25)) /= 25) STOP 135
  if (iachar ("")/= 25) STOP 136
  if (achar (25) /= "") STOP 137
  if ("" /= achar ( ichar ( ""))) STOP 138
  i = 25
  c = ""
  if (achar(i) /= "") STOP 139
  if (iachar(c) /= iachar("")) STOP 140
  if (iachar(achar(26)) /= 26) STOP 141
  if (iachar(achar(27)) /= 27) STOP 142
  if (iachar ("")/= 27) STOP 143
  if (achar (27) /= "") STOP 144
  if ("" /= achar ( ichar ( ""))) STOP 145
  i = 27
  c = ""
  if (achar(i) /= "") STOP 146
  if (iachar(c) /= iachar("")) STOP 147
  if (iachar(achar(28)) /= 28) STOP 148
  if (iachar ("")/= 28) STOP 149
  if (achar (28) /= "") STOP 150
  if ("" /= achar ( ichar ( ""))) STOP 151
  i = 28
  c = ""
  if (achar(i) /= "") STOP 152
  if (iachar(c) /= iachar("")) STOP 153
  if (iachar(achar(29)) /= 29) STOP 154
  if (iachar ("")/= 29) STOP 155
  if (achar (29) /= "") STOP 156
  if ("" /= achar ( ichar ( ""))) STOP 157
  i = 29
  c = ""
  if (achar(i) /= "") STOP 158
  if (iachar(c) /= iachar("")) STOP 159
  if (iachar(achar(30)) /= 30) STOP 160
  if (iachar ("")/= 30) STOP 161
  if (achar (30) /= "") STOP 162
  if ("" /= achar ( ichar ( ""))) STOP 163
  i = 30
  c = ""
  if (achar(i) /= "") STOP 164
  if (iachar(c) /= iachar("")) STOP 165
  if (iachar(achar(31)) /= 31) STOP 166
  if (iachar ("")/= 31) STOP 167
  if (achar (31) /= "") STOP 168
  if ("" /= achar ( ichar ( ""))) STOP 169
  i = 31
  c = ""
  if (achar(i) /= "") STOP 170
  if (iachar(c) /= iachar("")) STOP 171
  if (iachar(achar(32)) /= 32) STOP 172
  if (iachar (" ")/= 32) STOP 173
  if (achar (32) /= " ") STOP 174
  if (" " /= achar ( ichar ( " "))) STOP 175
  i = 32
  c = " "
  if (achar(i) /= " ") STOP 176
  if (iachar(c) /= iachar(" ")) STOP 177
  if (iachar(achar(33)) /= 33) STOP 178
  if (iachar ("!")/= 33) STOP 179
  if (achar (33) /= "!") STOP 180
  if ("!" /= achar ( ichar ( "!"))) STOP 181
  i = 33
  c = "!"
  if (achar(i) /= "!") STOP 182
  if (iachar(c) /= iachar("!")) STOP 183
  if (iachar(achar(34)) /= 34) STOP 184
  if (iachar ('"')/= 34) STOP 185
  if (achar (34) /= '"') STOP 186
  if ('"' /= achar ( ichar ( '"'))) STOP 187
  i = 34
  c = '"'
  if (achar(i) /= '"') STOP 188
  if (iachar(c) /= iachar('"')) STOP 189
  if (iachar(achar(35)) /= 35) STOP 190
  if (iachar ("#")/= 35) STOP 191
  if (achar (35) /= "#") STOP 192
  if ("#" /= achar ( ichar ( "#"))) STOP 193
  i = 35
  c = "#"
  if (achar(i) /= "#") STOP 194
  if (iachar(c) /= iachar("#")) STOP 195
  if (iachar(achar(36)) /= 36) STOP 196
  if (iachar ("$")/= 36) STOP 197
  if (achar (36) /= "$") STOP 198
  if ("$" /= achar ( ichar ( "$"))) STOP 199
  i = 36
  c = "$"
  if (achar(i) /= "$") STOP 200
  if (iachar(c) /= iachar("$")) STOP 201
  if (iachar(achar(37)) /= 37) STOP 202
  if (iachar ("%")/= 37) STOP 203
  if (achar (37) /= "%") STOP 204
  if ("%" /= achar ( ichar ( "%"))) STOP 205
  i = 37
  c = "%"
  if (achar(i) /= "%") STOP 206
  if (iachar(c) /= iachar("%")) STOP 207
  if (iachar(achar(38)) /= 38) STOP 208
  if (iachar ("&")/= 38) STOP 209
  if (achar (38) /= "&") STOP 210
  if ("&" /= achar ( ichar ( "&"))) STOP 211
  i = 38
  c = "&"
  if (achar(i) /= "&") STOP 212
  if (iachar(c) /= iachar("&")) STOP 213
  if (iachar(achar(39)) /= 39) STOP 214
  if (iachar ("'")/= 39) STOP 215
  if (achar (39) /= "'") STOP 216
  if ("'" /= achar ( ichar ( "'"))) STOP 217
  i = 39
  c = "'"
  if (achar(i) /= "'") STOP 218
  if (iachar(c) /= iachar("'")) STOP 219
  if (iachar(achar(40)) /= 40) STOP 220
  if (iachar ("(")/= 40) STOP 221
  if (achar (40) /= "(") STOP 222
  if ("(" /= achar ( ichar ( "("))) STOP 223
  i = 40
  c = "("
  if (achar(i) /= "(") STOP 224
  if (iachar(c) /= iachar("(")) STOP 225
  if (iachar(achar(41)) /= 41) STOP 226
  if (iachar (")")/= 41) STOP 227
  if (achar (41) /= ")") STOP 228
  if (")" /= achar ( ichar ( ")"))) STOP 229
  i = 41
  c = ")"
  if (achar(i) /= ")") STOP 230
  if (iachar(c) /= iachar(")")) STOP 231
  if (iachar(achar(42)) /= 42) STOP 232
  if (iachar ("*")/= 42) STOP 233
  if (achar (42) /= "*") STOP 234
  if ("*" /= achar ( ichar ( "*"))) STOP 235
  i = 42
  c = "*"
  if (achar(i) /= "*") STOP 236
  if (iachar(c) /= iachar("*")) STOP 237
  if (iachar(achar(43)) /= 43) STOP 238
  if (iachar ("+")/= 43) STOP 239
  if (achar (43) /= "+") STOP 240
  if ("+" /= achar ( ichar ( "+"))) STOP 241
  i = 43
  c = "+"
  if (achar(i) /= "+") STOP 242
  if (iachar(c) /= iachar("+")) STOP 243
  if (iachar(achar(44)) /= 44) STOP 244
  if (iachar (",")/= 44) STOP 245
  if (achar (44) /= ",") STOP 246
  if ("," /= achar ( ichar ( ","))) STOP 247
  i = 44
  c = ","
  if (achar(i) /= ",") STOP 248
  if (iachar(c) /= iachar(",")) STOP 249
  if (iachar(achar(45)) /= 45) STOP 250
  if (iachar ("-")/= 45) STOP 251
  if (achar (45) /= "-") STOP 252
  if ("-" /= achar ( ichar ( "-"))) STOP 253
  i = 45
  c = "-"
  if (achar(i) /= "-") STOP 254
  if (iachar(c) /= iachar("-")) STOP 255
  if (iachar(achar(46)) /= 46) STOP 256
  if (iachar (".")/= 46) STOP 257
  if (achar (46) /= ".") STOP 258
  if ("." /= achar ( ichar ( "."))) STOP 259
  i = 46
  c = "."
  if (achar(i) /= ".") STOP 260
  if (iachar(c) /= iachar(".")) STOP 261
  if (iachar(achar(47)) /= 47) STOP 262
  if (iachar ("/")/= 47) STOP 263
  if (achar (47) /= "/") STOP 264
  if ("/" /= achar ( ichar ( "/"))) STOP 265
  i = 47
  c = "/"
  if (achar(i) /= "/") STOP 266
  if (iachar(c) /= iachar("/")) STOP 267
  if (iachar(achar(48)) /= 48) STOP 268
  if (iachar ("0")/= 48) STOP 269
  if (achar (48) /= "0") STOP 270
  if ("0" /= achar ( ichar ( "0"))) STOP 271
  i = 48
  c = "0"
  if (achar(i) /= "0") STOP 272
  if (iachar(c) /= iachar("0")) STOP 273
  if (iachar(achar(49)) /= 49) STOP 274
  if (iachar ("1")/= 49) STOP 275
  if (achar (49) /= "1") STOP 276
  if ("1" /= achar ( ichar ( "1"))) STOP 277
  i = 49
  c = "1"
  if (achar(i) /= "1") STOP 278
  if (iachar(c) /= iachar("1")) STOP 279
  if (iachar(achar(50)) /= 50) STOP 280
  if (iachar ("2")/= 50) STOP 281
  if (achar (50) /= "2") STOP 282
  if ("2" /= achar ( ichar ( "2"))) STOP 283
  i = 50
  c = "2"
  if (achar(i) /= "2") STOP 284
  if (iachar(c) /= iachar("2")) STOP 285
  if (iachar(achar(51)) /= 51) STOP 286
  if (iachar ("3")/= 51) STOP 287
  if (achar (51) /= "3") STOP 288
  if ("3" /= achar ( ichar ( "3"))) STOP 289
  i = 51
  c = "3"
  if (achar(i) /= "3") STOP 290
  if (iachar(c) /= iachar("3")) STOP 291
  if (iachar(achar(52)) /= 52) STOP 292
  if (iachar ("4")/= 52) STOP 293
  if (achar (52) /= "4") STOP 294
  if ("4" /= achar ( ichar ( "4"))) STOP 295
  i = 52
  c = "4"
  if (achar(i) /= "4") STOP 296
  if (iachar(c) /= iachar("4")) STOP 297
  if (iachar(achar(53)) /= 53) STOP 298
  if (iachar ("5")/= 53) STOP 299
  if (achar (53) /= "5") STOP 300
  if ("5" /= achar ( ichar ( "5"))) STOP 301
  i = 53
  c = "5"
  if (achar(i) /= "5") STOP 302
  if (iachar(c) /= iachar("5")) STOP 303
  if (iachar(achar(54)) /= 54) STOP 304
  if (iachar ("6")/= 54) STOP 305
  if (achar (54) /= "6") STOP 306
  if ("6" /= achar ( ichar ( "6"))) STOP 307
  i = 54
  c = "6"
  if (achar(i) /= "6") STOP 308
  if (iachar(c) /= iachar("6")) STOP 309
  if (iachar(achar(55)) /= 55) STOP 310
  if (iachar ("7")/= 55) STOP 311
  if (achar (55) /= "7") STOP 312
  if ("7" /= achar ( ichar ( "7"))) STOP 313
  i = 55
  c = "7"
  if (achar(i) /= "7") STOP 314
  if (iachar(c) /= iachar("7")) STOP 315
  if (iachar(achar(56)) /= 56) STOP 316
  if (iachar ("8")/= 56) STOP 317
  if (achar (56) /= "8") STOP 318
  if ("8" /= achar ( ichar ( "8"))) STOP 319
  i = 56
  c = "8"
  if (achar(i) /= "8") STOP 320
  if (iachar(c) /= iachar("8")) STOP 321
  if (iachar(achar(57)) /= 57) STOP 322
  if (iachar ("9")/= 57) STOP 323
  if (achar (57) /= "9") STOP 324
  if ("9" /= achar ( ichar ( "9"))) STOP 325
  i = 57
  c = "9"
  if (achar(i) /= "9") STOP 326
  if (iachar(c) /= iachar("9")) STOP 327
  if (iachar(achar(58)) /= 58) STOP 328
  if (iachar (":")/= 58) STOP 329
  if (achar (58) /= ":") STOP 330
  if (":" /= achar ( ichar ( ":"))) STOP 331
  i = 58
  c = ":"
  if (achar(i) /= ":") STOP 332
  if (iachar(c) /= iachar(":")) STOP 333
  if (iachar(achar(59)) /= 59) STOP 334
  if (iachar (";")/= 59) STOP 335
  if (achar (59) /= ";") STOP 336
  if (";" /= achar ( ichar ( ";"))) STOP 337
  i = 59
  c = ";"
  if (achar(i) /= ";") STOP 338
  if (iachar(c) /= iachar(";")) STOP 339
  if (iachar(achar(60)) /= 60) STOP 340
  if (iachar ("<")/= 60) STOP 341
  if (achar (60) /= "<") STOP 342
  if ("<" /= achar ( ichar ( "<"))) STOP 343
  i = 60
  c = "<"
  if (achar(i) /= "<") STOP 344
  if (iachar(c) /= iachar("<")) STOP 345
  if (iachar(achar(61)) /= 61) STOP 346
  if (iachar ("=")/= 61) STOP 347
  if (achar (61) /= "=") STOP 348
  if ("=" /= achar ( ichar ( "="))) STOP 349
  i = 61
  c = "="
  if (achar(i) /= "=") STOP 350
  if (iachar(c) /= iachar("=")) STOP 351
  if (iachar(achar(62)) /= 62) STOP 352
  if (iachar (">")/= 62) STOP 353
  if (achar (62) /= ">") STOP 354
  if (">" /= achar ( ichar ( ">"))) STOP 355
  i = 62
  c = ">"
  if (achar(i) /= ">") STOP 356
  if (iachar(c) /= iachar(">")) STOP 357
  if (iachar(achar(63)) /= 63) STOP 358
  if (iachar ("?")/= 63) STOP 359
  if (achar (63) /= "?") STOP 360
  if ("?" /= achar ( ichar ( "?"))) STOP 361
  i = 63
  c = "?"
  if (achar(i) /= "?") STOP 362
  if (iachar(c) /= iachar("?")) STOP 363
  if (iachar(achar(64)) /= 64) STOP 364
  if (iachar ("@")/= 64) STOP 365
  if (achar (64) /= "@") STOP 366
  if ("@" /= achar ( ichar ( "@"))) STOP 367
  i = 64
  c = "@"
  if (achar(i) /= "@") STOP 368
  if (iachar(c) /= iachar("@")) STOP 369
  if (iachar(achar(65)) /= 65) STOP 370
  if (iachar ("A")/= 65) STOP 371
  if (achar (65) /= "A") STOP 372
  if ("A" /= achar ( ichar ( "A"))) STOP 373
  i = 65
  c = "A"
  if (achar(i) /= "A") STOP 374
  if (iachar(c) /= iachar("A")) STOP 375
  if (iachar(achar(66)) /= 66) STOP 376
  if (iachar ("B")/= 66) STOP 377
  if (achar (66) /= "B") STOP 378
  if ("B" /= achar ( ichar ( "B"))) STOP 379
  i = 66
  c = "B"
  if (achar(i) /= "B") STOP 380
  if (iachar(c) /= iachar("B")) STOP 381
  if (iachar(achar(67)) /= 67) STOP 382
  if (iachar ("C")/= 67) STOP 383
  if (achar (67) /= "C") STOP 384
  if ("C" /= achar ( ichar ( "C"))) STOP 385
  i = 67
  c = "C"
  if (achar(i) /= "C") STOP 386
  if (iachar(c) /= iachar("C")) STOP 387
  if (iachar(achar(68)) /= 68) STOP 388
  if (iachar ("D")/= 68) STOP 389
  if (achar (68) /= "D") STOP 390
  if ("D" /= achar ( ichar ( "D"))) STOP 391
  i = 68
  c = "D"
  if (achar(i) /= "D") STOP 392
  if (iachar(c) /= iachar("D")) STOP 393
  if (iachar(achar(69)) /= 69) STOP 394
  if (iachar ("E")/= 69) STOP 395
  if (achar (69) /= "E") STOP 396
  if ("E" /= achar ( ichar ( "E"))) STOP 397
  i = 69
  c = "E"
  if (achar(i) /= "E") STOP 398
  if (iachar(c) /= iachar("E")) STOP 399
  if (iachar(achar(70)) /= 70) STOP 400
  if (iachar ("F")/= 70) STOP 401
  if (achar (70) /= "F") STOP 402
  if ("F" /= achar ( ichar ( "F"))) STOP 403
  i = 70
  c = "F"
  if (achar(i) /= "F") STOP 404
  if (iachar(c) /= iachar("F")) STOP 405
  if (iachar(achar(71)) /= 71) STOP 406
  if (iachar ("G")/= 71) STOP 407
  if (achar (71) /= "G") STOP 408
  if ("G" /= achar ( ichar ( "G"))) STOP 409
  i = 71
  c = "G"
  if (achar(i) /= "G") STOP 410
  if (iachar(c) /= iachar("G")) STOP 411
  if (iachar(achar(72)) /= 72) STOP 412
  if (iachar ("H")/= 72) STOP 413
  if (achar (72) /= "H") STOP 414
  if ("H" /= achar ( ichar ( "H"))) STOP 415
  i = 72
  c = "H"
  if (achar(i) /= "H") STOP 416
  if (iachar(c) /= iachar("H")) STOP 417
  if (iachar(achar(73)) /= 73) STOP 418
  if (iachar ("I")/= 73) STOP 419
  if (achar (73) /= "I") STOP 420
  if ("I" /= achar ( ichar ( "I"))) STOP 421
  i = 73
  c = "I"
  if (achar(i) /= "I") STOP 422
  if (iachar(c) /= iachar("I")) STOP 423
  if (iachar(achar(74)) /= 74) STOP 424
  if (iachar ("J")/= 74) STOP 425
  if (achar (74) /= "J") STOP 426
  if ("J" /= achar ( ichar ( "J"))) STOP 427
  i = 74
  c = "J"
  if (achar(i) /= "J") STOP 428
  if (iachar(c) /= iachar("J")) STOP 429
  if (iachar(achar(75)) /= 75) STOP 430
  if (iachar ("K")/= 75) STOP 431
  if (achar (75) /= "K") STOP 432
  if ("K" /= achar ( ichar ( "K"))) STOP 433
  i = 75
  c = "K"
  if (achar(i) /= "K") STOP 434
  if (iachar(c) /= iachar("K")) STOP 435
  if (iachar(achar(76)) /= 76) STOP 436
  if (iachar ("L")/= 76) STOP 437
  if (achar (76) /= "L") STOP 438
  if ("L" /= achar ( ichar ( "L"))) STOP 439
  i = 76
  c = "L"
  if (achar(i) /= "L") STOP 440
  if (iachar(c) /= iachar("L")) STOP 441
  if (iachar(achar(77)) /= 77) STOP 442
  if (iachar ("M")/= 77) STOP 443
  if (achar (77) /= "M") STOP 444
  if ("M" /= achar ( ichar ( "M"))) STOP 445
  i = 77
  c = "M"
  if (achar(i) /= "M") STOP 446
  if (iachar(c) /= iachar("M")) STOP 447
  if (iachar(achar(78)) /= 78) STOP 448
  if (iachar ("N")/= 78) STOP 449
  if (achar (78) /= "N") STOP 450
  if ("N" /= achar ( ichar ( "N"))) STOP 451
  i = 78
  c = "N"
  if (achar(i) /= "N") STOP 452
  if (iachar(c) /= iachar("N")) STOP 453
  if (iachar(achar(79)) /= 79) STOP 454
  if (iachar ("O")/= 79) STOP 455
  if (achar (79) /= "O") STOP 456
  if ("O" /= achar ( ichar ( "O"))) STOP 457
  i = 79
  c = "O"
  if (achar(i) /= "O") STOP 458
  if (iachar(c) /= iachar("O")) STOP 459
  if (iachar(achar(80)) /= 80) STOP 460
  if (iachar ("P")/= 80) STOP 461
  if (achar (80) /= "P") STOP 462
  if ("P" /= achar ( ichar ( "P"))) STOP 463
  i = 80
  c = "P"
  if (achar(i) /= "P") STOP 464
  if (iachar(c) /= iachar("P")) STOP 465
  if (iachar(achar(81)) /= 81) STOP 466
  if (iachar ("Q")/= 81) STOP 467
  if (achar (81) /= "Q") STOP 468
  if ("Q" /= achar ( ichar ( "Q"))) STOP 469
  i = 81
  c = "Q"
  if (achar(i) /= "Q") STOP 470
  if (iachar(c) /= iachar("Q")) STOP 471
  if (iachar(achar(82)) /= 82) STOP 472
  if (iachar ("R")/= 82) STOP 473
  if (achar (82) /= "R") STOP 474
  if ("R" /= achar ( ichar ( "R"))) STOP 475
  i = 82
  c = "R"
  if (achar(i) /= "R") STOP 476
  if (iachar(c) /= iachar("R")) STOP 477
  if (iachar(achar(83)) /= 83) STOP 478
  if (iachar ("S")/= 83) STOP 479
  if (achar (83) /= "S") STOP 480
  if ("S" /= achar ( ichar ( "S"))) STOP 481
  i = 83
  c = "S"
  if (achar(i) /= "S") STOP 482
  if (iachar(c) /= iachar("S")) STOP 483
  if (iachar(achar(84)) /= 84) STOP 484
  if (iachar ("T")/= 84) STOP 485
  if (achar (84) /= "T") STOP 486
  if ("T" /= achar ( ichar ( "T"))) STOP 487
  i = 84
  c = "T"
  if (achar(i) /= "T") STOP 488
  if (iachar(c) /= iachar("T")) STOP 489
  if (iachar(achar(85)) /= 85) STOP 490
  if (iachar ("U")/= 85) STOP 491
  if (achar (85) /= "U") STOP 492
  if ("U" /= achar ( ichar ( "U"))) STOP 493
  i = 85
  c = "U"
  if (achar(i) /= "U") STOP 494
  if (iachar(c) /= iachar("U")) STOP 495
  if (iachar(achar(86)) /= 86) STOP 496
  if (iachar ("V")/= 86) STOP 497
  if (achar (86) /= "V") STOP 498
  if ("V" /= achar ( ichar ( "V"))) STOP 499
  i = 86
  c = "V"
  if (achar(i) /= "V") STOP 500
  if (iachar(c) /= iachar("V")) STOP 501
  if (iachar(achar(87)) /= 87) STOP 502
  if (iachar ("W")/= 87) STOP 503
  if (achar (87) /= "W") STOP 504
  if ("W" /= achar ( ichar ( "W"))) STOP 505
  i = 87
  c = "W"
  if (achar(i) /= "W") STOP 506
  if (iachar(c) /= iachar("W")) STOP 507
  if (iachar(achar(88)) /= 88) STOP 508
  if (iachar ("X")/= 88) STOP 509
  if (achar (88) /= "X") STOP 510
  if ("X" /= achar ( ichar ( "X"))) STOP 511
  i = 88
  c = "X"
  if (achar(i) /= "X") STOP 512
  if (iachar(c) /= iachar("X")) STOP 513
  if (iachar(achar(89)) /= 89) STOP 514
  if (iachar ("Y")/= 89) STOP 515
  if (achar (89) /= "Y") STOP 516
  if ("Y" /= achar ( ichar ( "Y"))) STOP 517
  i = 89
  c = "Y"
  if (achar(i) /= "Y") STOP 518
  if (iachar(c) /= iachar("Y")) STOP 519
  if (iachar(achar(90)) /= 90) STOP 520
  if (iachar ("Z")/= 90) STOP 521
  if (achar (90) /= "Z") STOP 522
  if ("Z" /= achar ( ichar ( "Z"))) STOP 523
  i = 90
  c = "Z"
  if (achar(i) /= "Z") STOP 524
  if (iachar(c) /= iachar("Z")) STOP 525
  if (iachar(achar(91)) /= 91) STOP 526
  if (iachar ("[")/= 91) STOP 527
  if (achar (91) /= "[") STOP 528
  if ("[" /= achar ( ichar ( "["))) STOP 529
  i = 91
  c = "["
  if (achar(i) /= "[") STOP 530
  if (iachar(c) /= iachar("[")) STOP 531
  if (iachar(achar(92)) /= 92) STOP 532
  if (iachar ("\")/= 92) STOP 533
  if (achar (92) /= "\") STOP 534
  if ("\" /= achar ( ichar ( "\"))) STOP 535
  i = 92
  c = "\"
  if (achar(i) /= "\") STOP 536
  if (iachar(c) /= iachar("\")) STOP 537
  if (iachar(achar(93)) /= 93) STOP 538
  if (iachar ("]")/= 93) STOP 539
  if (achar (93) /= "]") STOP 540
  if ("]" /= achar ( ichar ( "]"))) STOP 541
  i = 93
  c = "]"
  if (achar(i) /= "]") STOP 542
  if (iachar(c) /= iachar("]")) STOP 543
  if (iachar(achar(94)) /= 94) STOP 544
  if (iachar ("^")/= 94) STOP 545
  if (achar (94) /= "^") STOP 546
  if ("^" /= achar ( ichar ( "^"))) STOP 547
  i = 94
  c = "^"
  if (achar(i) /= "^") STOP 548
  if (iachar(c) /= iachar("^")) STOP 549
  if (iachar(achar(95)) /= 95) STOP 550
  if (iachar ("_")/= 95) STOP 551
  if (achar (95) /= "_") STOP 552
  if ("_" /= achar ( ichar ( "_"))) STOP 553
  i = 95
  c = "_"
  if (achar(i) /= "_") STOP 554
  if (iachar(c) /= iachar("_")) STOP 555
  if (iachar(achar(96)) /= 96) STOP 556
  if (iachar ("`")/= 96) STOP 557
  if (achar (96) /= "`") STOP 558
  if ("`" /= achar ( ichar ( "`"))) STOP 559
  i = 96
  c = "`"
  if (achar(i) /= "`") STOP 560
  if (iachar(c) /= iachar("`")) STOP 561
  if (iachar(achar(97)) /= 97) STOP 562
  if (iachar ("a")/= 97) STOP 563
  if (achar (97) /= "a") STOP 564
  if ("a" /= achar ( ichar ( "a"))) STOP 565
  i = 97
  c = "a"
  if (achar(i) /= "a") STOP 566
  if (iachar(c) /= iachar("a")) STOP 567
  if (iachar(achar(98)) /= 98) STOP 568
  if (iachar ("b")/= 98) STOP 569
  if (achar (98) /= "b") STOP 570
  if ("b" /= achar ( ichar ( "b"))) STOP 571
  i = 98
  c = "b"
  if (achar(i) /= "b") STOP 572
  if (iachar(c) /= iachar("b")) STOP 573
  if (iachar(achar(99)) /= 99) STOP 574
  if (iachar ("c")/= 99) STOP 575
  if (achar (99) /= "c") STOP 576
  if ("c" /= achar ( ichar ( "c"))) STOP 577
  i = 99
  c = "c"
  if (achar(i) /= "c") STOP 578
  if (iachar(c) /= iachar("c")) STOP 579
  if (iachar(achar(100)) /= 100) STOP 580
  if (iachar ("d")/= 100) STOP 581
  if (achar (100) /= "d") STOP 582
  if ("d" /= achar ( ichar ( "d"))) STOP 583
  i = 100
  c = "d"
  if (achar(i) /= "d") STOP 584
  if (iachar(c) /= iachar("d")) STOP 585
  if (iachar(achar(101)) /= 101) STOP 586
  if (iachar ("e")/= 101) STOP 587
  if (achar (101) /= "e") STOP 588
  if ("e" /= achar ( ichar ( "e"))) STOP 589
  i = 101
  c = "e"
  if (achar(i) /= "e") STOP 590
  if (iachar(c) /= iachar("e")) STOP 591
  if (iachar(achar(102)) /= 102) STOP 592
  if (iachar ("f")/= 102) STOP 593
  if (achar (102) /= "f") STOP 594
  if ("f" /= achar ( ichar ( "f"))) STOP 595
  i = 102
  c = "f"
  if (achar(i) /= "f") STOP 596
  if (iachar(c) /= iachar("f")) STOP 597
  if (iachar(achar(103)) /= 103) STOP 598
  if (iachar ("g")/= 103) STOP 599
  if (achar (103) /= "g") STOP 600
  if ("g" /= achar ( ichar ( "g"))) STOP 601
  i = 103
  c = "g"
  if (achar(i) /= "g") STOP 602
  if (iachar(c) /= iachar("g")) STOP 603
  if (iachar(achar(104)) /= 104) STOP 604
  if (iachar ("h")/= 104) STOP 605
  if (achar (104) /= "h") STOP 606
  if ("h" /= achar ( ichar ( "h"))) STOP 607
  i = 104
  c = "h"
  if (achar(i) /= "h") STOP 608
  if (iachar(c) /= iachar("h")) STOP 609
  if (iachar(achar(105)) /= 105) STOP 610
  if (iachar ("i")/= 105) STOP 611
  if (achar (105) /= "i") STOP 612
  if ("i" /= achar ( ichar ( "i"))) STOP 613
  i = 105
  c = "i"
  if (achar(i) /= "i") STOP 614
  if (iachar(c) /= iachar("i")) STOP 615
  if (iachar(achar(106)) /= 106) STOP 616
  if (iachar ("j")/= 106) STOP 617
  if (achar (106) /= "j") STOP 618
  if ("j" /= achar ( ichar ( "j"))) STOP 619
  i = 106
  c = "j"
  if (achar(i) /= "j") STOP 620
  if (iachar(c) /= iachar("j")) STOP 621
  if (iachar(achar(107)) /= 107) STOP 622
  if (iachar ("k")/= 107) STOP 623
  if (achar (107) /= "k") STOP 624
  if ("k" /= achar ( ichar ( "k"))) STOP 625
  i = 107
  c = "k"
  if (achar(i) /= "k") STOP 626
  if (iachar(c) /= iachar("k")) STOP 627
  if (iachar(achar(108)) /= 108) STOP 628
  if (iachar ("l")/= 108) STOP 629
  if (achar (108) /= "l") STOP 630
  if ("l" /= achar ( ichar ( "l"))) STOP 631
  i = 108
  c = "l"
  if (achar(i) /= "l") STOP 632
  if (iachar(c) /= iachar("l")) STOP 633
  if (iachar(achar(109)) /= 109) STOP 634
  if (iachar ("m")/= 109) STOP 635
  if (achar (109) /= "m") STOP 636
  if ("m" /= achar ( ichar ( "m"))) STOP 637
  i = 109
  c = "m"
  if (achar(i) /= "m") STOP 638
  if (iachar(c) /= iachar("m")) STOP 639
  if (iachar(achar(110)) /= 110) STOP 640
  if (iachar ("n")/= 110) STOP 641
  if (achar (110) /= "n") STOP 642
  if ("n" /= achar ( ichar ( "n"))) STOP 643
  i = 110
  c = "n"
  if (achar(i) /= "n") STOP 644
  if (iachar(c) /= iachar("n")) STOP 645
  if (iachar(achar(111)) /= 111) STOP 646
  if (iachar ("o")/= 111) STOP 647
  if (achar (111) /= "o") STOP 648
  if ("o" /= achar ( ichar ( "o"))) STOP 649
  i = 111
  c = "o"
  if (achar(i) /= "o") STOP 650
  if (iachar(c) /= iachar("o")) STOP 651
  if (iachar(achar(112)) /= 112) STOP 652
  if (iachar ("p")/= 112) STOP 653
  if (achar (112) /= "p") STOP 654
  if ("p" /= achar ( ichar ( "p"))) STOP 655
  i = 112
  c = "p"
  if (achar(i) /= "p") STOP 656
  if (iachar(c) /= iachar("p")) STOP 657
  if (iachar(achar(113)) /= 113) STOP 658
  if (iachar ("q")/= 113) STOP 659
  if (achar (113) /= "q") STOP 660
  if ("q" /= achar ( ichar ( "q"))) STOP 661
  i = 113
  c = "q"
  if (achar(i) /= "q") STOP 662
  if (iachar(c) /= iachar("q")) STOP 663
  if (iachar(achar(114)) /= 114) STOP 664
  if (iachar ("r")/= 114) STOP 665
  if (achar (114) /= "r") STOP 666
  if ("r" /= achar ( ichar ( "r"))) STOP 667
  i = 114
  c = "r"
  if (achar(i) /= "r") STOP 668
  if (iachar(c) /= iachar("r")) STOP 669
  if (iachar(achar(115)) /= 115) STOP 670
  if (iachar ("s")/= 115) STOP 671
  if (achar (115) /= "s") STOP 672
  if ("s" /= achar ( ichar ( "s"))) STOP 673
  i = 115
  c = "s"
  if (achar(i) /= "s") STOP 674
  if (iachar(c) /= iachar("s")) STOP 675
  if (iachar(achar(116)) /= 116) STOP 676
  if (iachar ("t")/= 116) STOP 677
  if (achar (116) /= "t") STOP 678
  if ("t" /= achar ( ichar ( "t"))) STOP 679
  i = 116
  c = "t"
  if (achar(i) /= "t") STOP 680
  if (iachar(c) /= iachar("t")) STOP 681
  if (iachar(achar(117)) /= 117) STOP 682
  if (iachar ("u")/= 117) STOP 683
  if (achar (117) /= "u") STOP 684
  if ("u" /= achar ( ichar ( "u"))) STOP 685
  i = 117
  c = "u"
  if (achar(i) /= "u") STOP 686
  if (iachar(c) /= iachar("u")) STOP 687
  if (iachar(achar(118)) /= 118) STOP 688
  if (iachar ("v")/= 118) STOP 689
  if (achar (118) /= "v") STOP 690
  if ("v" /= achar ( ichar ( "v"))) STOP 691
  i = 118
  c = "v"
  if (achar(i) /= "v") STOP 692
  if (iachar(c) /= iachar("v")) STOP 693
  if (iachar(achar(119)) /= 119) STOP 694
  if (iachar ("w")/= 119) STOP 695
  if (achar (119) /= "w") STOP 696
  if ("w" /= achar ( ichar ( "w"))) STOP 697
  i = 119
  c = "w"
  if (achar(i) /= "w") STOP 698
  if (iachar(c) /= iachar("w")) STOP 699
  if (iachar(achar(120)) /= 120) STOP 700
  if (iachar ("x")/= 120) STOP 701
  if (achar (120) /= "x") STOP 702
  if ("x" /= achar ( ichar ( "x"))) STOP 703
  i = 120
  c = "x"
  if (achar(i) /= "x") STOP 704
  if (iachar(c) /= iachar("x")) STOP 705
  if (iachar(achar(121)) /= 121) STOP 706
  if (iachar ("y")/= 121) STOP 707
  if (achar (121) /= "y") STOP 708
  if ("y" /= achar ( ichar ( "y"))) STOP 709
  i = 121
  c = "y"
  if (achar(i) /= "y") STOP 710
  if (iachar(c) /= iachar("y")) STOP 711
  if (iachar(achar(122)) /= 122) STOP 712
  if (iachar ("z")/= 122) STOP 713
  if (achar (122) /= "z") STOP 714
  if ("z" /= achar ( ichar ( "z"))) STOP 715
  i = 122
  c = "z"
  if (achar(i) /= "z") STOP 716
  if (iachar(c) /= iachar("z")) STOP 717
  if (iachar(achar(123)) /= 123) STOP 718
  if (iachar ("{")/= 123) STOP 719
  if (achar (123) /= "{") STOP 720
  if ("{" /= achar ( ichar ( "{"))) STOP 721
  i = 123
  c = "{"
  if (achar(i) /= "{") STOP 722
  if (iachar(c) /= iachar("{")) STOP 723
  if (iachar(achar(124)) /= 124) STOP 724
  if (iachar ("|")/= 124) STOP 725
  if (achar (124) /= "|") STOP 726
  if ("|" /= achar ( ichar ( "|"))) STOP 727
  i = 124
  c = "|"
  if (achar(i) /= "|") STOP 728
  if (iachar(c) /= iachar("|")) STOP 729
  if (iachar(achar(125)) /= 125) STOP 730
  if (iachar ("}")/= 125) STOP 731
  if (achar (125) /= "}") STOP 732
  if ("}" /= achar ( ichar ( "}"))) STOP 733
  i = 125
  c = "}"
  if (achar(i) /= "}") STOP 734
  if (iachar(c) /= iachar("}")) STOP 735
  if (iachar(achar(126)) /= 126) STOP 736
  if (iachar ("~")/= 126) STOP 737
  if (achar (126) /= "~") STOP 738
  if ("~" /= achar ( ichar ( "~"))) STOP 739
  i = 126
  c = "~"
  if (achar(i) /= "~") STOP 740
  if (iachar(c) /= iachar("~")) STOP 741
  if (iachar(achar(127)) /= 127) STOP 742
  if (iachar ("")/= 127) STOP 743
  if (achar (127) /= "") STOP 744
  if ("" /= achar ( ichar ( ""))) STOP 745
  i = 127
  c = ""
  if (achar(i) /= "") STOP 746
  if (iachar(c) /= iachar("")) STOP 747
  if (iachar(achar(128)) /= 128) STOP 748
  if (iachar ("€")/= 128) STOP 749
  if (achar (128) /= "€") STOP 750
  if ("€" /= achar ( ichar ( "€"))) STOP 751
  i = 128
  c = "€"
  if (achar(i) /= "€") STOP 752
  if (iachar(c) /= iachar("€")) STOP 753
  if (iachar(achar(129)) /= 129) STOP 754
  if (iachar ("�")/= 129) STOP 755
  if (achar (129) /= "�") STOP 756
  if ("�" /= achar ( ichar ( "�"))) STOP 757
  i = 129
  c = "�"
  if (achar(i) /= "�") STOP 758
  if (iachar(c) /= iachar("�")) STOP 759
  if (iachar(achar(130)) /= 130) STOP 760
  if (iachar ("‚")/= 130) STOP 761
  if (achar (130) /= "‚") STOP 762
  if ("‚" /= achar ( ichar ( "‚"))) STOP 763
  i = 130
  c = "‚"
  if (achar(i) /= "‚") STOP 764
  if (iachar(c) /= iachar("‚")) STOP 765
  if (iachar(achar(131)) /= 131) STOP 766
  if (iachar ("ƒ")/= 131) STOP 767
  if (achar (131) /= "ƒ") STOP 768
  if ("ƒ" /= achar ( ichar ( "ƒ"))) STOP 769
  i = 131
  c = "ƒ"
  if (achar(i) /= "ƒ") STOP 770
  if (iachar(c) /= iachar("ƒ")) STOP 771
  if (iachar(achar(132)) /= 132) STOP 772
  if (iachar ("„")/= 132) STOP 773
  if (achar (132) /= "„") STOP 774
  if ("„" /= achar ( ichar ( "„"))) STOP 775
  i = 132
  c = "„"
  if (achar(i) /= "„") STOP 776
  if (iachar(c) /= iachar("„")) STOP 777
  if (iachar(achar(133)) /= 133) STOP 778
  if (iachar ("…")/= 133) STOP 779
  if (achar (133) /= "…") STOP 780
  if ("…" /= achar ( ichar ( "…"))) STOP 781
  i = 133
  c = "…"
  if (achar(i) /= "…") STOP 782
  if (iachar(c) /= iachar("…")) STOP 783
  if (iachar(achar(134)) /= 134) STOP 784
  if (iachar ("†")/= 134) STOP 785
  if (achar (134) /= "†") STOP 786
  if ("†" /= achar ( ichar ( "†"))) STOP 787
  i = 134
  c = "†"
  if (achar(i) /= "†") STOP 788
  if (iachar(c) /= iachar("†")) STOP 789
  if (iachar(achar(135)) /= 135) STOP 790
  if (iachar ("‡")/= 135) STOP 791
  if (achar (135) /= "‡") STOP 792
  if ("‡" /= achar ( ichar ( "‡"))) STOP 793
  i = 135
  c = "‡"
  if (achar(i) /= "‡") STOP 794
  if (iachar(c) /= iachar("‡")) STOP 795
  if (iachar(achar(136)) /= 136) STOP 796
  if (iachar ("ˆ")/= 136) STOP 797
  if (achar (136) /= "ˆ") STOP 798
  if ("ˆ" /= achar ( ichar ( "ˆ"))) STOP 799
  i = 136
  c = "ˆ"
  if (achar(i) /= "ˆ") STOP 800
  if (iachar(c) /= iachar("ˆ")) STOP 801
  if (iachar(achar(137)) /= 137) STOP 802
  if (iachar ("‰")/= 137) STOP 803
  if (achar (137) /= "‰") STOP 804
  if ("‰" /= achar ( ichar ( "‰"))) STOP 805
  i = 137
  c = "‰"
  if (achar(i) /= "‰") STOP 806
  if (iachar(c) /= iachar("‰")) STOP 807
  if (iachar(achar(138)) /= 138) STOP 808
  if (iachar ("Š")/= 138) STOP 809
  if (achar (138) /= "Š") STOP 810
  if ("Š" /= achar ( ichar ( "Š"))) STOP 811
  i = 138
  c = "Š"
  if (achar(i) /= "Š") STOP 812
  if (iachar(c) /= iachar("Š")) STOP 813
  if (iachar(achar(139)) /= 139) STOP 814
  if (iachar ("‹")/= 139) STOP 815
  if (achar (139) /= "‹") STOP 816
  if ("‹" /= achar ( ichar ( "‹"))) STOP 817
  i = 139
  c = "‹"
  if (achar(i) /= "‹") STOP 818
  if (iachar(c) /= iachar("‹")) STOP 819
  if (iachar(achar(140)) /= 140) STOP 820
  if (iachar ("Œ")/= 140) STOP 821
  if (achar (140) /= "Œ") STOP 822
  if ("Œ" /= achar ( ichar ( "Œ"))) STOP 823
  i = 140
  c = "Œ"
  if (achar(i) /= "Œ") STOP 824
  if (iachar(c) /= iachar("Œ")) STOP 825
  if (iachar(achar(141)) /= 141) STOP 826
  if (iachar ("�")/= 141) STOP 827
  if (achar (141) /= "�") STOP 828
  if ("�" /= achar ( ichar ( "�"))) STOP 829
  i = 141
  c = "�"
  if (achar(i) /= "�") STOP 830
  if (iachar(c) /= iachar("�")) STOP 831
  if (iachar(achar(142)) /= 142) STOP 832
  if (iachar ("Ž")/= 142) STOP 833
  if (achar (142) /= "Ž") STOP 834
  if ("Ž" /= achar ( ichar ( "Ž"))) STOP 835
  i = 142
  c = "Ž"
  if (achar(i) /= "Ž") STOP 836
  if (iachar(c) /= iachar("Ž")) STOP 837
  if (iachar(achar(143)) /= 143) STOP 838
  if (iachar ("�")/= 143) STOP 839
  if (achar (143) /= "�") STOP 840
  if ("�" /= achar ( ichar ( "�"))) STOP 841
  i = 143
  c = "�"
  if (achar(i) /= "�") STOP 842
  if (iachar(c) /= iachar("�")) STOP 843
  if (iachar(achar(144)) /= 144) STOP 844
  if (iachar ("�")/= 144) STOP 845
  if (achar (144) /= "�") STOP 846
  if ("�" /= achar ( ichar ( "�"))) STOP 847
  i = 144
  c = "�"
  if (achar(i) /= "�") STOP 848
  if (iachar(c) /= iachar("�")) STOP 849
  if (iachar(achar(145)) /= 145) STOP 850
  if (iachar ("‘")/= 145) STOP 851
  if (achar (145) /= "‘") STOP 852
  if ("‘" /= achar ( ichar ( "‘"))) STOP 853
  i = 145
  c = "‘"
  if (achar(i) /= "‘") STOP 854
  if (iachar(c) /= iachar("‘")) STOP 855
  if (iachar(achar(146)) /= 146) STOP 856
  if (iachar ("’")/= 146) STOP 857
  if (achar (146) /= "’") STOP 858
  if ("’" /= achar ( ichar ( "’"))) STOP 859
  i = 146
  c = "’"
  if (achar(i) /= "’") STOP 860
  if (iachar(c) /= iachar("’")) STOP 861
  if (iachar(achar(147)) /= 147) STOP 862
  if (iachar ("“")/= 147) STOP 863
  if (achar (147) /= "“") STOP 864
  if ("“" /= achar ( ichar ( "“"))) STOP 865
  i = 147
  c = "“"
  if (achar(i) /= "“") STOP 866
  if (iachar(c) /= iachar("“")) STOP 867
  if (iachar(achar(148)) /= 148) STOP 868
  if (iachar ("”")/= 148) STOP 869
  if (achar (148) /= "”") STOP 870
  if ("”" /= achar ( ichar ( "”"))) STOP 871
  i = 148
  c = "”"
  if (achar(i) /= "”") STOP 872
  if (iachar(c) /= iachar("”")) STOP 873
  if (iachar(achar(149)) /= 149) STOP 874
  if (iachar ("•")/= 149) STOP 875
  if (achar (149) /= "•") STOP 876
  if ("•" /= achar ( ichar ( "•"))) STOP 877
  i = 149
  c = "•"
  if (achar(i) /= "•") STOP 878
  if (iachar(c) /= iachar("•")) STOP 879
  if (iachar(achar(150)) /= 150) STOP 880
  if (iachar ("–")/= 150) STOP 881
  if (achar (150) /= "–") STOP 882
  if ("–" /= achar ( ichar ( "–"))) STOP 883
  i = 150
  c = "–"
  if (achar(i) /= "–") STOP 884
  if (iachar(c) /= iachar("–")) STOP 885
  if (iachar(achar(151)) /= 151) STOP 886
  if (iachar ("—")/= 151) STOP 887
  if (achar (151) /= "—") STOP 888
  if ("—" /= achar ( ichar ( "—"))) STOP 889
  i = 151
  c = "—"
  if (achar(i) /= "—") STOP 890
  if (iachar(c) /= iachar("—")) STOP 891
  if (iachar(achar(152)) /= 152) STOP 892
  if (iachar ("˜")/= 152) STOP 893
  if (achar (152) /= "˜") STOP 894
  if ("˜" /= achar ( ichar ( "˜"))) STOP 895
  i = 152
  c = "˜"
  if (achar(i) /= "˜") STOP 896
  if (iachar(c) /= iachar("˜")) STOP 897
  if (iachar(achar(153)) /= 153) STOP 898
  if (iachar ("™")/= 153) STOP 899
  if (achar (153) /= "™") STOP 900
  if ("™" /= achar ( ichar ( "™"))) STOP 901
  i = 153
  c = "™"
  if (achar(i) /= "™") STOP 902
  if (iachar(c) /= iachar("™")) STOP 903
  if (iachar(achar(154)) /= 154) STOP 904
  if (iachar ("š")/= 154) STOP 905
  if (achar (154) /= "š") STOP 906
  if ("š" /= achar ( ichar ( "š"))) STOP 907
  i = 154
  c = "š"
  if (achar(i) /= "š") STOP 908
  if (iachar(c) /= iachar("š")) STOP 909
  if (iachar(achar(155)) /= 155) STOP 910
  if (iachar ("›")/= 155) STOP 911
  if (achar (155) /= "›") STOP 912
  if ("›" /= achar ( ichar ( "›"))) STOP 913
  i = 155
  c = "›"
  if (achar(i) /= "›") STOP 914
  if (iachar(c) /= iachar("›")) STOP 915
  if (iachar(achar(156)) /= 156) STOP 916
  if (iachar ("œ")/= 156) STOP 917
  if (achar (156) /= "œ") STOP 918
  if ("œ" /= achar ( ichar ( "œ"))) STOP 919
  i = 156
  c = "œ"
  if (achar(i) /= "œ") STOP 920
  if (iachar(c) /= iachar("œ")) STOP 921
  if (iachar(achar(157)) /= 157) STOP 922
  if (iachar ("�")/= 157) STOP 923
  if (achar (157) /= "�") STOP 924
  if ("�" /= achar ( ichar ( "�"))) STOP 925
  i = 157
  c = "�"
  if (achar(i) /= "�") STOP 926
  if (iachar(c) /= iachar("�")) STOP 927
  if (iachar(achar(158)) /= 158) STOP 928
  if (iachar ("ž")/= 158) STOP 929
  if (achar (158) /= "ž") STOP 930
  if ("ž" /= achar ( ichar ( "ž"))) STOP 931
  i = 158
  c = "ž"
  if (achar(i) /= "ž") STOP 932
  if (iachar(c) /= iachar("ž")) STOP 933
  if (iachar(achar(159)) /= 159) STOP 934
  if (iachar ("Ÿ")/= 159) STOP 935
  if (achar (159) /= "Ÿ") STOP 936
  if ("Ÿ" /= achar ( ichar ( "Ÿ"))) STOP 937
  i = 159
  c = "Ÿ"
  if (achar(i) /= "Ÿ") STOP 938
  if (iachar(c) /= iachar("Ÿ")) STOP 939
  if (iachar(achar(160)) /= 160) STOP 940
  if (iachar (" ")/= 160) STOP 941
  if (achar (160) /= " ") STOP 942
  if (" " /= achar ( ichar ( " "))) STOP 943
  i = 160
  c = " "
  if (achar(i) /= " ") STOP 944
  if (iachar(c) /= iachar(" ")) STOP 945
  if (iachar(achar(161)) /= 161) STOP 946
  if (iachar ("¡")/= 161) STOP 947
  if (achar (161) /= "¡") STOP 948
  if ("¡" /= achar ( ichar ( "¡"))) STOP 949
  i = 161
  c = "¡"
  if (achar(i) /= "¡") STOP 950
  if (iachar(c) /= iachar("¡")) STOP 951
  if (iachar(achar(162)) /= 162) STOP 952
  if (iachar ("¢")/= 162) STOP 953
  if (achar (162) /= "¢") STOP 954
  if ("¢" /= achar ( ichar ( "¢"))) STOP 955
  i = 162
  c = "¢"
  if (achar(i) /= "¢") STOP 956
  if (iachar(c) /= iachar("¢")) STOP 957
  if (iachar(achar(163)) /= 163) STOP 958
  if (iachar ("£")/= 163) STOP 959
  if (achar (163) /= "£") STOP 960
  if ("£" /= achar ( ichar ( "£"))) STOP 961
  i = 163
  c = "£"
  if (achar(i) /= "£") STOP 962
  if (iachar(c) /= iachar("£")) STOP 963
  if (iachar(achar(164)) /= 164) STOP 964
  if (iachar ("¤")/= 164) STOP 965
  if (achar (164) /= "¤") STOP 966
  if ("¤" /= achar ( ichar ( "¤"))) STOP 967
  i = 164
  c = "¤"
  if (achar(i) /= "¤") STOP 968
  if (iachar(c) /= iachar("¤")) STOP 969
  if (iachar(achar(165)) /= 165) STOP 970
  if (iachar ("¥")/= 165) STOP 971
  if (achar (165) /= "¥") STOP 972
  if ("¥" /= achar ( ichar ( "¥"))) STOP 973
  i = 165
  c = "¥"
  if (achar(i) /= "¥") STOP 974
  if (iachar(c) /= iachar("¥")) STOP 975
  if (iachar(achar(166)) /= 166) STOP 976
  if (iachar ("¦")/= 166) STOP 977
  if (achar (166) /= "¦") STOP 978
  if ("¦" /= achar ( ichar ( "¦"))) STOP 979
  i = 166
  c = "¦"
  if (achar(i) /= "¦") STOP 980
  if (iachar(c) /= iachar("¦")) STOP 981
  if (iachar(achar(167)) /= 167) STOP 982
  if (iachar ("§")/= 167) STOP 983
  if (achar (167) /= "§") STOP 984
  if ("§" /= achar ( ichar ( "§"))) STOP 985
  i = 167
  c = "§"
  if (achar(i) /= "§") STOP 986
  if (iachar(c) /= iachar("§")) STOP 987
  if (iachar(achar(168)) /= 168) STOP 988
  if (iachar ("¨")/= 168) STOP 989
  if (achar (168) /= "¨") STOP 990
  if ("¨" /= achar ( ichar ( "¨"))) STOP 991
  i = 168
  c = "¨"
  if (achar(i) /= "¨") STOP 992
  if (iachar(c) /= iachar("¨")) STOP 993
  if (iachar(achar(169)) /= 169) STOP 994
  if (iachar ("©")/= 169) STOP 995
  if (achar (169) /= "©") STOP 996
  if ("©" /= achar ( ichar ( "©"))) STOP 997
  i = 169
  c = "©"
  if (achar(i) /= "©") STOP 998
  if (iachar(c) /= iachar("©")) STOP 999
  if (iachar(achar(170)) /= 170) STOP 1000
  if (iachar ("ª")/= 170) STOP 1001
  if (achar (170) /= "ª") STOP 1002
  if ("ª" /= achar ( ichar ( "ª"))) STOP 1003
  i = 170
  c = "ª"
  if (achar(i) /= "ª") STOP 1004
  if (iachar(c) /= iachar("ª")) STOP 1005
  if (iachar(achar(171)) /= 171) STOP 1006
  if (iachar ("«")/= 171) STOP 1007
  if (achar (171) /= "«") STOP 1008
  if ("«" /= achar ( ichar ( "«"))) STOP 1009
  i = 171
  c = "«"
  if (achar(i) /= "«") STOP 1010
  if (iachar(c) /= iachar("«")) STOP 1011
  if (iachar(achar(172)) /= 172) STOP 1012
  if (iachar ("¬")/= 172) STOP 1013
  if (achar (172) /= "¬") STOP 1014
  if ("¬" /= achar ( ichar ( "¬"))) STOP 1015
  i = 172
  c = "¬"
  if (achar(i) /= "¬") STOP 1016
  if (iachar(c) /= iachar("¬")) STOP 1017
  if (iachar(achar(173)) /= 173) STOP 1018
  if (iachar ("­")/= 173) STOP 1019
  if (achar (173) /= "­") STOP 1020
  if ("­" /= achar ( ichar ( "­"))) STOP 1021
  i = 173
  c = "­"
  if (achar(i) /= "­") STOP 1022
  if (iachar(c) /= iachar("­")) STOP 1023
  if (iachar(achar(174)) /= 174) STOP 1024
  if (iachar ("®")/= 174) STOP 1025
  if (achar (174) /= "®") STOP 1026
  if ("®" /= achar ( ichar ( "®"))) STOP 1027
  i = 174
  c = "®"
  if (achar(i) /= "®") STOP 1028
  if (iachar(c) /= iachar("®")) STOP 1029
  if (iachar(achar(175)) /= 175) STOP 1030
  if (iachar ("¯")/= 175) STOP 1031
  if (achar (175) /= "¯") STOP 1032
  if ("¯" /= achar ( ichar ( "¯"))) STOP 1033
  i = 175
  c = "¯"
  if (achar(i) /= "¯") STOP 1034
  if (iachar(c) /= iachar("¯")) STOP 1035
  if (iachar(achar(176)) /= 176) STOP 1036
  if (iachar ("°")/= 176) STOP 1037
  if (achar (176) /= "°") STOP 1038
  if ("°" /= achar ( ichar ( "°"))) STOP 1039
  i = 176
  c = "°"
  if (achar(i) /= "°") STOP 1040
  if (iachar(c) /= iachar("°")) STOP 1041
  if (iachar(achar(177)) /= 177) STOP 1042
  if (iachar ("±")/= 177) STOP 1043
  if (achar (177) /= "±") STOP 1044
  if ("±" /= achar ( ichar ( "±"))) STOP 1045
  i = 177
  c = "±"
  if (achar(i) /= "±") STOP 1046
  if (iachar(c) /= iachar("±")) STOP 1047
  if (iachar(achar(178)) /= 178) STOP 1048
  if (iachar ("²")/= 178) STOP 1049
  if (achar (178) /= "²") STOP 1050
  if ("²" /= achar ( ichar ( "²"))) STOP 1051
  i = 178
  c = "²"
  if (achar(i) /= "²") STOP 1052
  if (iachar(c) /= iachar("²")) STOP 1053
  if (iachar(achar(179)) /= 179) STOP 1054
  if (iachar ("³")/= 179) STOP 1055
  if (achar (179) /= "³") STOP 1056
  if ("³" /= achar ( ichar ( "³"))) STOP 1057
  i = 179
  c = "³"
  if (achar(i) /= "³") STOP 1058
  if (iachar(c) /= iachar("³")) STOP 1059
  if (iachar(achar(180)) /= 180) STOP 1060
  if (iachar ("´")/= 180) STOP 1061
  if (achar (180) /= "´") STOP 1062
  if ("´" /= achar ( ichar ( "´"))) STOP 1063
  i = 180
  c = "´"
  if (achar(i) /= "´") STOP 1064
  if (iachar(c) /= iachar("´")) STOP 1065
  if (iachar(achar(181)) /= 181) STOP 1066
  if (iachar ("µ")/= 181) STOP 1067
  if (achar (181) /= "µ") STOP 1068
  if ("µ" /= achar ( ichar ( "µ"))) STOP 1069
  i = 181
  c = "µ"
  if (achar(i) /= "µ") STOP 1070
  if (iachar(c) /= iachar("µ")) STOP 1071
  if (iachar(achar(182)) /= 182) STOP 1072
  if (iachar ("¶")/= 182) STOP 1073
  if (achar (182) /= "¶") STOP 1074
  if ("¶" /= achar ( ichar ( "¶"))) STOP 1075
  i = 182
  c = "¶"
  if (achar(i) /= "¶") STOP 1076
  if (iachar(c) /= iachar("¶")) STOP 1077
  if (iachar(achar(183)) /= 183) STOP 1078
  if (iachar ("·")/= 183) STOP 1079
  if (achar (183) /= "·") STOP 1080
  if ("·" /= achar ( ichar ( "·"))) STOP 1081
  i = 183
  c = "·"
  if (achar(i) /= "·") STOP 1082
  if (iachar(c) /= iachar("·")) STOP 1083
  if (iachar(achar(184)) /= 184) STOP 1084
  if (iachar ("¸")/= 184) STOP 1085
  if (achar (184) /= "¸") STOP 1086
  if ("¸" /= achar ( ichar ( "¸"))) STOP 1087
  i = 184
  c = "¸"
  if (achar(i) /= "¸") STOP 1088
  if (iachar(c) /= iachar("¸")) STOP 1089
  if (iachar(achar(185)) /= 185) STOP 1090
  if (iachar ("¹")/= 185) STOP 1091
  if (achar (185) /= "¹") STOP 1092
  if ("¹" /= achar ( ichar ( "¹"))) STOP 1093
  i = 185
  c = "¹"
  if (achar(i) /= "¹") STOP 1094
  if (iachar(c) /= iachar("¹")) STOP 1095
  if (iachar(achar(186)) /= 186) STOP 1096
  if (iachar ("º")/= 186) STOP 1097
  if (achar (186) /= "º") STOP 1098
  if ("º" /= achar ( ichar ( "º"))) STOP 1099
  i = 186
  c = "º"
  if (achar(i) /= "º") STOP 1100
  if (iachar(c) /= iachar("º")) STOP 1101
  if (iachar(achar(187)) /= 187) STOP 1102
  if (iachar ("»")/= 187) STOP 1103
  if (achar (187) /= "»") STOP 1104
  if ("»" /= achar ( ichar ( "»"))) STOP 1105
  i = 187
  c = "»"
  if (achar(i) /= "»") STOP 1106
  if (iachar(c) /= iachar("»")) STOP 1107
  if (iachar(achar(188)) /= 188) STOP 1108
  if (iachar ("¼")/= 188) STOP 1109
  if (achar (188) /= "¼") STOP 1110
  if ("¼" /= achar ( ichar ( "¼"))) STOP 1111
  i = 188
  c = "¼"
  if (achar(i) /= "¼") STOP 1112
  if (iachar(c) /= iachar("¼")) STOP 1113
  if (iachar(achar(189)) /= 189) STOP 1114
  if (iachar ("½")/= 189) STOP 1115
  if (achar (189) /= "½") STOP 1116
  if ("½" /= achar ( ichar ( "½"))) STOP 1117
  i = 189
  c = "½"
  if (achar(i) /= "½") STOP 1118
  if (iachar(c) /= iachar("½")) STOP 1119
  if (iachar(achar(190)) /= 190) STOP 1120
  if (iachar ("¾")/= 190) STOP 1121
  if (achar (190) /= "¾") STOP 1122
  if ("¾" /= achar ( ichar ( "¾"))) STOP 1123
  i = 190
  c = "¾"
  if (achar(i) /= "¾") STOP 1124
  if (iachar(c) /= iachar("¾")) STOP 1125
  if (iachar(achar(191)) /= 191) STOP 1126
  if (iachar ("¿")/= 191) STOP 1127
  if (achar (191) /= "¿") STOP 1128
  if ("¿" /= achar ( ichar ( "¿"))) STOP 1129
  i = 191
  c = "¿"
  if (achar(i) /= "¿") STOP 1130
  if (iachar(c) /= iachar("¿")) STOP 1131
  if (iachar(achar(192)) /= 192) STOP 1132
  if (iachar ("À")/= 192) STOP 1133
  if (achar (192) /= "À") STOP 1134
  if ("À" /= achar ( ichar ( "À"))) STOP 1135
  i = 192
  c = "À"
  if (achar(i) /= "À") STOP 1136
  if (iachar(c) /= iachar("À")) STOP 1137
  if (iachar(achar(193)) /= 193) STOP 1138
  if (iachar ("Á")/= 193) STOP 1139
  if (achar (193) /= "Á") STOP 1140
  if ("Á" /= achar ( ichar ( "Á"))) STOP 1141
  i = 193
  c = "Á"
  if (achar(i) /= "Á") STOP 1142
  if (iachar(c) /= iachar("Á")) STOP 1143
  if (iachar(achar(194)) /= 194) STOP 1144
  if (iachar ("Â")/= 194) STOP 1145
  if (achar (194) /= "Â") STOP 1146
  if ("Â" /= achar ( ichar ( "Â"))) STOP 1147
  i = 194
  c = "Â"
  if (achar(i) /= "Â") STOP 1148
  if (iachar(c) /= iachar("Â")) STOP 1149
  if (iachar(achar(195)) /= 195) STOP 1150
  if (iachar ("Ã")/= 195) STOP 1151
  if (achar (195) /= "Ã") STOP 1152
  if ("Ã" /= achar ( ichar ( "Ã"))) STOP 1153
  i = 195
  c = "Ã"
  if (achar(i) /= "Ã") STOP 1154
  if (iachar(c) /= iachar("Ã")) STOP 1155
  if (iachar(achar(196)) /= 196) STOP 1156
  if (iachar ("Ä")/= 196) STOP 1157
  if (achar (196) /= "Ä") STOP 1158
  if ("Ä" /= achar ( ichar ( "Ä"))) STOP 1159
  i = 196
  c = "Ä"
  if (achar(i) /= "Ä") STOP 1160
  if (iachar(c) /= iachar("Ä")) STOP 1161
  if (iachar(achar(197)) /= 197) STOP 1162
  if (iachar ("Å")/= 197) STOP 1163
  if (achar (197) /= "Å") STOP 1164
  if ("Å" /= achar ( ichar ( "Å"))) STOP 1165
  i = 197
  c = "Å"
  if (achar(i) /= "Å") STOP 1166
  if (iachar(c) /= iachar("Å")) STOP 1167
  if (iachar(achar(198)) /= 198) STOP 1168
  if (iachar ("Æ")/= 198) STOP 1169
  if (achar (198) /= "Æ") STOP 1170
  if ("Æ" /= achar ( ichar ( "Æ"))) STOP 1171
  i = 198
  c = "Æ"
  if (achar(i) /= "Æ") STOP 1172
  if (iachar(c) /= iachar("Æ")) STOP 1173
  if (iachar(achar(199)) /= 199) STOP 1174
  if (iachar ("Ç")/= 199) STOP 1175
  if (achar (199) /= "Ç") STOP 1176
  if ("Ç" /= achar ( ichar ( "Ç"))) STOP 1177
  i = 199
  c = "Ç"
  if (achar(i) /= "Ç") STOP 1178
  if (iachar(c) /= iachar("Ç")) STOP 1179
  if (iachar(achar(200)) /= 200) STOP 1180
  if (iachar ("È")/= 200) STOP 1181
  if (achar (200) /= "È") STOP 1182
  if ("È" /= achar ( ichar ( "È"))) STOP 1183
  i = 200
  c = "È"
  if (achar(i) /= "È") STOP 1184
  if (iachar(c) /= iachar("È")) STOP 1185
  if (iachar(achar(201)) /= 201) STOP 1186
  if (iachar ("É")/= 201) STOP 1187
  if (achar (201) /= "É") STOP 1188
  if ("É" /= achar ( ichar ( "É"))) STOP 1189
  i = 201
  c = "É"
  if (achar(i) /= "É") STOP 1190
  if (iachar(c) /= iachar("É")) STOP 1191
  if (iachar(achar(202)) /= 202) STOP 1192
  if (iachar ("Ê")/= 202) STOP 1193
  if (achar (202) /= "Ê") STOP 1194
  if ("Ê" /= achar ( ichar ( "Ê"))) STOP 1195
  i = 202
  c = "Ê"
  if (achar(i) /= "Ê") STOP 1196
  if (iachar(c) /= iachar("Ê")) STOP 1197
  if (iachar(achar(203)) /= 203) STOP 1198
  if (iachar ("Ë")/= 203) STOP 1199
  if (achar (203) /= "Ë") STOP 1200
  if ("Ë" /= achar ( ichar ( "Ë"))) STOP 1201
  i = 203
  c = "Ë"
  if (achar(i) /= "Ë") STOP 1202
  if (iachar(c) /= iachar("Ë")) STOP 1203
  if (iachar(achar(204)) /= 204) STOP 1204
  if (iachar ("Ì")/= 204) STOP 1205
  if (achar (204) /= "Ì") STOP 1206
  if ("Ì" /= achar ( ichar ( "Ì"))) STOP 1207
  i = 204
  c = "Ì"
  if (achar(i) /= "Ì") STOP 1208
  if (iachar(c) /= iachar("Ì")) STOP 1209
  if (iachar(achar(205)) /= 205) STOP 1210
  if (iachar ("Í")/= 205) STOP 1211
  if (achar (205) /= "Í") STOP 1212
  if ("Í" /= achar ( ichar ( "Í"))) STOP 1213
  i = 205
  c = "Í"
  if (achar(i) /= "Í") STOP 1214
  if (iachar(c) /= iachar("Í")) STOP 1215
  if (iachar(achar(206)) /= 206) STOP 1216
  if (iachar ("Î")/= 206) STOP 1217
  if (achar (206) /= "Î") STOP 1218
  if ("Î" /= achar ( ichar ( "Î"))) STOP 1219
  i = 206
  c = "Î"
  if (achar(i) /= "Î") STOP 1220
  if (iachar(c) /= iachar("Î")) STOP 1221
  if (iachar(achar(207)) /= 207) STOP 1222
  if (iachar ("Ï")/= 207) STOP 1223
  if (achar (207) /= "Ï") STOP 1224
  if ("Ï" /= achar ( ichar ( "Ï"))) STOP 1225
  i = 207
  c = "Ï"
  if (achar(i) /= "Ï") STOP 1226
  if (iachar(c) /= iachar("Ï")) STOP 1227
  if (iachar(achar(208)) /= 208) STOP 1228
  if (iachar ("Ð")/= 208) STOP 1229
  if (achar (208) /= "Ð") STOP 1230
  if ("Ð" /= achar ( ichar ( "Ð"))) STOP 1231
  i = 208
  c = "Ð"
  if (achar(i) /= "Ð") STOP 1232
  if (iachar(c) /= iachar("Ð")) STOP 1233
  if (iachar(achar(209)) /= 209) STOP 1234
  if (iachar ("Ñ")/= 209) STOP 1235
  if (achar (209) /= "Ñ") STOP 1236
  if ("Ñ" /= achar ( ichar ( "Ñ"))) STOP 1237
  i = 209
  c = "Ñ"
  if (achar(i) /= "Ñ") STOP 1238
  if (iachar(c) /= iachar("Ñ")) STOP 1239
  if (iachar(achar(210)) /= 210) STOP 1240
  if (iachar ("Ò")/= 210) STOP 1241
  if (achar (210) /= "Ò") STOP 1242
  if ("Ò" /= achar ( ichar ( "Ò"))) STOP 1243
  i = 210
  c = "Ò"
  if (achar(i) /= "Ò") STOP 1244
  if (iachar(c) /= iachar("Ò")) STOP 1245
  if (iachar(achar(211)) /= 211) STOP 1246
  if (iachar ("Ó")/= 211) STOP 1247
  if (achar (211) /= "Ó") STOP 1248
  if ("Ó" /= achar ( ichar ( "Ó"))) STOP 1249
  i = 211
  c = "Ó"
  if (achar(i) /= "Ó") STOP 1250
  if (iachar(c) /= iachar("Ó")) STOP 1251
  if (iachar(achar(212)) /= 212) STOP 1252
  if (iachar ("Ô")/= 212) STOP 1253
  if (achar (212) /= "Ô") STOP 1254
  if ("Ô" /= achar ( ichar ( "Ô"))) STOP 1255
  i = 212
  c = "Ô"
  if (achar(i) /= "Ô") STOP 1256
  if (iachar(c) /= iachar("Ô")) STOP 1257
  if (iachar(achar(213)) /= 213) STOP 1258
  if (iachar ("Õ")/= 213) STOP 1259
  if (achar (213) /= "Õ") STOP 1260
  if ("Õ" /= achar ( ichar ( "Õ"))) STOP 1261
  i = 213
  c = "Õ"
  if (achar(i) /= "Õ") STOP 1262
  if (iachar(c) /= iachar("Õ")) STOP 1263
  if (iachar(achar(214)) /= 214) STOP 1264
  if (iachar ("Ö")/= 214) STOP 1265
  if (achar (214) /= "Ö") STOP 1266
  if ("Ö" /= achar ( ichar ( "Ö"))) STOP 1267
  i = 214
  c = "Ö"
  if (achar(i) /= "Ö") STOP 1268
  if (iachar(c) /= iachar("Ö")) STOP 1269
  if (iachar(achar(215)) /= 215) STOP 1270
  if (iachar ("×")/= 215) STOP 1271
  if (achar (215) /= "×") STOP 1272
  if ("×" /= achar ( ichar ( "×"))) STOP 1273
  i = 215
  c = "×"
  if (achar(i) /= "×") STOP 1274
  if (iachar(c) /= iachar("×")) STOP 1275
  if (iachar(achar(216)) /= 216) STOP 1276
  if (iachar ("Ø")/= 216) STOP 1277
  if (achar (216) /= "Ø") STOP 1278
  if ("Ø" /= achar ( ichar ( "Ø"))) STOP 1279
  i = 216
  c = "Ø"
  if (achar(i) /= "Ø") STOP 1280
  if (iachar(c) /= iachar("Ø")) STOP 1281
  if (iachar(achar(217)) /= 217) STOP 1282
  if (iachar ("Ù")/= 217) STOP 1283
  if (achar (217) /= "Ù") STOP 1284
  if ("Ù" /= achar ( ichar ( "Ù"))) STOP 1285
  i = 217
  c = "Ù"
  if (achar(i) /= "Ù") STOP 1286
  if (iachar(c) /= iachar("Ù")) STOP 1287
  if (iachar(achar(218)) /= 218) STOP 1288
  if (iachar ("Ú")/= 218) STOP 1289
  if (achar (218) /= "Ú") STOP 1290
  if ("Ú" /= achar ( ichar ( "Ú"))) STOP 1291
  i = 218
  c = "Ú"
  if (achar(i) /= "Ú") STOP 1292
  if (iachar(c) /= iachar("Ú")) STOP 1293
  if (iachar(achar(219)) /= 219) STOP 1294
  if (iachar ("Û")/= 219) STOP 1295
  if (achar (219) /= "Û") STOP 1296
  if ("Û" /= achar ( ichar ( "Û"))) STOP 1297
  i = 219
  c = "Û"
  if (achar(i) /= "Û") STOP 1298
  if (iachar(c) /= iachar("Û")) STOP 1299
  if (iachar(achar(220)) /= 220) STOP 1300
  if (iachar ("Ü")/= 220) STOP 1301
  if (achar (220) /= "Ü") STOP 1302
  if ("Ü" /= achar ( ichar ( "Ü"))) STOP 1303
  i = 220
  c = "Ü"
  if (achar(i) /= "Ü") STOP 1304
  if (iachar(c) /= iachar("Ü")) STOP 1305
  if (iachar(achar(221)) /= 221) STOP 1306
  if (iachar ("Ý")/= 221) STOP 1307
  if (achar (221) /= "Ý") STOP 1308
  if ("Ý" /= achar ( ichar ( "Ý"))) STOP 1309
  i = 221
  c = "Ý"
  if (achar(i) /= "Ý") STOP 1310
  if (iachar(c) /= iachar("Ý")) STOP 1311
  if (iachar(achar(222)) /= 222) STOP 1312
  if (iachar ("Þ")/= 222) STOP 1313
  if (achar (222) /= "Þ") STOP 1314
  if ("Þ" /= achar ( ichar ( "Þ"))) STOP 1315
  i = 222
  c = "Þ"
  if (achar(i) /= "Þ") STOP 1316
  if (iachar(c) /= iachar("Þ")) STOP 1317
  if (iachar(achar(223)) /= 223) STOP 1318
  if (iachar ("ß")/= 223) STOP 1319
  if (achar (223) /= "ß") STOP 1320
  if ("ß" /= achar ( ichar ( "ß"))) STOP 1321
  i = 223
  c = "ß"
  if (achar(i) /= "ß") STOP 1322
  if (iachar(c) /= iachar("ß")) STOP 1323
  if (iachar(achar(224)) /= 224) STOP 1324
  if (iachar ("à")/= 224) STOP 1325
  if (achar (224) /= "à") STOP 1326
  if ("à" /= achar ( ichar ( "à"))) STOP 1327
  i = 224
  c = "à"
  if (achar(i) /= "à") STOP 1328
  if (iachar(c) /= iachar("à")) STOP 1329
  if (iachar(achar(225)) /= 225) STOP 1330
  if (iachar ("á")/= 225) STOP 1331
  if (achar (225) /= "á") STOP 1332
  if ("á" /= achar ( ichar ( "á"))) STOP 1333
  i = 225
  c = "á"
  if (achar(i) /= "á") STOP 1334
  if (iachar(c) /= iachar("á")) STOP 1335
  if (iachar(achar(226)) /= 226) STOP 1336
  if (iachar ("â")/= 226) STOP 1337
  if (achar (226) /= "â") STOP 1338
  if ("â" /= achar ( ichar ( "â"))) STOP 1339
  i = 226
  c = "â"
  if (achar(i) /= "â") STOP 1340
  if (iachar(c) /= iachar("â")) STOP 1341
  if (iachar(achar(227)) /= 227) STOP 1342
  if (iachar ("ã")/= 227) STOP 1343
  if (achar (227) /= "ã") STOP 1344
  if ("ã" /= achar ( ichar ( "ã"))) STOP 1345
  i = 227
  c = "ã"
  if (achar(i) /= "ã") STOP 1346
  if (iachar(c) /= iachar("ã")) STOP 1347
  if (iachar(achar(228)) /= 228) STOP 1348
  if (iachar ("ä")/= 228) STOP 1349
  if (achar (228) /= "ä") STOP 1350
  if ("ä" /= achar ( ichar ( "ä"))) STOP 1351
  i = 228
  c = "ä"
  if (achar(i) /= "ä") STOP 1352
  if (iachar(c) /= iachar("ä")) STOP 1353
  if (iachar(achar(229)) /= 229) STOP 1354
  if (iachar ("å")/= 229) STOP 1355
  if (achar (229) /= "å") STOP 1356
  if ("å" /= achar ( ichar ( "å"))) STOP 1357
  i = 229
  c = "å"
  if (achar(i) /= "å") STOP 1358
  if (iachar(c) /= iachar("å")) STOP 1359
  if (iachar(achar(230)) /= 230) STOP 1360
  if (iachar ("æ")/= 230) STOP 1361
  if (achar (230) /= "æ") STOP 1362
  if ("æ" /= achar ( ichar ( "æ"))) STOP 1363
  i = 230
  c = "æ"
  if (achar(i) /= "æ") STOP 1364
  if (iachar(c) /= iachar("æ")) STOP 1365
  if (iachar(achar(231)) /= 231) STOP 1366
  if (iachar ("ç")/= 231) STOP 1367
  if (achar (231) /= "ç") STOP 1368
  if ("ç" /= achar ( ichar ( "ç"))) STOP 1369
  i = 231
  c = "ç"
  if (achar(i) /= "ç") STOP 1370
  if (iachar(c) /= iachar("ç")) STOP 1371
  if (iachar(achar(232)) /= 232) STOP 1372
  if (iachar ("è")/= 232) STOP 1373
  if (achar (232) /= "è") STOP 1374
  if ("è" /= achar ( ichar ( "è"))) STOP 1375
  i = 232
  c = "è"
  if (achar(i) /= "è") STOP 1376
  if (iachar(c) /= iachar("è")) STOP 1377
  if (iachar(achar(233)) /= 233) STOP 1378
  if (iachar ("é")/= 233) STOP 1379
  if (achar (233) /= "é") STOP 1380
  if ("é" /= achar ( ichar ( "é"))) STOP 1381
  i = 233
  c = "é"
  if (achar(i) /= "é") STOP 1382
  if (iachar(c) /= iachar("é")) STOP 1383
  if (iachar(achar(234)) /= 234) STOP 1384
  if (iachar ("ê")/= 234) STOP 1385
  if (achar (234) /= "ê") STOP 1386
  if ("ê" /= achar ( ichar ( "ê"))) STOP 1387
  i = 234
  c = "ê"
  if (achar(i) /= "ê") STOP 1388
  if (iachar(c) /= iachar("ê")) STOP 1389
  if (iachar(achar(235)) /= 235) STOP 1390
  if (iachar ("ë")/= 235) STOP 1391
  if (achar (235) /= "ë") STOP 1392
  if ("ë" /= achar ( ichar ( "ë"))) STOP 1393
  i = 235
  c = "ë"
  if (achar(i) /= "ë") STOP 1394
  if (iachar(c) /= iachar("ë")) STOP 1395
  if (iachar(achar(236)) /= 236) STOP 1396
  if (iachar ("ì")/= 236) STOP 1397
  if (achar (236) /= "ì") STOP 1398
  if ("ì" /= achar ( ichar ( "ì"))) STOP 1399
  i = 236
  c = "ì"
  if (achar(i) /= "ì") STOP 1400
  if (iachar(c) /= iachar("ì")) STOP 1401
  if (iachar(achar(237)) /= 237) STOP 1402
  if (iachar ("í")/= 237) STOP 1403
  if (achar (237) /= "í") STOP 1404
  if ("í" /= achar ( ichar ( "í"))) STOP 1405
  i = 237
  c = "í"
  if (achar(i) /= "í") STOP 1406
  if (iachar(c) /= iachar("í")) STOP 1407
  if (iachar(achar(238)) /= 238) STOP 1408
  if (iachar ("î")/= 238) STOP 1409
  if (achar (238) /= "î") STOP 1410
  if ("î" /= achar ( ichar ( "î"))) STOP 1411
  i = 238
  c = "î"
  if (achar(i) /= "î") STOP 1412
  if (iachar(c) /= iachar("î")) STOP 1413
  if (iachar(achar(239)) /= 239) STOP 1414
  if (iachar ("ï")/= 239) STOP 1415
  if (achar (239) /= "ï") STOP 1416
  if ("ï" /= achar ( ichar ( "ï"))) STOP 1417
  i = 239
  c = "ï"
  if (achar(i) /= "ï") STOP 1418
  if (iachar(c) /= iachar("ï")) STOP 1419
  if (iachar(achar(240)) /= 240) STOP 1420
  if (iachar ("ð")/= 240) STOP 1421
  if (achar (240) /= "ð") STOP 1422
  if ("ð" /= achar ( ichar ( "ð"))) STOP 1423
  i = 240
  c = "ð"
  if (achar(i) /= "ð") STOP 1424
  if (iachar(c) /= iachar("ð")) STOP 1425
  if (iachar(achar(241)) /= 241) STOP 1426
  if (iachar ("ñ")/= 241) STOP 1427
  if (achar (241) /= "ñ") STOP 1428
  if ("ñ" /= achar ( ichar ( "ñ"))) STOP 1429
  i = 241
  c = "ñ"
  if (achar(i) /= "ñ") STOP 1430
  if (iachar(c) /= iachar("ñ")) STOP 1431
  if (iachar(achar(242)) /= 242) STOP 1432
  if (iachar ("ò")/= 242) STOP 1433
  if (achar (242) /= "ò") STOP 1434
  if ("ò" /= achar ( ichar ( "ò"))) STOP 1435
  i = 242
  c = "ò"
  if (achar(i) /= "ò") STOP 1436
  if (iachar(c) /= iachar("ò")) STOP 1437
  if (iachar(achar(243)) /= 243) STOP 1438
  if (iachar ("ó")/= 243) STOP 1439
  if (achar (243) /= "ó") STOP 1440
  if ("ó" /= achar ( ichar ( "ó"))) STOP 1441
  i = 243
  c = "ó"
  if (achar(i) /= "ó") STOP 1442
  if (iachar(c) /= iachar("ó")) STOP 1443
  if (iachar(achar(244)) /= 244) STOP 1444
  if (iachar ("ô")/= 244) STOP 1445
  if (achar (244) /= "ô") STOP 1446
  if ("ô" /= achar ( ichar ( "ô"))) STOP 1447
  i = 244
  c = "ô"
  if (achar(i) /= "ô") STOP 1448
  if (iachar(c) /= iachar("ô")) STOP 1449
  if (iachar(achar(245)) /= 245) STOP 1450
  if (iachar ("õ")/= 245) STOP 1451
  if (achar (245) /= "õ") STOP 1452
  if ("õ" /= achar ( ichar ( "õ"))) STOP 1453
  i = 245
  c = "õ"
  if (achar(i) /= "õ") STOP 1454
  if (iachar(c) /= iachar("õ")) STOP 1455
  if (iachar(achar(246)) /= 246) STOP 1456
  if (iachar ("ö")/= 246) STOP 1457
  if (achar (246) /= "ö") STOP 1458
  if ("ö" /= achar ( ichar ( "ö"))) STOP 1459
  i = 246
  c = "ö"
  if (achar(i) /= "ö") STOP 1460
  if (iachar(c) /= iachar("ö")) STOP 1461
  if (iachar(achar(247)) /= 247) STOP 1462
  if (iachar ("÷")/= 247) STOP 1463
  if (achar (247) /= "÷") STOP 1464
  if ("÷" /= achar ( ichar ( "÷"))) STOP 1465
  i = 247
  c = "÷"
  if (achar(i) /= "÷") STOP 1466
  if (iachar(c) /= iachar("÷")) STOP 1467
  if (iachar(achar(248)) /= 248) STOP 1468
  if (iachar ("ø")/= 248) STOP 1469
  if (achar (248) /= "ø") STOP 1470
  if ("ø" /= achar ( ichar ( "ø"))) STOP 1471
  i = 248
  c = "ø"
  if (achar(i) /= "ø") STOP 1472
  if (iachar(c) /= iachar("ø")) STOP 1473
  if (iachar(achar(249)) /= 249) STOP 1474
  if (iachar ("ù")/= 249) STOP 1475
  if (achar (249) /= "ù") STOP 1476
  if ("ù" /= achar ( ichar ( "ù"))) STOP 1477
  i = 249
  c = "ù"
  if (achar(i) /= "ù") STOP 1478
  if (iachar(c) /= iachar("ù")) STOP 1479
  if (iachar(achar(250)) /= 250) STOP 1480
  if (iachar ("ú")/= 250) STOP 1481
  if (achar (250) /= "ú") STOP 1482
  if ("ú" /= achar ( ichar ( "ú"))) STOP 1483
  i = 250
  c = "ú"
  if (achar(i) /= "ú") STOP 1484
  if (iachar(c) /= iachar("ú")) STOP 1485
  if (iachar(achar(251)) /= 251) STOP 1486
  if (iachar ("û")/= 251) STOP 1487
  if (achar (251) /= "û") STOP 1488
  if ("û" /= achar ( ichar ( "û"))) STOP 1489
  i = 251
  c = "û"
  if (achar(i) /= "û") STOP 1490
  if (iachar(c) /= iachar("û")) STOP 1491
  if (iachar(achar(252)) /= 252) STOP 1492
  if (iachar ("ü")/= 252) STOP 1493
  if (achar (252) /= "ü") STOP 1494
  if ("ü" /= achar ( ichar ( "ü"))) STOP 1495
  i = 252
  c = "ü"
  if (achar(i) /= "ü") STOP 1496
  if (iachar(c) /= iachar("ü")) STOP 1497
  if (iachar(achar(253)) /= 253) STOP 1498
  if (iachar ("ý")/= 253) STOP 1499
  if (achar (253) /= "ý") STOP 1500
  if ("ý" /= achar ( ichar ( "ý"))) STOP 1501
  i = 253
  c = "ý"
  if (achar(i) /= "ý") STOP 1502
  if (iachar(c) /= iachar("ý")) STOP 1503
  if (iachar(achar(254)) /= 254) STOP 1504
  if (iachar ("þ")/= 254) STOP 1505
  if (achar (254) /= "þ") STOP 1506
  if ("þ" /= achar ( ichar ( "þ"))) STOP 1507
  i = 254
  c = "þ"
  if (achar(i) /= "þ") STOP 1508
  if (iachar(c) /= iachar("þ")) STOP 1509
  if (iachar(achar(255)) /= 255) STOP 1510
  if (iachar ("ÿ")/= 255) STOP 1511
  if (achar (255) /= "ÿ") STOP 1512
  if ("ÿ" /= achar ( ichar ( "ÿ"))) STOP 1513
  i = 255
  c = "ÿ"
  if (achar(i) /= "ÿ") STOP 1514
  if (iachar(c) /= iachar("ÿ")) STOP 1515
  print *, 'DONE'
end program main

! DejaGNU only checks the exit code but 'STOP 256' has exit code 0. Hence,
! check output for:
! { dg-output "DONE" }