]>
Commit | Line | Data |
---|---|---|
8d9254fc | 1 | # Copyright (C) 2008-2020 Free Software Foundation, Inc. |
7151ffbe GH |
2 | |
3 | # This file is part of GCC. | |
4 | # | |
5 | # GCC is free software; you can redistribute it and/or modify it under | |
6 | # the terms of the GNU General Public License as published by the Free | |
7 | # Software Foundation; either version 3, or (at your option) any later | |
8 | # version. | |
9 | # | |
10 | # GCC is distributed in the hope that it will be useful, but WITHOUT ANY | |
11 | # WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
12 | # FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
13 | # for more details. | |
14 | # | |
15 | # You should have received a copy of the GNU General Public License | |
16 | # along with GCC; see the file COPYING3. If not see | |
17 | # <http://www.gnu.org/licenses/>. | |
18 | ||
19 | # GCC testsuite that uses the `dg.exp' driver. | |
20 | ||
21 | # Load support procs. | |
22 | load_lib gfortran-dg.exp | |
23 | load_lib gfortran.exp | |
24 | ||
25 | # Debugging testsuite proc | |
26 | proc gfortran-debug-dg-test { prog do_what extra_tool_flags } { | |
27 | return [gfortran-dg-test $prog $do_what $extra_tool_flags] | |
28 | } | |
29 | ||
30 | # Initialize `dg'. | |
31 | dg-init | |
32 | ||
33 | # Main loop. | |
34 | ||
35 | gfortran_init | |
36 | ||
37 | gfortran-dg-debug-runtest gfortran_target_compile trivial.f "" \ | |
38 | [lsort [glob -nocomplain $srcdir/$subdir/*.\[fS\]]] | |
39 | ||
40 | # All done. | |
41 | dg-finish |