gdb/fortran: Allow Flang MAIN_ in Fortran testing

[thirdparty/binutils-gdb.git] / gdb / testsuite / gdb.fortran / nested-funcs.exp

diff --git a/gdb/testsuite/gdb.fortran/nested-funcs.exp b/gdb/testsuite/gdb.fortran/nested-funcs.exp
index e4fc02ffa550527c5ea1bb2e2fc55c129c46e306..9e0073d210e2e4b16435c2dc82ed8d8a84d5e53f 100755 (executable)
--- a/gdb/testsuite/gdb.fortran/nested-funcs.exp
+++ b/gdb/testsuite/gdb.fortran/nested-funcs.exp
@@ -25,8 +25,8 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile {debug f90}]} {
     return -1\r
 }\r
 \r
-if ![runto MAIN__] then {\r
-    perror "couldn't run to breakpoint MAIN__"\r
+if ![fortran_runto_main] then {\r
+    perror "couldn't run to main"\r
     continue\r
 }\r
 \r