gcc/testsuite/gcc.target/cris/cris.exp

   1 #   Copyright (C) 2005-2024 Free Software Foundation, Inc.
   2
   3 # This program is free software; you can redistribute it and/or modify
   4 # it under the terms of the GNU General Public License as published by
   5 # the Free Software Foundation; either version 3 of the License, or
   6 # (at your option) any later version.
   7 #
   8 # This program is distributed in the hope that it will be useful,
   9 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11 # GNU General Public License for more details.
  12 #
  13 # You should have received a copy of the GNU General Public License
  14 # along with GCC; see the file COPYING3.  If not see
  15 # <http://www.gnu.org/licenses/>.
  16
  17 # GCC testsuite that uses the `gcc-dg.exp' driver, just a single option, no
  18 # looping over tests.
  19
  20 # Exit immediately if this isn't a CRIS target.
  21 if { ![istarget cris-*-*] } then {
  22   return
  23 }
  24
  25 # Load support procs.
  26 load_lib gcc-dg.exp
  27
  28 # For the time being, provide a means to tell whether the target is "cc0".
  29 # Some targets may split cbranch and cstore late, but for a cc0-target,
  30 # all the fun happens at "final" time, so this should be a safe time for
  31 # a scan.
  32 proc check_effective_target_cc0 { } {
  33     return [check_no_messages_and_pattern cc0 "\\(cc0\\)" rtl-final {
  34         extern void g (void);
  35         void f (int *p, int *q) { *q = *p == 42; if (*p == 7) g (); }
  36     }]
  37 }
  38
  39 # If a testcase doesn't have special options, use these.
  40 global DEFAULT_CFLAGS
  41 if ![info exists DEFAULT_CFLAGS] then {
  42     set DEFAULT_CFLAGS " -ansi -pedantic-errors"
  43 }
  44
  45 # Initialize `dg'.
  46 dg-init
  47
  48 # Main loop.
  49 dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.\[cS\]]] "" $DEFAULT_CFLAGS
  50
  51 # All done.
  52 dg-finish