import gdb-2000-02-04 snapshot

[deliverable/binutils-gdb.git] / gdb / testsuite / gdb.base / ptype.exp

diff --git a/gdb/testsuite/gdb.base/ptype.exp b/gdb/testsuite/gdb.base/ptype.exp
index f5b4503424520a187092ce38b5089cc1524002d2..82bf7df230804b7d2615540f52d71740230fc6be 100644 (file)
--- a/gdb/testsuite/gdb.base/ptype.exp
+++ b/gdb/testsuite/gdb.base/ptype.exp
@@ -132,6 +132,9 @@ if {!$gcc_compiled && !$hp_aCC_compiler} {
     setup_xfail "rs6000-*-*" "i*86-*-sysv4*"
     setup_xfail "hppa*-*-*" CLLbs14773
 }
+
+# For get_debug_format to do its job, we need to have a current source file.
+gdb_test "list main" ""
 get_debug_format
 setup_xfail_format "DWARF 1"
 gdb_test "whatis v_boolean" "type = (enum |)boolean" \