diff options
Diffstat (limited to 'gcc/testsuite/lib/gfortran-dg.exp')
-rw-r--r-- | gcc/testsuite/lib/gfortran-dg.exp | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/testsuite/lib/gfortran-dg.exp b/gcc/testsuite/lib/gfortran-dg.exp index f6a1dbe5a7b..7ccaf0db002 100644 --- a/gcc/testsuite/lib/gfortran-dg.exp +++ b/gcc/testsuite/lib/gfortran-dg.exp @@ -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 "" } } |