dg.exp: Don't use wildcard for suffixes, also check testcases with capital suffix.

* gfortran.dg/dg.exp: Don't use wildcard for suffixes, also check testcases with capital suffix. From-SVN: r84379

dg.exp: Don't use wildcard for suffixes, also check testcases with capital suffix.
* gfortran.dg/dg.exp: Don't use wildcard for suffixes, also check testcases with capital suffix. From-SVN: r84379
fbc40a17 · Tobias Schlüter · Tobias Schlüter · 473a4325 · fbc40a17 · fbc40a17
Commit fbc40a17 authored Jul 09, 2004 by Tobias Schlüter Committed by Tobias Schlüter Jul 09, 2004
Hide whitespace changes
Inline Side-by-side

Showing with 17 additions and 1 deletions

gcc/testsuite/ChangeLog
+5 -0

gcc/testsuite/gfortran.dg/dg.exp
+12 -1

No files found.
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
 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

--- a/gcc/testsuite/gfortran.dg/dg.exp
+++ b/gcc/testsuite/gfortran.dg/dg.exp
@@ -29,12 +29,23 @@ if ![info exists DEFAULT_FFLAGS] then {
 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