On Mon, 05 May 2014, I have posted
https://gcc.gnu.org/ml/fortran/2014-05/msg00012.html.
On IRC Tobias Burnus remarked that the *.mod file in
gfortran.dg/vect/fast-math-real8-pr40801.f90
should be cleaned automatically. This is not done because the cleaning is done
in gfortran-dg-runtest and not in dg-runtest, hense the submitted patch.
OK for trunk?
Dominique
2014-07-05 Dominique d'Humieres <domi...@lps.ens.fr>
* gfortran.dg/list_read_12.f90: Delete the file.
* gfortran.dg/vect/vect.exp: Use gfortran-dg-runtest instead
of dg-runtest.
--- ../_clean/gcc/testsuite/gfortran.dg/list_read_12.f90 2014-03-15
16:19:35.000000000 +0100
+++ gcc/testsuite/gfortran.dg/list_read_12.f90 2014-04-17 10:27:58.000000000
+0200
@@ -7,5 +7,6 @@ close(99)
open(99, access='sequential', form='formatted')
read(99, *, iostat=ios) i
+close(99, status="delete")
if (ios /= 0) call abort
end
--- ../_clean/gcc/testsuite/gfortran.dg/vect/vect.exp 2014-07-04
10:51:07.000000000 +0200
+++ gcc/testsuite/gfortran.dg/vect/vect.exp 2014-07-05 14:18:33.000000000
+0200
@@ -57,43 +57,43 @@ set SAVED_DEFAULT_VECTCFLAGS $DEFAULT_VE
# -ffast-math tests
set DEFAULT_VECTCFLAGS $SAVED_DEFAULT_VECTCFLAGS
lappend DEFAULT_VECTCFLAGS "-ffast-math"
-dg-runtest [lsort [glob -nocomplain
$srcdir/$subdir/fast-math-*.\[fF\]{,90,95,03,08} ]] \
- "" $DEFAULT_VECTCFLAGS
+gfortran-dg-runtest [lsort [glob -nocomplain
$srcdir/$subdir/fast-math-*.\[fF\]{,90,95,03,08} ]] \
+ "" $DEFAULT_VECTCFLAGS
# -ffast-math tests
set DEFAULT_VECTCFLAGS $SAVED_DEFAULT_VECTCFLAGS
lappend DEFAULT_VECTCFLAGS "-ffast-math" "-fdefault-real-8"
-dg-runtest [lsort [glob -nocomplain
$srcdir/$subdir/fast-math-real8*.\[fF\]{,90,95,03,08} ]] \
+gfortran-dg-runtest [lsort [glob -nocomplain
$srcdir/$subdir/fast-math-real8*.\[fF\]{,90,95,03,08} ]] \
"" $DEFAULT_VECTCFLAGS
# -fvect-cost-model tests
set DEFAULT_VECTCFLAGS $SAVED_DEFAULT_VECTCFLAGS
lappend DEFAULT_VECTCFLAGS "-fvect-cost-model=dynamic"
-dg-runtest [lsort [glob -nocomplain
$srcdir/$subdir/cost-model-*.\[fF\]{,90,95,03,08} ]] \
+gfortran-dg-runtest [lsort [glob -nocomplain
$srcdir/$subdir/cost-model-*.\[fF\]{,90,95,03,08} ]] \
"" $DEFAULT_VECTCFLAGS
# --param vect-max-version-for-alias-checks=0 tests
set DEFAULT_VECTCFLAGS $SAVED_DEFAULT_VECTCFLAGS
lappend DEFAULT_VECTCFLAGS "--param" "vect-max-version-for-alias-checks=0"
-dg-runtest [lsort [glob -nocomplain
$srcdir/$subdir/no-vfa-*.\[fF\]{,90,95,03,08} ]] \
+gfortran-dg-runtest [lsort [glob -nocomplain
$srcdir/$subdir/no-vfa-*.\[fF\]{,90,95,03,08} ]] \
"" $DEFAULT_VECTCFLAGS
# With -O3
set DEFAULT_VECTCFLAGS $SAVED_DEFAULT_VECTCFLAGS
lappend DEFAULT_VECTCFLAGS "-O3"
-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/O3-*.\[fF\]{,90,95,03,08}
]] \
+gfortran-dg-runtest [lsort [glob -nocomplain
$srcdir/$subdir/O3-*.\[fF\]{,90,95,03,08} ]] \
"" $DEFAULT_VECTCFLAGS
# With -Ofast
set DEFAULT_VECTCFLAGS $SAVED_DEFAULT_VECTCFLAGS
lappend DEFAULT_VECTCFLAGS "-Ofast"
-dg-runtest [lsort [glob -nocomplain
$srcdir/$subdir/Ofast-*.\[fF\]{,90,95,03,08} ]] \
+gfortran-dg-runtest [lsort [glob -nocomplain
$srcdir/$subdir/Ofast-*.\[fF\]{,90,95,03,08} ]] \
"" $DEFAULT_VECTCFLAGS
# With -fno-tree-copy-prop -fno-tree-fre -O3
set DEFAULT_VECTCFLAGS $SAVED_DEFAULT_VECTCFLAGS
lappend DEFAULT_VECTCFLAGS "-fno-tree-copy-prop" "-fno-tree-fre" "-O3"
-dg-runtest [lsort [glob -nocomplain
$srcdir/$subdir/no-fre-no-copy-prop-O3-*.\[fF\]{,90,95,03,08} ]] \
+gfortran-dg-runtest [lsort [glob -nocomplain
$srcdir/$subdir/no-fre-no-copy-prop-O3-*.\[fF\]{,90,95,03,08} ]] \
"" $DEFAULT_VECTCFLAGS
# Clean up.
