From db482e5cfd539b84d762be24d202a339f7afa993 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Tobias=20Schl=C3=BCter?=
<tobias.schlueter@physik.uni-muenchen.de>
Date: Fri, 9 Jul 2004 17:46:42 +0200
Subject: [PATCH] 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
---
gcc/testsuite/ChangeLog | 6 ++++++
gcc/testsuite/gfortran.dg/dg.exp | 19 ++++---------------
2 files changed, 10 insertions(+), 15 deletions(-)
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 22a69a24fd31..a821acb39a81 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 58f3bf673d29..21c3d2278a3b 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
--
GitLab