diff options
Diffstat (limited to 'gcc/testsuite/gcc.dg/dg.exp')
-rw-r--r-- | gcc/testsuite/gcc.dg/dg.exp | 69 |
1 files changed, 0 insertions, 69 deletions
diff --git a/gcc/testsuite/gcc.dg/dg.exp b/gcc/testsuite/gcc.dg/dg.exp deleted file mode 100644 index 6edb5dcae01..00000000000 --- a/gcc/testsuite/gcc.dg/dg.exp +++ /dev/null @@ -1,69 +0,0 @@ -# Copyright (C) 1997 Free Software Foundation, Inc. - -# This program is free software; you can redistribute it and/or modify -# it under the terms of the GNU General Public License as published by -# the Free Software Foundation; either version 2 of the License, or -# (at your option) any later version. -# -# This program is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -# GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with this program; if not, write to the Free Software -# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. - -# Please email any bugs, comments, and/or additions to this file to: -# bug-gcc@prep.ai.mit.edu - -# GCC testsuite that uses the `dg.exp' driver. - -# Load support procs. -load_lib gcc-dg.exp - -# Utility for scanning compiler result, invoked via dg-final. -# Call pass if pattern is present, otherwise fail. -proc scan-assembler { testcase pattern } { - global subdir - - set fd [open [file rootname $testcase].s r] - set text [read $fd] - close $fd - - if [regexp -- $pattern $text] { - pass "$subdir/$testcase scan-assembler" - } else { - fail "$subdir/$testcase scan-assembler" - } -} - -# Call pass if pattern is not present, otherwise fail. -proc scan-assembler-not { testcase pattern } { - global subdir - - set fd [open [file rootname $testcase].s r] - set text [read $fd] - close $fd - - if ![regexp -- $pattern $text] { - pass "$subdir/$testcase scan-assembler-not" - } else { - fail "$subdir/$testcase scan-assembler-not" - } -} - -# If a testcase doesn't have special options, use these. -global DEFAULT_CFLAGS -if ![info exists DEFAULT_CFLAGS] then { - set DEFAULT_CFLAGS " -ansi -pedantic-errors" -} - -# Initialize `dg'. -dg-init - -# Main loop. -dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.c]] "" $DEFAULT_CFLAGS - -# All done. -dg-finish |