gas/testsuite/gas/h8300/t13_otr.exp

   1 # Copyright 2012
   2 # Free Software Foundation, Inc.
   3
   4 # This program is free software; you can redistribute it and/or modify
   5 # it under the terms of the GNU General Public License as published by
   6 # the Free Software Foundation; either version 3 of the License, or
   7 # (at your option) any later version.
   8 #
   9 # This program is distributed in the hope that it will be useful,
  10 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12 # GNU General Public License for more details.
  13 #
  14 # You should have received a copy of the GNU General Public License
  15 # along with this program; if not, write to the Free Software
  16 # Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.
  17
  18 #
  19 # Some h8300sx tests -- t13_otr
  20 #
  21
  22 proc do_t13_otr_test {} {
  23     set testname "t13_otr.s -- h8sx misc tests"
  24
  25     gas_start "t13_otr.s" "-al"
  26
  27     # Check each instruction bit pattern to verify it got assembled correctly.
  28
  29     set x 0
  30     expect {
  31         -re ".*  11 1234 4000" { set x [expr $x+1]; exp_continue; }
  32         -re ".*  12 1236 4100" { set x [expr $x+1]; exp_continue; }
  33         -re ".*  13 1238 4200" { set x [expr $x+1]; exp_continue; }
  34         -re ".*  14 123a 4300" { set x [expr $x+1]; exp_continue; }
  35         -re ".*  15 123c 4400" { set x [expr $x+1]; exp_continue; }
  36         -re ".*  16 123e 4500" { set x [expr $x+1]; exp_continue; }
  37         -re ".*  17 1240 4600" { set x [expr $x+1]; exp_continue; }
  38         -re ".*  18 1242 4700" { set x [expr $x+1]; exp_continue; }
  39         -re ".*  19 1244 4800" { set x [expr $x+1]; exp_continue; }
  40         -re ".*  20 1246 4900" { set x [expr $x+1]; exp_continue; }
  41         -re ".*  21 1248 4A00" { set x [expr $x+1]; exp_continue; }
  42         -re ".*  22 124a 4B00" { set x [expr $x+1]; exp_continue; }
  43         -re ".*  23 124c 4C00" { set x [expr $x+1]; exp_continue; }
  44         -re ".*  24 124e 4D00" { set x [expr $x+1]; exp_continue; }
  45         -re ".*  25 1250 4E00" { set x [expr $x+1]; exp_continue; }
  46         -re ".*  26 1252 4F00" { set x [expr $x+1]; exp_continue; }
  47         -re ".*  27              " {
  48             if [expr $x == 16] then {
  49                 pass "$testname: b\[cc\] 0x12+.+2"
  50             } else {
  51                 fail "$testname: b\[cc\] 0x12+.+2 ($x)"
  52             }
  53         }
  54         default { fail "$testname: b\[cc\] 0x12+.+2 ($x)" }
  55     }
  56
  57     set x 0
  58     expect {
  59         -re ".*  28 1254 58000000" { set x [expr $x+1]; exp_continue; }
  60         -re ".*  29 1258 58100000" { set x [expr $x+1]; exp_continue; }
  61         -re ".*  30 125c 58200000" { set x [expr $x+1]; exp_continue; }
  62         -re ".*  31 1260 58300000" { set x [expr $x+1]; exp_continue; }
  63         -re ".*  32 1264 58400000" { set x [expr $x+1]; exp_continue; }
  64         -re ".*  33 1268 58500000" { set x [expr $x+1]; exp_continue; }
  65         -re ".*  34 126c 58600000" { set x [expr $x+1]; exp_continue; }
  66         -re ".*  35 1270 58700000" { set x [expr $x+1]; exp_continue; }
  67         -re ".*  36 1274 58800000" { set x [expr $x+1]; exp_continue; }
  68         -re ".*  37 1278 58900000" { set x [expr $x+1]; exp_continue; }
  69         -re ".*  38 127c 58A00000" { set x [expr $x+1]; exp_continue; }
  70         -re ".*  39 1280 58B00000" { set x [expr $x+1]; exp_continue; }
  71         -re ".*  40 1284 58C00000" { set x [expr $x+1]; exp_continue; }
  72         -re ".*  41 1288 58D00000" { set x [expr $x+1]; exp_continue; }
  73         -re ".*  42 128c 58E00000" { set x [expr $x+1]; exp_continue; }
  74         -re ".*  43 1290 58F00000" { set x [expr $x+1]; exp_continue; }
  75         -re ".*  44              " {
  76             if [expr $x == 16] then {
  77                 pass "$testname: b\[cc\] 0x1234+.+4"
  78             } else {
  79                 fail "$testname: b\[cc\] 0x1234+.+4 ($x)"
  80             }
  81         }
  82         default { fail "$testname: b\[cc\] 0x1234+.+4 ($x)" }
  83     }
  84
  85     set x 0
  86     expect {
  87         -re ".*  45 1294 4001" { set x [expr $x+1]; exp_continue; }
  88         -re ".*  46 1296 0000" { set x [expr $x+1]; exp_continue; }
  89         -re ".*  47              " {
  90             if [expr $x == 2] then {
  91                 pass "$testname: bra/s"
  92             } else {
  93                 fail "$testname: bra/s ($x)"
  94             }
  95         }
  96         default { fail "$testname: bra/s ($x)" }
  97     }
  98
  99     set x 0
 100     expect {
 101         -re ".*  48 1298 7C204700" { set x [expr $x+1]; exp_continue; }
 102         -re ".*  49 129c 7E9A4700" { set x [expr $x+1]; exp_continue; }
 103         -re ".*  50 12a0 6A101234" { set x [expr $x+1]; exp_continue; }
 104         -re ".*  50      4700" { set x [expr $x+1]; exp_continue; }
 105         -re ".*  51 12a6 6A301234" { set x [expr $x+1]; exp_continue; }
 106         -re ".*  51      56784700" { set x [expr $x+1]; exp_continue; }
 107         -re ".*  52 12ae 7C205870" { set x [expr $x+1]; exp_continue; }
 108         -re ".*  52      0000" { set x [expr $x+1]; exp_continue; }
 109         -re ".*  53 12b4 7E125870" { set x [expr $x+1]; exp_continue; }
 110         -re ".*  53      0000" { set x [expr $x+1]; exp_continue; }
 111         -re ".*  54 12ba 6A109ABC" { set x [expr $x+1]; exp_continue; }
 112         -re ".*  54      58700000" { set x [expr $x+1]; exp_continue; }
 113         -re ".*  55 12c2 6A301234" { set x [expr $x+1]; exp_continue; }
 114         -re ".*  55      56785870" { set x [expr $x+1]; exp_continue; }
 115         -re ".*  55      0000" { set x [expr $x+1]; exp_continue; }
 116         -re ".*  56              " {
 117             if [expr $x == 15] then {
 118                 pass "$testname: bra/bc #0x7, ..."
 119             } else {
 120                 fail "$testname: bra/bc #0x7, ... ($x)"
 121             }
 122         }
 123         default { fail "$testname: bra/bc #0x7, ... ($x)" }
 124     }
 125
 126     set x 0
 127     expect {
 128         -re ".*  57 12cc 7C204F00" { set x [expr $x+1]; exp_continue; }
 129         -re ".*  58 12d0 7E9A4F00" { set x [expr $x+1]; exp_continue; }
 130         -re ".*  59 12d4 6A101234" { set x [expr $x+1]; exp_continue; }
 131         -re ".*  59      4F00" { set x [expr $x+1]; exp_continue; }
 132         -re ".*  60 12da 6A301234" { set x [expr $x+1]; exp_continue; }
 133         -re ".*  60      56784F00" { set x [expr $x+1]; exp_continue; }
 134         -re ".*  61 12e2 7C2058F0" { set x [expr $x+1]; exp_continue; }
 135         -re ".*  61      0000" { set x [expr $x+1]; exp_continue; }
 136         -re ".*  62 12e8 7E1258F0" { set x [expr $x+1]; exp_continue; }
 137         -re ".*  62      0000" { set x [expr $x+1]; exp_continue; }
 138         -re ".*  63 12ee 6A109ABC" { set x [expr $x+1]; exp_continue; }
 139         -re ".*  63      58F00000" { set x [expr $x+1]; exp_continue; }
 140         -re ".*  64 12f6 6A301234" { set x [expr $x+1]; exp_continue; }
 141         -re ".*  64      567858F0" { set x [expr $x+1]; exp_continue; }
 142         -re ".*  64      0000" { set x [expr $x+1]; exp_continue; }
 143         -re ".*  65              " {
 144             if [expr $x == 15] then {
 145                 pass "$testname: bra/bs #0x7, ..."
 146             } else {
 147                 fail "$testname: bra/bs #0x7, ... ($x)"
 148             }
 149         }
 150         default { fail "$testname: bra/bs #0x7, ... ($x)" }
 151     }
 152
 153     set x 0
 154     expect {
 155         -re ".*  66 1300 7C205C70" { set x [expr $x+1]; exp_continue; }
 156         -re ".*  66      0000" { set x [expr $x+1]; exp_continue; }
 157         -re ".*  67 1306 7E125C70" { set x [expr $x+1]; exp_continue; }
 158         -re ".*  67      0000" { set x [expr $x+1]; exp_continue; }
 159         -re ".*  68 130c 6A109ABC" { set x [expr $x+1]; exp_continue; }
 160         -re ".*  68      5C700000" { set x [expr $x+1]; exp_continue; }
 161         -re ".*  69 1314 6A301234" { set x [expr $x+1]; exp_continue; }
 162         -re ".*  69      56785C70" { set x [expr $x+1]; exp_continue; }
 163         -re ".*  69      0000" { set x [expr $x+1]; exp_continue; }
 164         -re ".*  70              " {
 165             if [expr $x == 9] then {
 166                 pass "$testname: bsr/bc #0x7, ..."
 167             } else {
 168                 fail "$testname: bsr/bc #0x7, ... ($x)"
 169             }
 170         }
 171         default { fail "$testname: bsr/bc #0x7, ... ($x)" }
 172     }
 173
 174     set x 0
 175     expect {
 176         -re ".*  71 131e 7C205CF0" { set x [expr $x+1]; exp_continue; }
 177         -re ".*  71      0000" { set x [expr $x+1]; exp_continue; }
 178         -re ".*  72 1324 7E125CF0" { set x [expr $x+1]; exp_continue; }
 179         -re ".*  72      0000" { set x [expr $x+1]; exp_continue; }
 180         -re ".*  73 132a 6A109ABC" { set x [expr $x+1]; exp_continue; }
 181         -re ".*  73      5CF00000" { set x [expr $x+1]; exp_continue; }
 182         -re ".*  74 1332 6A301234" { set x [expr $x+1]; exp_continue; }
 183         -re ".*  74      56785CF0" { set x [expr $x+1]; exp_continue; }
 184         -re ".*  74      0000" { set x [expr $x+1]; exp_continue; }
 185         -re ".*  75              " {
 186             if [expr $x == 9] then {
 187                 pass "$testname: bsr/bs #0x7, ..."
 188             } else {
 189                 fail "$testname: bsr/bs #0x7, ... ($x)"
 190             }
 191         }
 192         default { fail "$testname: bsr/bs #0x7, ... ($x)" }
 193     }
 194
 195     set x 0
 196     expect {
 197         -re ".*  76 133c 5925" { set x [expr $x+1]; exp_continue; }
 198         -re ".*  77 133e 5926" { set x [expr $x+1]; exp_continue; }
 199         -re ".*  78 1340 5927" { set x [expr $x+1]; exp_continue; }
 200         -re ".*  79              " {
 201             if [expr $x == 3] then {
 202                 pass "$testname: bra ..."
 203             } else {
 204                 fail "$testname: bra ... ($x)"
 205             }
 206         }
 207         default { fail "$testname: bra ... ($x)" }
 208     }
 209
 210     set x 0
 211     expect {
 212         -re ".*  80 1342 5500" { set x [expr $x+1]; exp_continue; }
 213         -re ".*  81 1344 5C000000" { set x [expr $x+1]; exp_continue; }
 214         -re ".*  82 1348 5D25" { set x [expr $x+1]; exp_continue; }
 215         -re ".*  83 134a 5D26" { set x [expr $x+1]; exp_continue; }
 216         -re ".*  84 134c 5D27" { set x [expr $x+1]; exp_continue; }
 217         -re ".*  85              " {
 218             if [expr $x == 5] then {
 219                 pass "$testname: bsr ..."
 220             } else {
 221                 fail "$testname: bsr ... ($x)"
 222             }
 223         }
 224         default { fail "$testname: bsr ... ($x)" }
 225     }
 226
 227     set x 0
 228     expect {
 229         -re ".*  86 134e 5920" { set x [expr $x+1]; exp_continue; }
 230         -re ".*  87 1350 5A000000" { set x [expr $x+1]; exp_continue; }
 231         -re ".*  88 1354 59080000" { set x [expr $x+1]; exp_continue; }
 232         -re ".*  88      0000" { set x [expr $x+1]; exp_continue; }
 233         -re ".*  89 135a 5B00" { set x [expr $x+1]; exp_continue; }
 234         -re ".*  90 135c 5980" { set x [expr $x+1]; exp_continue; }
 235         -re ".*  91              " {
 236             if [expr $x == 6] then {
 237                 pass "$testname: jmp ..."
 238             } else {
 239                 fail "$testname: jmp ... ($x)"
 240             }
 241         }
 242         default { fail "$testname: jmp ... ($x)" }
 243     }
 244
 245     set x 0
 246     expect {
 247         -re ".*  92 135e 5D20" { set x [expr $x+1]; exp_continue; }
 248         -re ".*  93 1360 5E000000" { set x [expr $x+1]; exp_continue; }
 249         -re ".*  94 1364 5D080000" { set x [expr $x+1]; exp_continue; }
 250         -re ".*  94      0000" { set x [expr $x+1]; exp_continue; }
 251         -re ".*  95 136a 5F00" { set x [expr $x+1]; exp_continue; }
 252         -re ".*  96 136c 5D00" { set x [expr $x+1]; exp_continue; }
 253         -re ".*  97              " {
 254             if [expr $x == 6] then {
 255                 pass "$testname: jsr ..."
 256             } else {
 257                 fail "$testname: jsr ... ($x)"
 258             }
 259         }
 260         default { fail "$testname: jsr ... ($x)" }
 261     }
 262
 263     set x 0
 264     expect {
 265         -re ".*  98 136e 5470" { set x [expr $x+1]; exp_continue; }
 266         -re ".*  99 1370 5403" { set x [expr $x+1]; exp_continue; }
 267         -re ".* 100 1372 5412" { set x [expr $x+1]; exp_continue; }
 268         -re ".* 101 1374 5424" { set x [expr $x+1]; exp_continue; }
 269         -re ".* 102 1376 5436" { set x [expr $x+1]; exp_continue; }
 270         -re ".* 103              " {
 271             if [expr $x == 5] then {
 272                 pass "$testname: rts\[/l\]"
 273             } else {
 274                 fail "$testname: rts\[/l\] ($x)"
 275             }
 276         }
 277         default { fail "$testname: rts\[/l\] ($x)" }
 278     }
 279
 280     set x 0
 281     expect {
 282         -re ".* 104 1378 5730" { set x [expr $x+1]; exp_continue; }
 283         -re ".* 105              " {
 284             if [expr $x == 1] then {
 285                 pass "$testname: trapa #0x3"
 286             } else {
 287                 fail "$testname: trapa #0x3 ($x)"
 288             }
 289         }
 290         default { fail "$testname: trapa #0x3 ($x)" }
 291     }
 292
 293     set x 0
 294     expect {
 295         -re ".* 106 137a 5670" { set x [expr $x+1]; exp_continue; }
 296         -re ".* 107 137c 5603" { set x [expr $x+1]; exp_continue; }
 297         -re ".* 108 137e 5612" { set x [expr $x+1]; exp_continue; }
 298         -re ".* 109 1380 5624" { set x [expr $x+1]; exp_continue; }
 299         -re ".* 110 1382 5636" { set x [expr $x+1]; exp_continue; }
 300         -re ".* 111              " {
 301             if [expr $x == 5] then {
 302                 pass "$testname: rte\[/l\]"
 303             } else {
 304                 fail "$testname: rte\[/l\] ($x)"
 305             }
 306         }
 307         default { fail "$testname: rte\[/l\] ($x)" }
 308     }
 309
 310     set x 0
 311     expect {
 312         -re ".* 112 1384 0712" { set x [expr $x+1]; exp_continue; }
 313         -re ".* 113 1386 0303" { set x [expr $x+1]; exp_continue; }
 314         -re ".* 114 1388 01406930" { set x [expr $x+1]; exp_continue; }
 315         -re ".* 115 138c 01406D30" { set x [expr $x+1]; exp_continue; }
 316         -re ".* 116 1390 01406F30" { set x [expr $x+1]; exp_continue; }
 317         -re ".* 116      1234" { set x [expr $x+1]; exp_continue; }
 318         -re ".* 117 1396 01407830" { set x [expr $x+1]; exp_continue; }
 319         -re ".* 117      6B201234" { set x [expr $x+1]; exp_continue; }
 320         -re ".* 117      5678" { set x [expr $x+1]; exp_continue; }
 321         -re ".* 118 13a0 01406B00" { set x [expr $x+1]; exp_continue; }
 322         -re ".* 118      1234" { set x [expr $x+1]; exp_continue; }
 323         -re ".* 119 13a6 01406B20" { set x [expr $x+1]; exp_continue; }
 324         -re ".* 119      12345678" { set x [expr $x+1]; exp_continue; }
 325         -re ".* 120              " {
 326             if [expr $x == 13] then {
 327                 pass "$testname: ldc.w ..., ccr"
 328             } else {
 329                 fail "$testname: ldc.w ..., ccr ($x)"
 330             }
 331         }
 332         default { fail "$testname: ldc.w ..., ccr ($x)" }
 333     }
 334
 335     set x 0
 336     expect {
 337         -re ".* 121 13ae 01410712" { set x [expr $x+1]; exp_continue; }
 338         -re ".* 122 13b2 0313" { set x [expr $x+1]; exp_continue; }
 339         -re ".* 123 13b4 01416930" { set x [expr $x+1]; exp_continue; }
 340         -re ".* 124 13b8 01416D30" { set x [expr $x+1]; exp_continue; }
 341         -re ".* 125 13bc 01416F30" { set x [expr $x+1]; exp_continue; }
 342         -re ".* 125      1234" { set x [expr $x+1]; exp_continue; }
 343         -re ".* 126 13c2 01417830" { set x [expr $x+1]; exp_continue; }
 344         -re ".* 126      6B201234" { set x [expr $x+1]; exp_continue; }
 345         -re ".* 126      5678" { set x [expr $x+1]; exp_continue; }
 346         -re ".* 127 13cc 01416B00" { set x [expr $x+1]; exp_continue; }
 347         -re ".* 127      1234" { set x [expr $x+1]; exp_continue; }
 348         -re ".* 128 13d2 01416B20" { set x [expr $x+1]; exp_continue; }
 349         -re ".* 128      12345678" { set x [expr $x+1]; exp_continue; }
 350         -re ".* 129              " {
 351             if [expr $x == 13] then {
 352                 pass "$testname: ldc.w ..., exr"
 353             } else {
 354                 fail "$testname: ldc.w ..., exr ($x)"
 355             }
 356         }
 357         default { fail "$testname: ldc.w ..., exr ($x)" }
 358     }
 359
 360     set x 0
 361     expect {
 362         -re ".* 130 13da 0201" { set x [expr $x+1]; exp_continue; }
 363         -re ".* 131 13dc 01406990" { set x [expr $x+1]; exp_continue; }
 364         -re ".* 132 13e0 01406D90" { set x [expr $x+1]; exp_continue; }
 365         -re ".* 133 13e4 01406F90" { set x [expr $x+1]; exp_continue; }
 366         -re ".* 133      1234" { set x [expr $x+1]; exp_continue; }
 367         -re ".* 134 13ea 01407810" { set x [expr $x+1]; exp_continue; }
 368         -re ".* 134      6BA01234" { set x [expr $x+1]; exp_continue; }
 369         -re ".* 134      5678" { set x [expr $x+1]; exp_continue; }
 370         -re ".* 135 13f4 01406B80" { set x [expr $x+1]; exp_continue; }
 371         -re ".* 135      1234" { set x [expr $x+1]; exp_continue; }
 372         -re ".* 136 13fa 01406BA0" { set x [expr $x+1]; exp_continue; }
 373         -re ".* 136      12345678" { set x [expr $x+1]; exp_continue; }
 374         -re ".* 137              " {
 375             if [expr $x == 12] then {
 376                 pass "$testname: stc.w ccr, ..."
 377             } else {
 378                 fail "$testname: stc.w ccr, ... ($x)"
 379             }
 380         }
 381         default { fail "$testname: stc.w ccr, ... ($x)" }
 382     }
 383
 384     set x 0
 385     expect {
 386         -re ".* 138 1402 0211" { set x [expr $x+1]; exp_continue; }
 387         -re ".* 139 1404 01416990" { set x [expr $x+1]; exp_continue; }
 388         -re ".* 140 1408 01416D90" { set x [expr $x+1]; exp_continue; }
 389         -re ".* 141 140c 01416F90" { set x [expr $x+1]; exp_continue; }
 390         -re ".* 141      1234" { set x [expr $x+1]; exp_continue; }
 391         -re ".* 142 1412 01417810" { set x [expr $x+1]; exp_continue; }
 392         -re ".* 142      6BA01234" { set x [expr $x+1]; exp_continue; }
 393         -re ".* 142      5678" { set x [expr $x+1]; exp_continue; }
 394         -re ".* 143 141c 01416B80" { set x [expr $x+1]; exp_continue; }
 395         -re ".* 143      1234" { set x [expr $x+1]; exp_continue; }
 396         -re ".* 144 1422 01416BA0" { set x [expr $x+1]; exp_continue; }
 397         -re ".* 144      12345678" { set x [expr $x+1]; exp_continue; }
 398         -re ".* 145              " {
 399             if [expr $x == 12] then {
 400                 pass "$testname: stc.w exr, ..."
 401             } else {
 402                 fail "$testname: stc.w exr, ... ($x)"
 403             }
 404         }
 405         default { fail "$testname: stc.w exr, ... ($x)" }
 406     }
 407
 408     set x 0
 409     expect {
 410         -re ".* 146 142a 0412" { set x [expr $x+1]; exp_continue; }
 411         -re ".* 147 142c 01410412" { set x [expr $x+1]; exp_continue; }
 412         -re ".* 148              " {
 413             if [expr $x == 2] then {
 414                 pass "$testname: orc.b #0x12:8, ..."
 415             } else {
 416                 fail "$testname: orc.b #0x12:8, ... ($x)"
 417             }
 418         }
 419         default { fail "$testname: orc.b #0x12:8, ... ($x)" }
 420     }
 421
 422     set x 0
 423     expect {
 424         -re ".* 149 1430 0512" { set x [expr $x+1]; exp_continue; }
 425         -re ".* 150 1432 01410512" { set x [expr $x+1]; exp_continue; }
 426         -re ".* 151              " {
 427             if [expr $x == 2] then {
 428                 pass "$testname: xorc.b #0x12:8, ..."
 429             } else {
 430                 fail "$testname: xorc.b #0x12:8, ... ($x)"
 431             }
 432         }
 433         default { fail "$testname: xorc.b #0x12:8, ... ($x)" }
 434     }
 435
 436     set x 0
 437     expect {
 438         -re ".* 152 1436 0612" { set x [expr $x+1]; exp_continue; }
 439         -re ".* 153 1438 01410612" { set x [expr $x+1]; exp_continue; }
 440         -re ".* 154              " {
 441             if [expr $x == 2] then {
 442                 pass "$testname: andc.b #0x12:8, ..."
 443             } else {
 444                 fail "$testname: andc.b #0x12:8, ... ($x)"
 445             }
 446         }
 447         default { fail "$testname: andc.b #0x12:8, ... ($x)" }
 448     }
 449
 450     set x 0
 451     expect {
 452         -re ".* 155 143c 0180" { set x [expr $x+1]; exp_continue; }
 453         -re ".* 156              " {
 454             if [expr $x == 1] then {
 455                 pass "$testname: sleep"
 456             } else {
 457                 fail "$testname: sleep ($x)"
 458             }
 459         }
 460         default { fail "$testname: sleep ($x)" }
 461     }
 462
 463     set x 0
 464     expect {
 465         -re ".* 157 143e 0000" { set x [expr $x+1]; exp_continue; }
 466         -re ".* 158              " {
 467             if [expr $x == 1] then {
 468                 pass "$testname: nop"
 469             } else {
 470                 fail "$testname: nop ($x)"
 471             }
 472         }
 473         default { fail "$testname: nop ($x)" }
 474     }
 475
 476     # This was intended to do any cleanup necessary.
 477     # It kinda looks like it isn't needed, but just
 478     # in case, please keep it in for now.
 479
 480     gas_finish
 481
 482 }
 483
 484 if [istarget h8300*-*-elf] then {
 485     # Test advanced h8300sx instructions.
 486     do_t13_otr_test
 487 }
 488