[Bug testsuite/26965] New: FAIL: gdb.fortran/vla-value.exp: print $myvar set to vla1 (timeout)

[Bug testsuite/26965] New: FAIL: gdb.fortran/vla-value.exp: print $myvar set to vla1 (timeout)

[vries at gcc dot gnu.org]

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

            Bug ID: 26965
           Summary: FAIL: gdb.fortran/vla-value.exp: print $myvar set to
                    vla1 (timeout)
           Product: gdb
           Version: HEAD
            Status: NEW
          Severity: normal
          Priority: P2
         Component: testsuite
          Assignee: unassigned at sourceware dot org
          Reporter: vries at gcc dot gnu.org
  Target Milestone: ---

On SLE-11, I see:
...
(gdb) PASS: gdb.fortran/vla-value.exp: set $myvar = vla1
print $myvar^M
$1 = (((1311, 1311, 1311, 1311, 1311, 1311, 1311, 1311, 1311, 1311) (1311,
1311, 1311, 1311, 1311, 1311, 1311, 1311, 1311, 1311) (1311, 1311, 1311, 1311,
1311, 1311, 1311, 1311, 1311, 1311) (1311, 1311, 1311, 1311, 1311, 1311, 1311,
1311, 1311, 1311) (1311, 1311, 1311, 1311, 1311, 1311, 1311, 1311, 1311, 1311)
(1311, 1311, 1311, 1311, 1311, 1311, 1311, 1311, 1311, 1311) (1311, 1311, 1311,
1311, 1311, 1311, 1311, 1311, 1311, 1311) (1311, 1311, 1311, 1311, 1311, 1311,
1311, 1311, 1311, 1311) (1311, 1311, 1311, 1311, 1311, 1311, 1311, 1311, 1311,
1311) (1311, 1311, 1311, 1311, 1311, 1311, 1311, 1311, 1311, 1311)) ((1311,
1311, 1311, 1311, 1311, 1311, 1311, 1311, 1311, 1311) (1311, 1311, 1311, 1311,
1311, 1311, 1311, 1311, 1311, 1311) (1311, 1311, 1311, 1311, 1311, 1311, 1311,
1311, 1311, 1311) (1311, 1311, 1311, 1311, 1311, 1311, 1311, 1311, 1311, 1311)
(1311, 1311, 1311, 1311, 1311, 1311, 1311, 1311, 1311, 1311) (1311, 1311, 1311,
1311, 1311, 1311, 1311, 1311, 1311, 1311) (1311, 1311, 1311, 1311, 1311, 1311,
13FAIL: gdb.fortran/vla-value.exp: print $myvar set to vla1 (timeout)
11, 1311, 1311, 1311) (1311, 1311, 1311, 1311, 1311, 1311, 1311, 1311, 1311,
1311) (1311, 1311, 1311, 1311, 1311, 1311, 1311, 1311, 1311, 1311) (1311, 1311,
1311, 1311, 1311, 1311, 1311, 1311, 1311, 1311)) ...)^M
(gdb) 
...

When running on commandline, the print seems fast enough, so this seems to be
some expect issue.

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

[Bug testsuite/26965] FAIL: gdb.fortran/vla-value.exp: print $myvar set to vla1 (timeout)

[vries at gcc dot gnu.org]

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

--- Comment #1 from Tom de Vries <vries at gcc dot gnu.org> ---
Tentative patch:
...
diff --git a/gdb/testsuite/gdb.fortran/vla-value.exp
b/gdb/testsuite/gdb.fortran/vla-value.exp
index be0a2d4..8f1698b 100644
--- a/gdb/testsuite/gdb.fortran/vla-value.exp
+++ b/gdb/testsuite/gdb.fortran/vla-value.exp
@@ -145,9 +145,29 @@ with_timeout_factor 15 {
 }

 gdb_test_no_output "set \$myvar = vla1" "set \$myvar = vla1"
-gdb_test "print \$myvar" \
-  " = \\( *\\( *\\( *1311, *1311, *1311,\[()1311, .\]*\\)" \
-  "print \$myvar set to vla1"
+
+set status 0
+gdb_test_multiple "print \$myvar" "print \$myvar set to vla1" {
+    -re "\\(\\(\\(1311, 1311, 1311, 1311, 1311, 1311, 1311, 1311, 1311,
1311\\)" {
+       if { $status == 0 } {
+           incr status
+       }
+       exp_continue
+    }
+    -re " \\(1311, 1311, 1311, 1311, 1311, 1311, 1311, 1311, 1311, 1311\\)\\)"
{
+       if { $status == 1 || $status == 2} {
+           incr status
+       }
+       exp_continue
+    }
+    -re -wrap "\\.\\.\\.\\)" {
+       if { $status == 3} {
+           pass $gdb_test_name
+       } else {
+           fail $gdb_test_name
+       }
+    }
+}

 gdb_test "next" "\\d+.*vla1\\(1, 3, 8\\) = 1001" "next (2)"
 gdb_test "print \$myvar(3,6,9)" " = 1311"
...

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