Re: gfortran.dg testsuite patch (committed)

[Tobias Schlüter <tobias dot schlueter at physik dot uni-muenchen dot de>]

Billinghurst, David (CALCRTS) wrote:
> It now "works for me".  I will now let the testsuite settle while 
> we shake out any problems from other platforms.
> 
> Tobi - see how you go with your tests.  Let me know if I can
> help. 

I fixed a minor nit with the below, obviously correct fix: the wildcard
in dg.exp would also match emacs-style backup files, i.e. files ending
in .f90~. While I was at it, I also added the necessary code for running
tests with uppercase suffixes, as we might add testcases which need
preprocessing.

I have also added the promised testcase from PRs 13575 and 15978 to the
dg testsuite. Woohoo!

Thanks,
- Tobi

Index: ChangeLog
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/ChangeLog,v
retrieving revision 1.3966
diff -u -r1.3966 ChangeLog
--- ChangeLog   9 Jul 2004 15:11:39 -0000       1.3966
+++ ChangeLog   9 Jul 2004 15:15:36 -0000
@@ -1,5 +1,10 @@
 2004-07-09  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>

+       * gfortran.dg/dg.exp: Don't use wildcard for suffixes, also check
+       testcases with capital suffix.
+
+2004-07-09  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>
+
        PR fortran/15481
        PR fortran/13372
        PR fortran/13575
Index: gfortran.dg/dg.exp
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/gfortran.dg/dg.exp,v
retrieving revision 1.1
diff -u -r1.1 dg.exp
--- gfortran.dg/dg.exp  8 Jul 2004 23:12:47 -0000       1.1
+++ gfortran.dg/dg.exp  9 Jul 2004 15:15:36 -0000
@@ -29,12 +29,23 @@
 dg-init

 # Main loop.
-gfortran-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.f* ] ]\
+gfortran-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.f ] ]\
+       $DEFAULT_FFLAGS
+
+gfortran-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.F ] ]\
+       $DEFAULT_FFLAGS
+
+gfortran-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.f90 ] ]\
+       $DEFAULT_FFLAGS
+
+gfortran-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.F90 ] ]\
        $DEFAULT_FFLAGS

 gfortran-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/g77/*.f ] ] \
        $DEFAULT_FFLAGS

+gfortran-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/g77/*.F ] ] \
+       $DEFAULT_FFLAGS

 # All done.
 dg-finish