URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [compile/] [compile.exp] - Blame information for rev 325

Go to most recent revision | Details | Compare with Previous | View Log


# Expect driver script for GCC Regression Tests
# Copyright (C) 2003, 2007, 2008 Free Software Foundation
#
# This file is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with GCC; see the file COPYING3.  If not see
# .
 
# These tests come from many different contributors.
 
if $tracelevel then {
    strace $tracelevel
}
 
# load support procs
load_lib fortran-torture.exp
load_lib torture-options.exp
 
torture-init
set-torture-options [get-fortran-torture-options]
 
foreach testcase [lsort [glob -nocomplain $srcdir/$subdir/*.f]] {
    # If we're only testing specific files and this isn't one of them, skip it.
    if ![runtest_file_p $runtests $testcase] then {
        continue
    }
    fortran-torture $testcase
}
 
foreach testcase [lsort [glob -nocomplain $srcdir/$subdir/*.F]] {
    if ![runtest_file_p $runtests $testcase] then {
        continue
    }
    fortran-torture $testcase
}
 
foreach testcase [lsort [glob -nocomplain $srcdir/$subdir/*.f90]] {
    if ![runtest_file_p $runtests $testcase] then {
        continue
    }
    fortran-torture $testcase
}
 
foreach testcase [lsort [glob -nocomplain $srcdir/$subdir/*.F90]] {
    if ![runtest_file_p $runtests $testcase] then {
        continue
    }
    fortran-torture $testcase
}
 
foreach testcase [lsort [glob -nocomplain $srcdir/$subdir/*.f95]] {
    if ![runtest_file_p $runtests $testcase] then {
        continue
    }
    fortran-torture $testcase
}
 
foreach testcase [lsort [glob -nocomplain $srcdir/$subdir/*.F95]] {
    if ![runtest_file_p $runtests $testcase] then {
        continue
    }
    fortran-torture $testcase
}
 
foreach testcase [lsort [glob -nocomplain $srcdir/$subdir/*.f03]] {
    if ![runtest_file_p $runtests $testcase] then {
        continue
    }
    fortran-torture $testcase
}
 
foreach testcase [lsort [glob -nocomplain $srcdir/$subdir/*.F03]] {
    if ![runtest_file_p $runtests $testcase] then {
        continue
    }
    fortran-torture $testcase
}
 
foreach testcase [lsort [glob -nocomplain $srcdir/$subdir/*.f08]] {
    if ![runtest_file_p $runtests $testcase] then {
        continue
    }
    fortran-torture $testcase
}
 
foreach testcase [lsort [glob -nocomplain $srcdir/$subdir/*.F08]] {
    if ![runtest_file_p $runtests $testcase] then {
        continue
    }
    fortran-torture $testcase
}
 
torture-finish

Line No.	Rev	Author	Line
1	303	jeremybenn	`# Expect driver script for GCC Regression Tests`
2			`# Copyright (C) 2003, 2007, 2008 Free Software Foundation`
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			`# .`
17
18			`# These tests come from many different contributors.`
19
20			`if $tracelevel then {`
21			`strace $tracelevel`
22			`}`
23
24			`# load support procs`
25			`load_lib fortran-torture.exp`
26			`load_lib torture-options.exp`
27
28			`torture-init`
29			`set-torture-options [get-fortran-torture-options]`
30
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 {`
34			`continue`
35			`}`
36			`fortran-torture $testcase`
37			`}`
38
39			`foreach testcase [lsort [glob -nocomplain $srcdir/$subdir/*.F]] {`
40			`if ![runtest_file_p $runtests $testcase] then {`
41			`continue`
42			`}`
43			`fortran-torture $testcase`
44			`}`
45
46			`foreach testcase [lsort [glob -nocomplain $srcdir/$subdir/*.f90]] {`
47			`if ![runtest_file_p $runtests $testcase] then {`
48			`continue`
49			`}`
50			`fortran-torture $testcase`
51			`}`
52
53			`foreach testcase [lsort [glob -nocomplain $srcdir/$subdir/*.F90]] {`
54			`if ![runtest_file_p $runtests $testcase] then {`
55			`continue`
56			`}`
57			`fortran-torture $testcase`
58			`}`
59
60			`foreach testcase [lsort [glob -nocomplain $srcdir/$subdir/*.f95]] {`
61			`if ![runtest_file_p $runtests $testcase] then {`
62			`continue`
63			`}`
64			`fortran-torture $testcase`
65			`}`
66
67			`foreach testcase [lsort [glob -nocomplain $srcdir/$subdir/*.F95]] {`
68			`if ![runtest_file_p $runtests $testcase] then {`
69			`continue`
70			`}`
71			`fortran-torture $testcase`
72			`}`
73
74			`foreach testcase [lsort [glob -nocomplain $srcdir/$subdir/*.f03]] {`
75			`if ![runtest_file_p $runtests $testcase] then {`
76			`continue`
77			`}`
78			`fortran-torture $testcase`
79			`}`
80
81			`foreach testcase [lsort [glob -nocomplain $srcdir/$subdir/*.F03]] {`
82			`if ![runtest_file_p $runtests $testcase] then {`
83			`continue`
84			`}`
85			`fortran-torture $testcase`
86			`}`
87
88			`foreach testcase [lsort [glob -nocomplain $srcdir/$subdir/*.f08]] {`
89			`if ![runtest_file_p $runtests $testcase] then {`
90			`continue`
91			`}`
92			`fortran-torture $testcase`
93			`}`
94
95			`foreach testcase [lsort [glob -nocomplain $srcdir/$subdir/*.F08]] {`
96			`if ![runtest_file_p $runtests $testcase] then {`
97			`continue`
98			`}`
99			`fortran-torture $testcase`
100			`}`
101
102			`torture-finish`

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [compile/] [compile.exp] - Blame information for rev 325