gcc/testsuite/gdc.dg/analyzer/analyzer.exp

   1 #  Copyright (C) 2023 Free Software Foundation, Inc.
   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 gdc-dg.exp
  23
  24 # If the analyzer has not been enabled, bail.
  25 if { ![check_effective_target_analyzer] } {
  26     return
  27 }
  28
  29 global DEFAULT_DFLAGS
  30 if [info exists DEFAULT_DFLAGS] then {
  31   set save_default_dflags $DEFAULT_DFLAGS
  32 }
  33
  34 # If a testcase doesn't have special options, use these.
  35 set DEFAULT_DFLAGS "-fanalyzer -Wanalyzer-too-complex -fanalyzer-call-summaries"
  36
  37 # Initialize `dg'.
  38 dg-init
  39
  40 # Main loop.
  41 gdc-dg-runtest [lsort \
  42        [glob -nocomplain $srcdir/$subdir/*.d ] ] "" $DEFAULT_DFLAGS
  43
  44 # All done.
  45 dg-finish
  46
  47 if [info exists save_default_dflags] {
  48   set DEFAULT_DFLAGS $save_default_dflags
  49 } else {
  50   unset DEFAULT_DFLAGS
  51 }