gcc/testsuite/gfortran.dg/debug/debug.exp

   1 #  Copyright (C) 2008 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 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