Index: gdb/testsuite/gdb.base/break-inline.exp |
diff --git a/gdb/testsuite/gdb.base/fortran-sym-case.exp b/gdb/testsuite/gdb.base/break-inline.exp |
similarity index 67% |
copy from gdb/testsuite/gdb.base/fortran-sym-case.exp |
copy to gdb/testsuite/gdb.base/break-inline.exp |
index eeabaa8e6db900582555bccd467b993507f57b7d..34c47c67890833d3c5000e8dc30396d11e2031ba 100644 |
--- a/gdb/testsuite/gdb.base/fortran-sym-case.exp |
+++ b/gdb/testsuite/gdb.base/break-inline.exp |
@@ -1,4 +1,4 @@ |
-# Copyright (C) 2011-2012 Free Software Foundation, Inc. |
+# Copyright (C) 2012 Free Software Foundation, Inc. |
# This program is free software; you can redistribute it and/or modify |
# it under the terms of the GNU General Public License as published by |
@@ -13,15 +13,15 @@ |
# You should have received a copy of the GNU General Public License |
# along with this program. If not, see <http://www.gnu.org/licenses/>. |
-set testfile fortran-sym-case |
-if { [prepare_for_testing ${testfile}.exp ${testfile}] } { |
- return -1 |
-} |
-if ![runto_main] { |
+if { [prepare_for_testing break-inline.exp "break-inline" {} {debug nowarnings optimize=-O2}] } { |
return -1 |
} |
-gdb_test "set language fortran" {Warning: the current language does not match this frame\.} |
+gdb_breakpoint "main" "temporary" |
+gdb_run_cmd |
+gdb_test "" "Temporary breakpoint.*foo\\(\\).*" |
+ |
+# Now test 'break' with no arguments. |
+gdb_test "break" "Breakpoint.*" |
-gdb_test "frame" ", aRGv=.*" |