1 # Copyright (C) 2003, 2007, 2008 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