summaryrefslogtreecommitdiff
path: root/gas/testsuite/gas/s390/s390.exp
blob: 3d9a4a135c8095f75e6c33ec9fda44934d801a14 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
#
# s390/s390x tests
#
proc run_list_test { name opts } {
    global srcdir subdir
    set testname "s390 $name"
    set file $srcdir/$subdir/$name
    gas_run ${name}.s $opts ">&dump.out"
    if { [regexp_diff "dump.out" "${file}.l"] } then {
	fail $testname
	verbose "output is [file_contents "dump.out"]" 2
	exit
	return
    }
    pass $testname
}

if [expr [istarget "s390-*-*"] ||  [istarget "s390x-*-*"]]  then {

    run_dump_test "esa-g5" "{as -m31}"
    run_dump_test "esa-z900" "{as -m31} {as -march=z900}"
    run_dump_test "esa-z990" "{as -m31} {as -march=z990}"
    run_dump_test "esa-z9-109" "{as -m31} {as -march=z9-109}"
    run_dump_test "esa-reloc" "{as -m31}"
    run_dump_test "esa-operands" "{as -m31}"

#    # PIC is only supported on ELF targets.
#    if { ([istarget "*-*-elf*"] || [istarget "*-*-linux*"] ) } then {
#	run_dump_test "s390pic"
#    }

    run_dump_test "zarch-z900" "{as -m64}"
    run_dump_test "zarch-z990" "{as -m64} {as -march=z990}"
    run_dump_test "zarch-z9-109" "{as -m64} {as -march=z9-109}"
    run_dump_test "zarch-reloc" "{as -m64}"
    run_dump_test "zarch-operands" "{as -m64} {as -march=z9-109}"
}