diff options
author | Tom de Vries <tdevries@suse.de> | 2024-06-20 15:37:48 +0200 |
---|---|---|
committer | Tom de Vries <tdevries@suse.de> | 2024-06-20 15:37:48 +0200 |
commit | 6c58dad0ef53ff7d780c301464e77bdea038c7ec (patch) | |
tree | aebf91d3c0636ae56896d7044adb38fb2494bb75 /gdb/testsuite/gdb.fortran/huge.exp | |
parent | 56f39033698b22a89571b345e5133b486822df1d (diff) | |
download | fsf-binutils-gdb-6c58dad0ef53ff7d780c301464e77bdea038c7ec.zip fsf-binutils-gdb-6c58dad0ef53ff7d780c301464e77bdea038c7ec.tar.gz fsf-binutils-gdb-6c58dad0ef53ff7d780c301464e77bdea038c7ec.tar.bz2 |
[gdb/testsuite] Fix duplicates in gdb.fortran/huge.exp
With test-case gdb.fortran/huge.exp, on a system without fortran compiler, I
ran into a number of duplicates:
...
Running /home/vries/gdb/src/gdb/testsuite/gdb.fortran/huge.exp ...
gdb compile failed, default_target_compile: Can't find gfortran.
UNTESTED: gdb.fortran/huge.exp: huge.exp
...
gdb compile failed, default_target_compile: Can't find gfortran.
UNTESTED: gdb.fortran/huge.exp: huge.exp
DUPLICATE: gdb.fortran/huge.exp: huge.exp
UNSUPPORTED: gdb.fortran/huge.exp: require failed: expr $compilation_succeeded
...
Fix this by wrapping the compile in a with_test_prefix, getting us instead:
...
gdb compile failed, default_target_compile: Can't find gfortran.
UNTESTED: gdb.fortran/huge.exp: CRASH_GDB=2097152: huge.exp
...
gdb compile failed, default_target_compile: Can't find gfortran.
UNTESTED: gdb.fortran/huge.exp: CRASH_GDB=16: huge.exp
UNSUPPORTED: gdb.fortran/huge.exp: require failed: expr $compilation_succeeded
...
Tested on x86_64-linux.
Diffstat (limited to 'gdb/testsuite/gdb.fortran/huge.exp')
-rw-r--r-- | gdb/testsuite/gdb.fortran/huge.exp | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gdb/testsuite/gdb.fortran/huge.exp b/gdb/testsuite/gdb.fortran/huge.exp index 8d2158f..78c1d52 100644 --- a/gdb/testsuite/gdb.fortran/huge.exp +++ b/gdb/testsuite/gdb.fortran/huge.exp @@ -37,8 +37,10 @@ lappend opts f90 set compilation_succeeded 0 for { set size [expr $max] } { $size >= $min } { set size [expr $size / 2] } { set try_opts [concat $opts [list additional_flags=-DCRASH_GDB=$size]] - if { [build_executable $testfile.exp $testfile $srcfile $try_opts] == -1 } { - continue + with_test_prefix CRASH_GDB=$size { + if { [build_executable $testfile.exp $testfile $srcfile $try_opts] == -1 } { + continue + } } set compilation_succeeded 1 |