]>
Commit | Line | Data |
---|---|---|
a945c346 | 1 | # Copyright (C) 2020-2024 Free Software Foundation, Inc. |
e9fb7579 DM |
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 | # If the analyzer has not been enabled, bail. | |
26 | if { ![check_effective_target_analyzer] } { | |
27 | return | |
28 | } | |
29 | ||
30 | global DEFAULT_FFLAGS | |
31 | if [info exists DEFAULT_FFLAGS] then { | |
32 | set save_default_fflags $DEFAULT_FFLAGS | |
33 | } | |
34 | ||
35 | # If a testcase doesn't have special options, use these. | |
7345c89e | 36 | set DEFAULT_FFLAGS "-fanalyzer -Wanalyzer-too-complex -fanalyzer-call-summaries" |
e9fb7579 DM |
37 | |
38 | # Initialize `dg'. | |
39 | dg-init | |
40 | ||
41 | # Main loop. | |
42 | ||
43 | gfortran_init | |
44 | ||
45 | gfortran-dg-runtest [lsort \ | |
46 | [glob -nocomplain $srcdir/$subdir/*.\[fF\]{,90,95,03,08} ] ] "" $DEFAULT_FFLAGS | |
47 | ||
48 | # All done. | |
49 | dg-finish | |
50 | ||
51 | if [info exists save_default_fflags] { | |
52 | set DEFAULT_FFLAGS $save_default_fflags | |
53 | } else { | |
54 | unset DEFAULT_FFLAGS | |
55 | } |