* gas/vax/elf-rel.[ds]: New test.

* gas/vax/quad.exp: Move contents to...
* gas/vax/vax.exp: ...here.  New file.

4 files changed, 87 insertions, 2 deletions

diff --git a/gas/testsuite/ChangeLog b/gas/testsuite/ChangeLog
index dc976ab..11566be 100644
--- a/gas/testsuite/ChangeLog
+++ b/gas/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2002-09-27  Jason Thorpe  <thorpej@wasabisystems.com>
+
+	* gas/vax/elf-rel.[ds]: New test.
+	* gas/vax/quad.exp: Move contents to...
+	* gas/vax/vax.exp: ...here.  New file.
+
 2002-09-27  H.J. Lu <hjl@gnu.org>
 
 	* gas/mips/mips-jalx.s: Add ".p2align 4".
diff --git a/gas/testsuite/gas/vax/elf-rel.d b/gas/testsuite/gas/vax/elf-rel.d
new file mode 100644
index 0000000..88e8f5c
--- /dev/null
+++ b/gas/testsuite/gas/vax/elf-rel.d
@@ -0,0 +1,41 @@
+#objdump: -sr
+#name: VAX ELF relocations
+
+# Test VAX ELF relocations
+
+.*:     file format elf32-vax
+
+RELOCATION RECORDS FOR \[\.text\]:
+OFFSET [ ]+ TYPE              VALUE 
+00000015 R_VAX_PLT32       text_vax_plt32
+00000028 R_VAX_GOT32       text_vax_got32
+0000003b R_VAX_GOT32       text_vax_got32\+0x00000020
+00000005 R_VAX_PC8         text_vax_pc8
+00000009 R_VAX_PC16        text_vax_pc16
+0000000e R_VAX_PC32        text_vax_pc32
+0000001b R_VAX_PC8         text_vax_pc8
+0000001e R_VAX_PC16        text_vax_pc16
+00000022 R_VAX_PC32        text_vax_pc32
+0000002e R_VAX_PC8         text_vax_pc8\+0x00000008
+00000031 R_VAX_PC16        text_vax_pc16\+0x00000010
+00000035 R_VAX_PC32        text_vax_pc32\+0x00000020
+
+
+RELOCATION RECORDS FOR \[\.data\]:
+OFFSET [ ]+ TYPE              VALUE 
+00000000 R_VAX_8           data_vax_8
+00000001 R_VAX_16          data_vax_16
+00000003 R_VAX_32          data_vax_32
+00000007 R_VAX_8           data_vax_8\+0x00000008
+00000008 R_VAX_16          data_vax_16\+0x00000010
+0000000a R_VAX_32          data_vax_32\+0x00000020
+
+
+Contents of section \.text:
+ 0000 0000fb00 affafb00 cff5fffb 00efeeff  .*
+ 0010 fffffb00 ef000000 00d5afe4 d5cfe0ff  .*
+ 0020 d5efdaff ffffd5ef 00000000 d5afd9d5  .*
+ 0030 cfddffd5 efe7ffff ffd5ef00 00000004  .*
+Contents of section \.data:
+ 0000 00000000 00000000 00000000 0000      .*
+#pass
diff --git a/gas/testsuite/gas/vax/elf-rel.s b/gas/testsuite/gas/vax/elf-rel.s
new file mode 100644
index 0000000..69253fe
--- /dev/null
+++ b/gas/testsuite/gas/vax/elf-rel.s
@@ -0,0 +1,30 @@
+	.data
+
+	.byte	data_vax_8
+	.word	data_vax_16
+	.long	data_vax_32
+
+	.byte	data_vax_8+8
+	.word	data_vax_16+16
+	.long	data_vax_32+32
+
+	.text
+	.globl	x
+x:
+	.word	0
+
+	calls	$0, b`text_vax_pc8
+	calls	$0, w`text_vax_pc16
+	calls	$0, l`text_vax_pc32
+	calls	$0, text_vax_plt32
+
+	tstl	b`text_vax_pc8
+	tstl	w`text_vax_pc16
+	tstl	l`text_vax_pc32
+	tstl	text_vax_got32
+
+	tstl	b`text_vax_pc8+8
+	tstl	w`text_vax_pc16+16
+	tstl	l`text_vax_pc32+32
+	tstl	text_vax_got32+32
+	ret
diff --git a/gas/testsuite/gas/vax/quad.exp b/gas/testsuite/gas/vax/vax.exp
index 4cd98b8..061036c 100644
--- a/gas/testsuite/gas/vax/quad.exp
+++ b/gas/testsuite/gas/vax/vax.exp
@@ -1,3 +1,7 @@
+#
+# Some generic VAX tests
+#
+
 proc do_quad {} {
     set testname "quad.s: quadword immediate values"
     set x1 0
@@ -5,7 +9,7 @@ proc do_quad {} {
     set x3 0
     set file "quad.s"
     if [istarget vax-*-*elf*] {
-      set file "quad_elf.s"
+	set file "quad_elf.s"
     }
     gas_start $file "-al"
     while 1 {
@@ -22,6 +26,10 @@ proc do_quad {} {
     if [all_ones $x1 $x2 $x3] then { pass $testname } else { fail $testname }
 }
 
-if [istarget vax-*-*] then {
+if [istarget vax-*-* ] then {
     do_quad
+
+    if [istarget vax-*-*elf*] {
+	run_dump_test "elf-rel"
+    }
 }