| 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=.*"
|
|
|