[Bug gdb/30414] Random failure in gdb.fortran/lbound-ubound.exp

["vries at gcc dot gnu.org" <sourceware-bugzilla@sourceware.org>]

https://sourceware.org/bugzilla/show_bug.cgi?id=30414

Tom de Vries <vries at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |vries at gcc dot gnu.org

--- Comment #1 from Tom de Vries <vries at gcc dot gnu.org> ---
(In reply to Simon Marchi from comment #0)
> I haven't figured out how the test can get out of the gdb_test_multiple
> without a value for ubound.

I think this is what happens when hitting this clause:
...
            -re ".*LBOUND = (\[^\r\n\]+)\r\n" {
                set expected_lbound $expect_out(1,string)
                if {!$found_prompt} {
                    exp_continue
                }
            }
...
when $found_prompt == 1.

I wonder whether this'll fix it:
...
diff --git a/gdb/testsuite/gdb.fortran/lbound-ubound.exp
b/gdb/testsuite/gdb.fortran/lbound-ubound.exp
index fced41f9fe3..31a3be11c3d 100644
--- a/gdb/testsuite/gdb.fortran/lbound-ubound.exp
+++ b/gdb/testsuite/gdb.fortran/lbound-ubound.exp
@@ -59,9 +59,7 @@ while { $test_count < 500 } {

            -re ".*LBOUND = (\[^\r\n\]+)\r\n" {
                set expected_lbound $expect_out(1,string)
-               if {!$found_prompt} {
-                   exp_continue
-               }
+               exp_continue
            }
            -re ".*UBOUND = (\[^\r\n\]+)\r\n" {
                set expected_ubound $expect_out(1,string)
...

-- 
You are receiving this mail because:
You are on the CC list for the bug.