1# Expect driver script for GCC Regression Tests 2# Copyright (C) 2003-2021 Free Software Foundation, Inc. 3# 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. 8# 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. 13# 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/>. 17 18# These tests come from many different contributors. 19 20if $tracelevel then { 21 strace $tracelevel 22} 23 24# load support procs 25load_lib fortran-torture.exp 26load_lib torture-options.exp 27 28torture-init 29set-torture-options [get-fortran-torture-options] 30 31foreach testcase [lsort [glob -nocomplain $srcdir/$subdir/*.\[fF\]{,90,95,03,08} ]] { 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 { 34 continue 35 } 36 fortran-torture $testcase 37} 38 39torture-finish 40