! { 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" }