GDB 7.6.50

gdb/testsuite/gdb.base/prologue-include.exp

Index: gdb/testsuite/gdb.base/prologue-include.exp
diff --git a/gdb/testsuite/gdb.base/fortran-sym-case.exp b/gdb/testsuite/gdb.base/prologue-include.exp
similarity index 74%
copy from gdb/testsuite/gdb.base/fortran-sym-case.exp
copy to gdb/testsuite/gdb.base/prologue-include.exp
index eeabaa8e6db900582555bccd467b993507f57b7d..ed378b899b69276310557989e01b02ad24f836e9 100644
--- a/gdb/testsuite/gdb.base/fortran-sym-case.exp
+++ b/gdb/testsuite/gdb.base/prologue-include.exp
@@ -1,4 +1,4 @@
-# Copyright (C) 2011-2012 Free Software Foundation, Inc.
+# Copyright (C) 2013 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,14 @@
 # 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
-}
+standard_testfile
 
-if ![runto_main] {
+if { [prepare_for_testing ${testfile}.exp ${testfile}] } {
     return -1
 }
 
-gdb_test "set language fortran" {Warning: the current language does not match this frame\.}
+set bp_main [gdb_get_line_number "break main" ${testfile}.h]
 
-gdb_test "frame" ", aRGv=.*"
+gdb_test "break main" \
+    "Breakpoint.*at.* file .*$testfile.h, line $bp_main\\." \
+    "breakpoint main"