Index: gdb/testsuite/gdb.dwarf2/dw2-ifort-parameter.exp |
diff --git a/gdb/testsuite/gdb.dwarf2/dw2-ifort-parameter.exp b/gdb/testsuite/gdb.dwarf2/dw2-ifort-parameter.exp |
index 000b7f3e3aaa580a1cf27791aa50c6538fc5e79a..d0c1dff23d6b06d81f118b6a8be38e6edebe9e49 100644 |
--- a/gdb/testsuite/gdb.dwarf2/dw2-ifort-parameter.exp |
+++ b/gdb/testsuite/gdb.dwarf2/dw2-ifort-parameter.exp |
@@ -15,21 +15,17 @@ |
# Verify DW_AT_variable_parameter does not modify the data structures meaning |
# for GDB, as being used by iFort. |
+load_lib dwarf.exp |
# This test can only be run on targets which support DWARF-2 and use gas. |
-# For now pick a sampling of likely targets. |
-if {![istarget *-*-linux*] |
- && ![istarget *-*-gnu*] |
- && ![istarget *-*-elf*] |
- && ![istarget *-*-openbsd*] |
- && ![istarget arm-*-eabi*] |
- && ![istarget powerpc-*-eabi*]} { |
+if {![dwarf2_support]} { |
return 0 |
} |
-set testfile "dw2-ifort-parameter" |
+standard_testfile .c dw2-ifort-parameter-debug.S |
-if { [prepare_for_testing ${testfile}.exp ${testfile} [list ${testfile}.c ${testfile}-debug.S] {nodebug}] } { |
+if { [prepare_for_testing ${testfile}.exp ${testfile} \ |
+ [list $srcfile $srcfile2] {nodebug}] } { |
return -1 |
} |