Normalize interface for all *-dg-runtest.

gcc/testsuite/
	* lib/g++-dg.exp (g++-dg-runtest): Change interface to match
	dg-runtest's.  Adapt all callers.
	* lib/gcc-dg.exp (gcc-dg-runtest): Likewise.
	* lib/gfortran-dg.exp (gfortran-dg-runtest): Likewise.
	* lib/go-dg.exp (go-dg-runtest): Likewise.
	* lib/obj-c++-dg.exp (obj-c++-dg-runtest): Likewise.
	* lib/objc-dg.exp (objc-dg-runtest): Likewise.
	libffi/
	* testsuite/lib/libffi.exp (libffi-dg-runtest): Change interface
	match to dg-runtest's.

From-SVN: r212278
This commit is contained in:
Thomas Schwinge 2014-07-04 07:28:17 +02:00 committed by Thomas Schwinge
parent 01ffe74dcc
commit a03bd0056c
67 changed files with 135 additions and 120 deletions

View file

@ -1,3 +1,13 @@
2014-07-04 Thomas Schwinge <thomas@codesourcery.com>
* lib/g++-dg.exp (g++-dg-runtest): Change interface to match
dg-runtest's. Adapt all callers.
* lib/gcc-dg.exp (gcc-dg-runtest): Likewise.
* lib/gfortran-dg.exp (gfortran-dg-runtest): Likewise.
* lib/go-dg.exp (go-dg-runtest): Likewise.
* lib/obj-c++-dg.exp (obj-c++-dg-runtest): Likewise.
* lib/objc-dg.exp (objc-dg-runtest): Likewise.
2014-07-03 Jakub Jelinek <jakub@redhat.com>
PR tree-optimization/61682

View file

@ -29,7 +29,7 @@ dg-init
if [asan_init] {
# Main loop.
gcc-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.C $srcdir/c-c++-common/asan/*.c]] ""
gcc-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.C $srcdir/c-c++-common/asan/*.c]] "" ""
}

View file

@ -38,7 +38,7 @@ dg-init
# Main loop.
g++-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.{c,cc,S} ]] \
$DEFAULT_CHARSETCFLAGS
"" $DEFAULT_CHARSETCFLAGS
# All done.
dg-finish

View file

@ -26,12 +26,12 @@ if { ![check_effective_target_cilkplus] } {
dg-init
if [cilkplus_init] {
# Run the tests that are shared with C.
g++-dg-runtest [lsort [glob -nocomplain $srcdir/c-c++-common/cilk-plus/PS/*.c]] ""
g++-dg-runtest [lsort [glob -nocomplain $srcdir/c-c++-common/cilk-plus/PS/*.c]] "" ""
dg-runtest [lsort [glob -nocomplain $srcdir/c-c++-common/cilk-plus/SE/*.c]] "-O3" " "
dg-runtest [lsort [glob -nocomplain $srcdir/c-c++-common/cilk-plus/SE/*.c]] " " " "
dg-runtest [lsort [glob -nocomplain $srcdir/c-c++-common/cilk-plus/SE/*.c]] "-g -O2" " "
# Run the C++ only tests.
g++-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.C]] ""
g++-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.C]] "" ""
dg-runtest [lsort [glob -nocomplain $srcdir/c-c++-common/cilk-plus/AN/*.c]] " -fcilkplus" " "
dg-runtest [lsort [glob -nocomplain $srcdir/c-c++-common/cilk-plus/AN/*.c]] " -O1 -fcilkplus" " "

View file

@ -36,7 +36,7 @@ if { ! [string match "*: target system does not support the * debug format*" \
$comp_output] } {
remove-build-file "trivial.S"
g++-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.C $srcdir/c-c++-common/dwarf2/*.c]] \
$DEFAULT_CFLAGS
"" $DEFAULT_CFLAGS
}
# All done.

View file

@ -50,10 +50,10 @@ dg-init
# Main loop. Run the tests that are specific to C++.
g++-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.\[C]] \
$DEFAULT_CXXFLAGS
"" $DEFAULT_CXXFLAGS
# Run tests that are shared with C testing.
g++-dg-runtest [lsort [glob -nocomplain $srcdir/c-c++-common/dfp/*.c]] \
$DEFAULT_CXXFLAGS
"" $DEFAULT_CXXFLAGS
# All done.
dg-finish

View file

@ -57,14 +57,14 @@ set tests [prune $tests $srcdir/$subdir/ubsan/*]
set tests [prune $tests $srcdir/$subdir/tsan/*]
# Main loop.
g++-dg-runtest $tests $DEFAULT_CXXFLAGS
g++-dg-runtest $tests "" $DEFAULT_CXXFLAGS
# C/C++ common tests.
g++-dg-runtest [lsort [glob -nocomplain $srcdir/c-c++-common/*.\[cSi\]]] \
""
"" ""
g++-dg-runtest [lsort [glob -nocomplain $srcdir/c-c++-common/cpp/*.\[cS\]]] \
""
"" ""
# All done.

View file

@ -39,6 +39,6 @@ if { $files != "" } {
}
# Main loop.
g++-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.C]] ""
g++-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.C]] "" ""
dg-finish

View file

@ -29,7 +29,7 @@ dg-init
# Main loop.
g++-dg-runtest [lsort [concat \
[find $srcdir/$subdir *.C] \
[find $srcdir/c-c++-common/gomp *.c]]] "-fopenmp"
[find $srcdir/c-c++-common/gomp *.c]]] "" "-fopenmp"
# All done.
dg-finish

View file

@ -46,14 +46,14 @@ set block_files [lsort [glob -nocomplain $srcdir/$subdir/block-*.C ] ]
# Tests to be compiled.
set dg-do-what-default compile
g++-dg-runtest $scop_files "-O2 -fgraphite -fdump-tree-graphite-all"
g++-dg-runtest $id_files "-O2 -fgraphite-identity -ffast-math"
g++-dg-runtest $scop_files "" "-O2 -fgraphite -fdump-tree-graphite-all"
g++-dg-runtest $id_files "" "-O2 -fgraphite-identity -ffast-math"
# Tests to be run.
set dg-do-what-default run
g++-dg-runtest $run_id_files "-O2 -fgraphite-identity"
g++-dg-runtest $interchange_files "-O2 -floop-interchange -fno-loop-block -fno-loop-strip-mine -ffast-math -fdump-tree-graphite-all"
g++-dg-runtest $block_files "-O2 -floop-block -fno-loop-strip-mine -fno-loop-interchange -ffast-math -fdump-tree-graphite-all"
g++-dg-runtest $run_id_files "" "-O2 -fgraphite-identity"
g++-dg-runtest $interchange_files "" "-O2 -floop-interchange -fno-loop-block -fno-loop-strip-mine -ffast-math -fdump-tree-graphite-all"
g++-dg-runtest $block_files "" "-O2 -floop-block -fno-loop-strip-mine -fno-loop-interchange -ffast-math -fdump-tree-graphite-all"
# The default action for the rest of the files is 'compile'.
set dg-do-what-default compile
@ -62,7 +62,7 @@ foreach f $id_files {lremove wait_to_run_files $f}
foreach f $run_id_files {lremove wait_to_run_files $f}
foreach f $interchange_files {lremove wait_to_run_files $f}
foreach f $block_files {lremove wait_to_run_files $f}
g++-dg-runtest $wait_to_run_files " -pedantic-errors"
g++-dg-runtest $wait_to_run_files "" "-pedantic-errors"
# Clean up.
set dg-do-what-default ${save-dg-do-what-default}

View file

@ -47,8 +47,8 @@ if {[check_guality "
return 0;
}
"]} {
gcc-dg-runtest [lsort [glob $srcdir/$subdir/*.C]] ""
gcc-dg-runtest [lsort [glob $srcdir/c-c++-common/guality/*.c]] ""
gcc-dg-runtest [lsort [glob $srcdir/$subdir/*.C]] "" ""
gcc-dg-runtest [lsort [glob $srcdir/c-c++-common/guality/*.c]] "" ""
}
if [info exists guality_gdb_name] {

View file

@ -31,8 +31,8 @@ set-torture-options [list \
{ -Os -g } ]
if [gdb-exists] {
gcc-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.C]] ""
gcc-dg-runtest [lsort [glob $srcdir/c-c++-common/simulate-thread/*.c]] ""
gcc-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.C]] "" ""
gcc-dg-runtest [lsort [glob $srcdir/c-c++-common/simulate-thread/*.c]] "" ""
}
torture-finish

View file

@ -29,7 +29,7 @@ if ![info exists DEFAULT_CXXFLAGS] then {
dg-init
# Main loop.
g++-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.C]] $DEFAULT_CXXFLAGS
g++-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.C]] "" $DEFAULT_CXXFLAGS
# All done.
dg-finish

View file

@ -34,10 +34,10 @@ dg-init
# Run the tests that are shared with C.
g++-dg-runtest [lsort [glob -nocomplain $srcdir/c-c++-common/tm/*.c]] \
$DEFAULT_CXXFLAGS
"" $DEFAULT_CXXFLAGS
# Run the C++ only tests.
g++-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.C]] \
$DEFAULT_CXXFLAGS
"" $DEFAULT_CXXFLAGS
# All done.
dg-finish

View file

@ -3,5 +3,5 @@
load_lib g++-dg.exp
dg-init
gcc-dg-runtest [lsort [glob $srcdir/$subdir/*.C $srcdir/c-c++-common/torture/*.c]] ""
gcc-dg-runtest [lsort [glob $srcdir/$subdir/*.C $srcdir/c-c++-common/torture/*.c]] "" ""
dg-finish

View file

@ -51,7 +51,7 @@ if { [check_effective_target_fpic] } then {
# Combine stackalign options with the usual torture optimization flags.
set-torture-options [concat $DG_TORTURE_OPTIONS $LTO_TORTURE_OPTIONS] $stackalign_options
gcc-dg-runtest [lsort [glob $srcdir/$subdir/*.C]] "$default_flags"
gcc-dg-runtest [lsort [glob $srcdir/$subdir/*.C]] "" "$default_flags"
torture-finish
dg-finish

View file

@ -37,7 +37,7 @@ set-torture-options [list \
if [tsan_init] {
# Main loop.
gcc-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.C $srcdir/c-c++-common/tsan/*.c]] ""
gcc-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.C $srcdir/c-c++-common/tsan/*.c]] "" ""
}

View file

@ -25,7 +25,7 @@ dg-init
if [ubsan_init] {
# Main loop.
gcc-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.C $srcdir/c-c++-common/ubsan/*.c]] ""
gcc-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.C $srcdir/c-c++-common/ubsan/*.c]] "" ""
}

View file

@ -59,9 +59,9 @@ dg-init
# Main loop.
g++-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/pr*.{c,cc,S} ]] \
$DEFAULT_VECTCFLAGS
"" $DEFAULT_VECTCFLAGS
g++-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/slp-pr*.{c,cc,S} ]] \
$VECT_SLP_CFLAGS
"" $VECT_SLP_CFLAGS
#### Tests with special options
global SAVED_DEFAULT_VECTCFLAGS
@ -71,7 +71,7 @@ set SAVED_DEFAULT_VECTCFLAGS $DEFAULT_VECTCFLAGS
set DEFAULT_VECTCFLAGS $SAVED_DEFAULT_VECTCFLAGS
lappend DEFAULT_VECTCFLAGS "--param max-aliased-vops=0"
g++-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/param-max-aliased*.\[cS\]]] \
$DEFAULT_VECTCFLAGS
"" $DEFAULT_VECTCFLAGS
# Clean up.
set dg-do-what-default ${save-dg-do-what-default}

View file

@ -31,7 +31,7 @@ dg-init
set tests [lsort [find $srcdir/$subdir *.C]]
# Main loop.
g++-dg-runtest $tests $DEFAULT_CXXFLAGS
g++-dg-runtest $tests "" $DEFAULT_CXXFLAGS
# All done.
dg-finish

View file

@ -27,7 +27,7 @@ dg-init
# Main loop.
set saved-dg-do-what-default ${dg-do-what-default}
set dg-do-what-default "assemble"
gcc-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.\[cS\]]] "-w"
gcc-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.\[cS\]]] "" "-w"
set dg-do-what-default ${saved-dg-do-what-default}
# All done.

View file

@ -31,7 +31,7 @@ dg-init
if [asan_init] {
# Main loop.
gcc-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.c $srcdir/c-c++-common/asan/*.c]] ""
gcc-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.c $srcdir/c-c++-common/asan/*.c]] "" ""
}

View file

@ -26,7 +26,7 @@ load_lib atomic-dg.exp
dg-init
if [atomic_init] {
# Main loop.
gcc-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.c]] ""
gcc-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.c]] "" ""
}
# All done.

View file

@ -29,6 +29,6 @@ torture-init
set-torture-options [list { } { -DWIDE } ]
dg-init
gcc-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.\[cS\]]] ""
gcc-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.\[cS\]]] "" ""
torture-finish
dg-finish

View file

@ -47,8 +47,8 @@ if {[check_guality "
return 0;
}
"]} {
gcc-dg-runtest [lsort [glob $srcdir/$subdir/*.c]] ""
gcc-dg-runtest [lsort [glob $srcdir/c-c++-common/guality/*.c]] "-Wc++-compat"
gcc-dg-runtest [lsort [glob $srcdir/$subdir/*.c]] "" ""
gcc-dg-runtest [lsort [glob $srcdir/c-c++-common/guality/*.c]] "" "-Wc++-compat"
}
if [info exists guality_gdb_name] {

View file

@ -21,5 +21,5 @@
load_lib gcc-dg.exp
dg-init
gcc-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.\[cS\]]] ""
gcc-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.\[cS\]]] "" ""
dg-finish

View file

@ -33,8 +33,8 @@ set-torture-options [list \
{ -O3 -g } ]
if [gdb-exists] {
gcc-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.c]] ""
gcc-dg-runtest [lsort [glob $srcdir/c-c++-common/simulate-thread/*.c]] ""
gcc-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.c]] "" ""
gcc-dg-runtest [lsort [glob $srcdir/c-c++-common/simulate-thread/*.c]] "" ""
}
torture-finish

View file

@ -3,5 +3,5 @@
load_lib gcc-dg.exp
dg-init
gcc-dg-runtest [lsort [glob $srcdir/$subdir/*.c $srcdir/c-c++-common/torture/*.c]] ""
gcc-dg-runtest [lsort [glob $srcdir/$subdir/*.c $srcdir/c-c++-common/torture/*.c]] "" ""
dg-finish

View file

@ -63,7 +63,7 @@ if { [check_effective_target_automatic_stack_alignment] } then {
# Combine stackalign options with the usual torture optimization flags.
set-torture-options [concat $DG_TORTURE_OPTIONS $LTO_TORTURE_OPTIONS] $stackalign_options
gcc-dg-runtest [lsort [glob $srcdir/$subdir/*.c]] "$default_flags"
gcc-dg-runtest [lsort [glob $srcdir/$subdir/*.c]] "" "$default_flags"
torture-finish
dg-finish

View file

@ -50,7 +50,7 @@ set-torture-options $TLS_TORTURE_OPTIONS {{}} $LTO_TORTURE_OPTIONS
# Main loop.
gcc-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.\[cS\]]] \
$DEFAULT_CFLAGS
"" $DEFAULT_CFLAGS
# All done.
torture-finish

View file

@ -37,7 +37,7 @@ set-torture-options [list \
if [tsan_init] {
# Main loop.
gcc-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.c $srcdir/c-c++-common/tsan/*.c]] ""
gcc-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.c $srcdir/c-c++-common/tsan/*.c]] "" ""
}

View file

@ -27,7 +27,7 @@ dg-init
if [ubsan_init] {
# Main loop.
gcc-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.c $srcdir/c-c++-common/ubsan/*.c]] ""
gcc-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.c $srcdir/c-c++-common/ubsan/*.c]] "" ""
}

View file

@ -49,7 +49,7 @@ dg-init
# Main loop.
gcc-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.c]] \
$DEFAULT_VMXCFLAGS
"" $DEFAULT_VMXCFLAGS
# All done.
dg-finish

View file

@ -98,16 +98,16 @@ if { [board_info target exists multilib_flags]
}
set-torture-options $PREFETCH_NONE
gcc-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/i386-pf-none-*.c]] ""
gcc-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/i386-pf-none-*.c]] "" ""
set-torture-options $PREFETCH_SSE
gcc-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/i386-pf-sse-*.c]] ""
gcc-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/i386-pf-sse-*.c]] "" ""
set-torture-options $PREFETCH_3DNOW
gcc-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/i386-pf-3dnow-*.c]] ""
gcc-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/i386-pf-3dnow-*.c]] "" ""
set-torture-options $PREFETCH_ATHLON
gcc-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/i386-pf-athlon-*.c]] ""
gcc-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/i386-pf-athlon-*.c]] "" ""
torture-finish
dg-finish

View file

@ -55,7 +55,7 @@ set-torture-options $AVR_TORTURE_OPTIONS
# Main loop.
gcc-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.{\[cS\],cpp}]] $DEFAULT_CFLAGS
gcc-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.{\[cS\],cpp}]] "" $DEFAULT_CFLAGS
# Finalize use of torture lists.
torture-finish

View file

@ -35,7 +35,7 @@ if ![info exists DEFAULT_CFLAGS] then {
dg-init
# Main loop.
gcc-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.\[cS\]]] $DEFAULT_CFLAGS
gcc-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.\[cS\]]] "" $DEFAULT_CFLAGS
# All done.
dg-finish

View file

@ -49,5 +49,5 @@ foreach arch $archs {
}
dg-init
gcc-dg-runtest [eval concat $files] ""
gcc-dg-runtest [eval concat $files] "" ""
dg-finish

View file

@ -65,6 +65,6 @@ torture-init
set-torture-options $MATH_TORTURE_OPTIONS {{}} $LTO_TORTURE_OPTIONS
dg-init
gcc-dg-runtest [lsort [glob $srcdir/$subdir/*.c]] ""
gcc-dg-runtest [lsort [glob $srcdir/$subdir/*.c]] "" ""
torture-finish
dg-finish

View file

@ -49,7 +49,7 @@ dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/isa/*.\[cSi\]]] \
${default_c_flags} ""
gcc-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/others/*.\[cSi\]]] \
"-mcpu=v6.00.a"
"" "-mcpu=v6.00.a"
# All done.

View file

@ -1304,6 +1304,6 @@ proc mips-gcc-dg-test { prog do_what extra_tool_flags } {
dg-init
mips-dg-init
gcc-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.c]] \
"-DNOMIPS16=__attribute__((nomips16)) -DNOMICROMIPS=__attribute__((nomicromips)) -DNOCOMPRESSION=__attribute__((nocompression))"
"" "-DNOMIPS16=__attribute__((nomips16)) -DNOMICROMIPS=__attribute__((nomicromips)) -DNOCOMPRESSION=__attribute__((nocompression))"
mips-dg-finish
dg-finish

View file

@ -45,7 +45,7 @@ if [check_vmx_hw_available] {
}
torture-init
set-torture-options $SAVRES_TEST_OPTS
gcc-dg-runtest [list $srcdir/$subdir/savres.c] $alti
gcc-dg-runtest [list $srcdir/$subdir/savres.c] "" $alti
# All done.
torture-finish

View file

@ -37,7 +37,7 @@ dg-init
set tests [lsort [find $srcdir/$subdir *.\[cS\]]]
# Main loop.
gcc-dg-runtest $tests $DEFAULT_CFLAGS
gcc-dg-runtest $tests "" $DEFAULT_CFLAGS
# All done.
dg-finish

View file

@ -35,7 +35,7 @@ if ![info exists DEFAULT_CFLAGS] then {
dg-init
# Main loop.
gcc-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.\[cS\]]] $DEFAULT_CFLAGS
gcc-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.\[cS\]]] "" $DEFAULT_CFLAGS
# All done.
dg-finish

View file

@ -24,6 +24,6 @@ if { ![istarget tic6x-*-*] } then {
}
dg-init
gcc-dg-runtest [lsort [glob $srcdir/$subdir/*.c]] ""
gcc-dg-runtest [lsort [glob $srcdir/$subdir/*.c]] "" ""
dg-finish

View file

@ -30,10 +30,10 @@ dg-init
# Main loop.
gfortran-dg-runtest [lsort \
[glob -nocomplain $srcdir/$subdir/*.\[fF\]{,90,95,03,08} ] ] $DEFAULT_FFLAGS
[glob -nocomplain $srcdir/$subdir/*.\[fF\]{,90,95,03,08} ] ] "" $DEFAULT_FFLAGS
gfortran-dg-runtest [lsort \
[glob -nocomplain $srcdir/$subdir/g77/*.\[fF\] ] ] $DEFAULT_FFLAGS
[glob -nocomplain $srcdir/$subdir/g77/*.\[fF\] ] ] "" $DEFAULT_FFLAGS
# All done.

View file

@ -30,7 +30,7 @@ dg-init
# Main loop.
gfortran-dg-runtest [lsort \
[find $srcdir/$subdir *.\[fF\]{,90,95,03,08} ] ] " -fopenmp"
[find $srcdir/$subdir *.\[fF\]{,90,95,03,08} ] ] "" "-fopenmp"
# All done.
dg-finish

View file

@ -47,19 +47,19 @@ set vect_files [lsort [glob -nocomplain $srcdir/$subdir/vect-*.\[fF\]{,90
# Tests to be compiled.
set dg-do-what-default compile
gfortran-dg-runtest $scop_files "-O2 -fgraphite -fdump-tree-graphite-all"
gfortran-dg-runtest $id_files "-O2 -fgraphite-identity -ffast-math"
gfortran-dg-runtest $interchange_files "-O2 -floop-interchange -fno-loop-block -fno-loop-strip-mine -ffast-math -fdump-tree-graphite-all"
gfortran-dg-runtest $block_files "-O2 -floop-block -fno-loop-strip-mine -fno-loop-interchange -ffast-math -fdump-tree-graphite-all"
gfortran-dg-runtest $scop_files "" "-O2 -fgraphite -fdump-tree-graphite-all"
gfortran-dg-runtest $id_files "" "-O2 -fgraphite-identity -ffast-math"
gfortran-dg-runtest $interchange_files "" "-O2 -floop-interchange -fno-loop-block -fno-loop-strip-mine -ffast-math -fdump-tree-graphite-all"
gfortran-dg-runtest $block_files "" "-O2 -floop-block -fno-loop-strip-mine -fno-loop-interchange -ffast-math -fdump-tree-graphite-all"
# Vectorizer tests, to be run or compiled, depending on target capabilities.
if [check_vect_support_and_set_flags] {
gfortran-dg-runtest $vect_files "-O2 -fgraphite-identity -ftree-vectorize -fno-vect-cost-model -fdump-tree-vect-details -ffast-math"
gfortran-dg-runtest $vect_files "" "-O2 -fgraphite-identity -ftree-vectorize -fno-vect-cost-model -fdump-tree-vect-details -ffast-math"
}
# Tests to be run.
set dg-do-what-default run
gfortran-dg-runtest $run_id_files "-O2 -fgraphite-identity"
gfortran-dg-runtest $run_id_files "" "-O2 -fgraphite-identity"
# The default action for the rest of the files is 'compile'.
set dg-do-what-default compile
@ -69,7 +69,7 @@ foreach f $interchange_files {lremove wait_to_run_files $f}
foreach f $scop_files {lremove wait_to_run_files $f}
foreach f $run_id_files {lremove wait_to_run_files $f}
foreach f $vect_files {lremove wait_to_run_files $f}
gfortran-dg-runtest $wait_to_run_files ""
gfortran-dg-runtest $wait_to_run_files "" ""
# Clean up.
set dg-do-what-default ${save-dg-do-what-default}

View file

@ -25,7 +25,7 @@ if ![info exists ::env(GUALITY_GDB_NAME)] {
setenv GUALITY_GDB_NAME "$guality_gdb_name"
}
gfortran-dg-runtest [lsort [glob $srcdir/$subdir/*.\[fF\]{,90,95,03,08} ]] ""
gfortran-dg-runtest [lsort [glob $srcdir/$subdir/*.\[fF\]{,90,95,03,08} ]] "" ""
if [info exists guality_gdb_name] {
unsetenv GUALITY_GDB_NAME

View file

@ -53,7 +53,7 @@ set options "$options $target_options"
# Main loop.
gfortran-dg-runtest [lsort \
[find $srcdir/$subdir *.\[fF\]{,90,95,03,08} ] ] $options
[find $srcdir/$subdir *.\[fF\]{,90,95,03,08} ] ] "" $options
# All done.
dg-finish

View file

@ -47,8 +47,8 @@ if ![check_vect_support_and_set_flags] {
dg-init
# Main loop.
gfortran-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/vect-*.\[fF\]{,90,95,03,08} ]] $DEFAULT_VECTCFLAGS
gfortran-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/pr*.\[fF\]{,90,95,03,08} ]] $DEFAULT_VECTCFLAGS
gfortran-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/vect-*.\[fF\]{,90,95,03,08} ]] "" $DEFAULT_VECTCFLAGS
gfortran-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/pr*.\[fF\]{,90,95,03,08} ]] "" $DEFAULT_VECTCFLAGS
#### Tests with special options
global SAVED_DEFAULT_VECTCFLAGS

View file

@ -30,7 +30,7 @@ dg-init
# Main loop.
go-dg-runtest [lsort \
[glob -nocomplain $srcdir/$subdir/*.go ] ] $DEFAULT_GOCFLAGS
[glob -nocomplain $srcdir/$subdir/*.go ] ] "" $DEFAULT_GOCFLAGS
# All done.
dg-finish

View file

@ -152,7 +152,7 @@ proc errchk { test opts } {
set hold_runtests $runtests
set runtests "go-test.exp"
go-dg-runtest $filename "-fno-show-column $DEFAULT_GOCFLAGS $opts"
go-dg-runtest $filename "" "-fno-show-column $DEFAULT_GOCFLAGS $opts"
set runtests $hold_runtests
file delete $filename
@ -176,7 +176,7 @@ proc go-execute-xfail { test } {
set hold_runtests $runtests
set runtests "go-test.exp"
go-dg-runtest $filename "-w $DEFAULT_GOCFLAGS"
go-dg-runtest $filename "" "-w $DEFAULT_GOCFLAGS"
set runtests $hold_runtests
file delete $filename
@ -524,7 +524,7 @@ proc go-gc-tests { } {
|| $test_line == "// echo bug395 is broken # takes 90+ seconds to break" } {
# This is a vanilla compile test.
set dg-do-what-default "assemble"
go-dg-runtest $test "-w $DEFAULT_GOCFLAGS"
go-dg-runtest $test "" "-w $DEFAULT_GOCFLAGS"
} elseif { $test_line == "// run"
|| $test_line == "// \$G \$F.go && \$L \$F.\$A && ./\$A.out" } {
# This is a vanilla execution test.
@ -533,7 +533,7 @@ proc go-gc-tests { } {
} elseif { $test_line == "// build" } {
# This is a vanilla compile and link test.
set dg-do-what-default "link"
go-dg-runtest $test "-w $DEFAULT_GOCFLAGS"
go-dg-runtest $test "" "-w $DEFAULT_GOCFLAGS"
} elseif { [string match "// runoutput*" $test_line] \
|| ($test_line == "// \$G \$D/\$F.go && \$L \$F.\$A &&"
&& $test_line2 == "// ./\$A.out >tmp.go && \$G tmp.go && \$L -o \$A.out1 tmp.\$A && ./\$A.out1") } {

View file

@ -29,7 +29,7 @@ proc g++-dg-prune { system text } {
# Modified dg-runtest that runs tests in both C++98 and C++11 modes
# unless they specifically specify one or the other.
proc g++-dg-runtest { testcases default-extra-flags } {
proc g++-dg-runtest { testcases flags default-extra-flags } {
global runtests
foreach test $testcases {
@ -53,9 +53,9 @@ proc g++-dg-runtest { testcases default-extra-flags } {
set nshort [file tail [file dirname $test]]/[file tail $test]
foreach flags $option_list {
verbose "Testing $nshort, $flags" 1
dg-test $test $flags ${default-extra-flags}
foreach flags_t $option_list {
verbose "Testing $nshort, $flags $flags_t" 1
dg-test $test "$flags $flags_t" ${default-extra-flags}
}
}
}

View file

@ -337,7 +337,7 @@ proc search_for { file pattern } {
# Modified dg-runtest that can cycle through a list of optimization options
# as c-torture does.
proc gcc-dg-runtest { testcases default-extra-flags } {
proc gcc-dg-runtest { testcases flags default-extra-flags } {
global runtests
# Some callers set torture options themselves; don't override those.
@ -367,9 +367,9 @@ proc gcc-dg-runtest { testcases default-extra-flags } {
set nshort [file tail [file dirname $test]]/[file tail $test]
foreach flags $option_list {
verbose "Testing $nshort, $flags" 1
dg-test $test $flags ${default-extra-flags}
foreach flags_t $option_list {
verbose "Testing $nshort, $flags $flags_t" 1
dg-test $test "$flags $flags_t" ${default-extra-flags}
}
}

View file

@ -88,7 +88,7 @@ proc gfortran-dg-prune { system text } {
# Modified dg-runtest that can cycle through a list of optimization options
# as c-torture does.
proc gfortran-dg-runtest { testcases default-extra-flags } {
proc gfortran-dg-runtest { testcases flags default-extra-flags } {
global runtests
global DG_TORTURE_OPTIONS torture_with_loops
@ -113,9 +113,9 @@ proc gfortran-dg-runtest { testcases default-extra-flags } {
set nshort [file tail [file dirname $test]]/[file tail $test]
list-module-names $test
foreach flags $option_list {
verbose "Testing $nshort, $flags" 1
dg-test $test $flags ${default-extra-flags}
foreach flags_t $option_list {
verbose "Testing $nshort, $flags $flags_t" 1
dg-test $test "$flags $flags_t" ${default-extra-flags}
cleanup-modules ""
}
}

View file

@ -36,7 +36,7 @@ proc go-dg-prune { system text } {
# Modified dg-runtest that can cycle through a list of optimization options
# as c-torture does.
proc go-dg-runtest { testcases default-extra-flags } {
proc go-dg-runtest { testcases flags default-extra-flags } {
global runtests
global TORTURE_OPTIONS
@ -57,9 +57,9 @@ proc go-dg-runtest { testcases default-extra-flags } {
set nshort [file tail [file dirname $test]]/[file tail $test]
foreach flags $option_list {
verbose "Testing $nshort, $flags" 1
dg-test $test $flags ${default-extra-flags}
foreach flags_t $option_list {
verbose "Testing $nshort, $flags $flags_t" 1
dg-test $test "$flags $flags_t" ${default-extra-flags}
}
}
}

View file

@ -29,7 +29,7 @@ proc obj-c++-dg-prune { system text } {
# Modified dg-runtest that can cycle through a list of optimization options
# as c-torture does.
proc obj-c++-dg-runtest { testcases default-extra-flags } {
proc obj-c++-dg-runtest { testcases flags default-extra-flags } {
global runtests
# Some callers set torture options themselves; don't override those.
@ -59,9 +59,9 @@ proc obj-c++-dg-runtest { testcases default-extra-flags } {
set nshort [file tail [file dirname $test]]/[file tail $test]
foreach flags $option_list {
foreach flags_t $option_list {
# combine flags so that dg-skip & xfail will see the extras.
set combined_flags "$flags ${default-extra-flags}"
set combined_flags "$flags $flags_t ${default-extra-flags}"
verbose "Testing $nshort, $combined_flags" 1
dg-test $test $combined_flags ""
}

View file

@ -30,7 +30,7 @@ proc objc-dg-prune { system text } {
# Modified dg-runtest that can cycle through a list of optimization options
# as c-torture does.
proc objc-dg-runtest { testcases default-extra-flags } {
proc objc-dg-runtest { testcases flags default-extra-flags } {
global runtests
# Some callers set torture options themselves; don't override those.
@ -60,9 +60,9 @@ proc objc-dg-runtest { testcases default-extra-flags } {
set nshort [file tail [file dirname $test]]/[file tail $test]
foreach flags $option_list {
foreach flags_t $option_list {
# combine flags so that dg-skip & xfail will see the extras.
set combined_flags "$flags ${default-extra-flags}"
set combined_flags "$flags $flags_t ${default-extra-flags}"
verbose "Testing $nshort, $combined_flags" 1
dg-test $test $combined_flags ""
}

View file

@ -7,11 +7,11 @@ dg-init
# Gather a list of all tests.
set tests [lsort [glob -nocomplain $srcdir/$subdir/*.mm]]
obj-c++-dg-runtest $tests "-fgnu-runtime"
obj-c++-dg-runtest $tests "" "-fgnu-runtime"
# darwin targets can also run code with the NeXT runtime.
if [istarget "*-*-darwin*" ] {
obj-c++-dg-runtest $tests "-fnext-runtime"
obj-c++-dg-runtest $tests "" "-fnext-runtime"
}
dg-finish

View file

@ -24,11 +24,11 @@ dg-init
# Gather a list of all tests.
set tests [lsort [glob -nocomplain $srcdir/$subdir/*.mm]]
obj-c++-dg-runtest $tests "-fgnu-runtime"
obj-c++-dg-runtest $tests "" "-fgnu-runtime"
# Darwin targets can also run code with the NeXT runtime.
if [istarget "*-*-darwin*" ] {
obj-c++-dg-runtest $tests "-fnext-runtime"
obj-c++-dg-runtest $tests "" "-fnext-runtime"
}
dg-finish

View file

@ -6,11 +6,11 @@ dg-init
# Gather a list of all tests.
set tests [lsort [glob -nocomplain $srcdir/$subdir/*.mm]]
obj-c++-dg-runtest $tests "-fgnu-runtime"
obj-c++-dg-runtest $tests "" "-fgnu-runtime"
# darwin targets can also run code with the NeXT runtime.
if [istarget "*-*-darwin*" ] {
obj-c++-dg-runtest $tests "-fnext-runtime"
obj-c++-dg-runtest $tests "" "-fnext-runtime"
}
dg-finish

View file

@ -7,11 +7,11 @@ dg-init
# Gather a list of all tests.
set tests [lsort [glob -nocomplain $srcdir/$subdir/*.m]]
objc-dg-runtest $tests "-fgnu-runtime"
objc-dg-runtest $tests "" "-fgnu-runtime"
# darwin targets can also run code with the NeXT runtime.
if [istarget "*-*-darwin*" ] {
objc-dg-runtest $tests "-fnext-runtime"
objc-dg-runtest $tests "" "-fnext-runtime"
}
dg-finish

View file

@ -24,11 +24,11 @@ dg-init
# Gather a list of all tests.
set tests [lsort [glob -nocomplain $srcdir/$subdir/*.m]]
objc-dg-runtest $tests "-fgnu-runtime"
objc-dg-runtest $tests "" "-fgnu-runtime"
# Darwin targets also test with the NeXT runtime.
if [istarget "*-*-darwin*" ] {
objc-dg-runtest $tests "-fnext-runtime"
objc-dg-runtest $tests "" "-fnext-runtime"
}
dg-finish

View file

@ -7,11 +7,11 @@ dg-init
# Gather a list of all tests.
set tests [lsort [glob -nocomplain $srcdir/$subdir/*.m]]
objc-dg-runtest $tests "-fgnu-runtime"
objc-dg-runtest $tests "" "-fgnu-runtime"
# darwin targets can also run code with the NeXT runtime.
if [istarget "*-*-darwin*" ] {
objc-dg-runtest $tests "-fnext-runtime"
objc-dg-runtest $tests "" "-fnext-runtime"
}
dg-finish

View file

@ -1,3 +1,8 @@
2014-07-04 Thomas Schwinge <thomas@codesourcery.com>
* testsuite/lib/libffi.exp (libffi-dg-runtest): Change interface
match to dg-runtest's.
2014-05-20 Sebastian Huber <sebastian.huber@embedded-brains.de>
* testsuite/lib/libffi.exp (load_gcc_lib): Register loaded libs.

View file

@ -238,7 +238,7 @@ proc search_for { file pattern } {
# Modified dg-runtest that can cycle through a list of optimization options
# as c-torture does.
proc libffi-dg-runtest { testcases default-extra-flags } {
proc libffi-dg-runtest { testcases flags default-extra-flags } {
global runtests
foreach test $testcases {
@ -259,9 +259,9 @@ proc libffi-dg-runtest { testcases default-extra-flags } {
set nshort [file tail [file dirname $test]]/[file tail $test]
foreach flags $option_list {
verbose "Testing $nshort, $flags" 1
dg-test $test $flags ${default-extra-flags}
foreach flags_t $option_list {
verbose "Testing $nshort, $flags $flags_t" 1
dg-test $test "$flags $flags_t" ${default-extra-flags}
}
}
}

View file

@ -66,7 +66,7 @@ if { $lang_test_file_found } {
# For Fortran we're doing torture testing, as Fortran has far more tests
# with arrays etc. that testing just -O0 or -O2 is insufficient, that is
# typically not the case for C/C++.
gfortran-dg-runtest $tests ""
gfortran-dg-runtest $tests "" ""
}
# All done.