gcc/testsuite/gfortran.dg/ubsan/ubsan.exp

   1 # Copyright (C) 2021-2022 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
   6 # it under the terms of the GNU General Public License as published by
   7 # the Free Software Foundation; either version 3, or (at your option)
   8 # any later version.
   9 #
  10 # GCC is distributed in the hope that it will be useful,
  11 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13 # GNU General Public License 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 for gfortran that checks undefined behavior sanitizer.
  20
  21 # Load support procs.
  22 load_lib gfortran-dg.exp
  23 load_lib ubsan-dg.exp
  24
  25
  26 # Initialize `dg'.
  27 dg-init
  28 ubsan_init
  29
  30 # Main loop.
  31 if [check_effective_target_fsanitize_undefined] {
  32     gfortran-dg-runtest [lsort \
  33        [glob -nocomplain $srcdir/$subdir/*.\[fF\]{,90,95,03,08} ] ] "" ""
  34 }
  35
  36 # All done.
  37 ubsan_finish
  38 dg-finish