Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/achar_2.f90 @ 145:1830386684a0
gcc-9.2.0
author | anatofuz |
---|---|
date | Thu, 13 Feb 2020 11:34:05 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! { 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" }