* gas/hppa/basic/basic.exp: Add new tests shift2.s,
[external/binutils.git] / gas / testsuite / gas / hppa / basic / shift2.s
1         .SPACE $PRIVATE$
2         .SUBSPA $DATA$,QUAD=1,ALIGN=8,ACCESS=31
3         .SUBSPA $BSS$,QUAD=1,ALIGN=8,ACCESS=31,ZERO,SORT=82
4         .SPACE $TEXT$
5         .SUBSPA $LIT$,QUAD=0,ALIGN=8,ACCESS=44
6         .SUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY
7
8         .SPACE $TEXT$
9         .SUBSPA $CODE$
10
11         .align 4
12 ; PA 2.0 format shift right instruction tests.  
13 ;
14 ; We could/should test some of the corner cases for register and 
15 ; immediate fields.  We should also check the assorted field
16 ; selectors to make sure they're handled correctly.
17         shrpw %r4,%r5,%sar,%r6
18         shrpw,= %r4,%r5,%sar,%r6
19         shrpw,< %r4,%r5,%sar,%r6
20         shrpw,od %r4,%r5,%sar,%r6
21         shrpw,tr %r4,%r5,%cr11,%r6
22         shrpw,<> %r4,%r5,%cr11,%r6
23         shrpw,>= %r4,%r5,%cr11,%r6
24         shrpw,ev %r4,%r5,%cr11,%r6
25
26         shrpw %r4,%r5,5,%r6
27         shrpw,= %r4,%r5,5,%r6
28         shrpw,< %r4,%r5,5,%r6
29         shrpw,od %r4,%r5,5,%r6
30         shrpw,tr %r4,%r5,5,%r6
31         shrpw,<> %r4,%r5,5,%r6
32         shrpw,>= %r4,%r5,5,%r6
33         shrpw,ev %r4,%r5,5,%r6