From: Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de>
Date: Fri, 9 Jul 2004 15:46:42 +0000 (+0200)
Subject: Paul Brook <paul@codesourcery.com>
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=db482e5cfd539b84d762be24d202a339f7afa993;p=gcc.git

Paul Brook <paul@codesourcery.com>

2004-07-09  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>
Paul Brook  <paul@codesourcery.com>

* gfortran.dg/dg.exp: Use revised wilcard for suffixes, also allow
'.f95' and '.F95'.

Co-Authored-By: Paul Brook <paul@codesourcery.com>

From-SVN: r84384
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 22a69a24fd3..a821acb39a8 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2004-07-09  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>
+	Paul Brook  <paul@codesourcery.com>
+
+	* gfortran.dg/dg.exp: Use revised wilcard for suffixes, also allow 
+	'.f95' and '.F95'.
+
 2004-07-09  Diego Novillo  <dnovillo@redhat.com>
 
 	* gcc.dg/tree-ssa/20031015-1.c: Adjust expected dump file name.
diff --git a/gcc/testsuite/gfortran.dg/dg.exp b/gcc/testsuite/gfortran.dg/dg.exp
index 58f3bf673d2..21c3d2278a3 100644
--- a/gcc/testsuite/gfortran.dg/dg.exp
+++ b/gcc/testsuite/gfortran.dg/dg.exp
@@ -29,23 +29,12 @@ if ![info exists DEFAULT_FFLAGS] then {
 dg-init
 
 # Main loop.
-gfortran-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.f ] ]\
-	$DEFAULT_FFLAGS
+gfortran-dg-runtest [lsort \
+       [glob -nocomplain $srcdir/$subdir/*.\[fF\]{,90,95} ] ] $DEFAULT_FFLAGS
 
-gfortran-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.F ] ]\
-	$DEFAULT_FFLAGS
+gfortran-dg-runtest [lsort \
+       [glob -nocomplain $srcdir/$subdir/g77/*.\[fF\] ] ] $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