1 # Copyright
(C
) 2003, 2007 Free Software Foundation
, Inc.
3 # This
program is free software
; you can redistribute it and
/or modify
4 # it under the terms of the GNU General Public License as published by
5 # the Free Software Foundation
; either version
3 of the License
, or
6 #
(at your option
) any later version.
8 # This
program is distributed in the hope that it will be useful
,
9 # but WITHOUT
ANY WARRANTY
; without even the implied warranty of
10 # MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE. See the
11 # GNU General Public License
for more details.
13 # You should have received a copy of the GNU General Public License
14 # along with GCC
; see the file COPYING3.
If not see
15 #
<http
://www.gnu.org
/licenses
/>.
17 # This file was written by Rob Savoye.
(rob@cygnus.com
)
18 # Modified and maintained by Jeffrey Wheat
(cassidy@cygnus.com
)
21 # These tests come from many different contributors.
29 load_lib fortran
-torture.exp
30 load_lib torture
-options.exp
33 set-torture
-options
[get-fortran
-torture
-options
]
35 foreach testcase
[lsort
[glob
-nocomplain $srcdir
/$subdir
/*.f
]] {
36 #
If we
're only testing specific files and this isn't one of them
, skip it.
37 if ![runtest_file_p $runtests $testcase
] then {
40 fortran
-torture
-execute $testcase
43 foreach testcase
[lsort
[glob
-nocomplain $srcdir
/$subdir
/*.F
]] {
44 if ![runtest_file_p $runtests $testcase
] then {
47 fortran
-torture
-execute $testcase
50 foreach testcase
[lsort
[glob
-nocomplain $srcdir
/$subdir
/*.f90
]] {
51 if ![runtest_file_p $runtests $testcase
] then {
54 fortran
-torture
-execute $testcase
57 foreach testcase
[lsort
[glob
-nocomplain $srcdir
/$subdir
/*.F90
]] {
58 if ![runtest_file_p $runtests $testcase
] then {
61 fortran
-torture
-execute $testcase
64 foreach testcase
[lsort
[glob
-nocomplain $srcdir
/$subdir
/*.f95
]] {
65 if ![runtest_file_p $runtests $testcase
] then {
68 fortran
-torture
-execute $testcase
71 foreach testcase
[lsort
[glob
-nocomplain $srcdir
/$subdir
/*.F95
]] {
72 if ![runtest_file_p $runtests $testcase
] then {
75 fortran
-torture
-execute $testcase
78 foreach testcase
[lsort
[glob
-nocomplain $srcdir
/$subdir
/*.f03
]] {
79 if ![runtest_file_p $runtests $testcase
] then {
82 fortran
-torture
-execute $testcase
85 foreach testcase
[lsort
[glob
-nocomplain $srcdir
/$subdir
/*.F03
]] {
86 if ![runtest_file_p $runtests $testcase
] then {
89 fortran
-torture
-execute $testcase
92 foreach testcase
[lsort
[glob
-nocomplain $srcdir
/$subdir
/*.f08
]] {
93 if ![runtest_file_p $runtests $testcase
] then {
96 fortran
-torture
-execute $testcase
99 foreach testcase
[lsort
[glob
-nocomplain $srcdir
/$subdir
/*.F08
]] {
100 if ![runtest_file_p $runtests $testcase
] then {
103 fortran
-torture
-execute $testcase