1 # Expect driver script
for GCC Regression Tests
2 # Copyright
(C
) 2003, 2007, 2008 Free Software Foundation
4 # This file is free software
; you can redistribute it and
/or modify
5 # it under the terms of the GNU General Public License as published by
6 # the Free Software Foundation
; either version
3 of the License
, or
7 #
(at your option
) any later version.
9 # This
program is distributed in the hope that it will be useful
,
10 # but WITHOUT
ANY WARRANTY
; without even the implied warranty of
11 # MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE. See the
12 # GNU General Public License
for more details.
14 # You should have received a copy of the GNU General Public License
15 # along with GCC
; see the file COPYING3.
If not see
16 #
<http
://www.gnu.org
/licenses
/>.
18 # These tests come from many different contributors.
25 load_lib fortran
-torture.exp
26 load_lib torture
-options.exp
29 set-torture
-options
[get-fortran
-torture
-options
]
31 foreach testcase
[lsort
[glob
-nocomplain $srcdir
/$subdir
/*.f
]] {
32 #
If we
're only testing specific files and this isn't one of them
, skip it.
33 if ![runtest_file_p $runtests $testcase
] then {
36 fortran
-torture $testcase
39 foreach testcase
[lsort
[glob
-nocomplain $srcdir
/$subdir
/*.F
]] {
40 if ![runtest_file_p $runtests $testcase
] then {
43 fortran
-torture $testcase
46 foreach testcase
[lsort
[glob
-nocomplain $srcdir
/$subdir
/*.f90
]] {
47 if ![runtest_file_p $runtests $testcase
] then {
50 fortran
-torture $testcase
53 foreach testcase
[lsort
[glob
-nocomplain $srcdir
/$subdir
/*.F90
]] {
54 if ![runtest_file_p $runtests $testcase
] then {
57 fortran
-torture $testcase
60 foreach testcase
[lsort
[glob
-nocomplain $srcdir
/$subdir
/*.f95
]] {
61 if ![runtest_file_p $runtests $testcase
] then {
64 fortran
-torture $testcase
67 foreach testcase
[lsort
[glob
-nocomplain $srcdir
/$subdir
/*.F95
]] {
68 if ![runtest_file_p $runtests $testcase
] then {
71 fortran
-torture $testcase
74 foreach testcase
[lsort
[glob
-nocomplain $srcdir
/$subdir
/*.f03
]] {
75 if ![runtest_file_p $runtests $testcase
] then {
78 fortran
-torture $testcase
81 foreach testcase
[lsort
[glob
-nocomplain $srcdir
/$subdir
/*.F03
]] {
82 if ![runtest_file_p $runtests $testcase
] then {
85 fortran
-torture $testcase
88 foreach testcase
[lsort
[glob
-nocomplain $srcdir
/$subdir
/*.f08
]] {
89 if ![runtest_file_p $runtests $testcase
] then {
92 fortran
-torture $testcase
95 foreach testcase
[lsort
[glob
-nocomplain $srcdir
/$subdir
/*.F08
]] {
96 if ![runtest_file_p $runtests $testcase
] then {
99 fortran
-torture $testcase