Dear Dominique, OK for trunk.
Thanks for the patch Paul On 5 July 2014 18:09, Dominique Dhumieres <domi...@lps.ens.fr> wrote: > 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. -- The knack of flying is learning how to throw yourself at the ground and miss. --Hitchhikers Guide to the Galaxy