[gcc r14-4103] Add 'g++.target/nvptx/nvptx.exp' for nvptx-specific C++ test cases

[gcc r14-4103] Add 'g++.target/nvptx/nvptx.exp' for nvptx-specific C++ test cases

[Thomas Schwinge]

https://gcc.gnu.org/g:ade81bb9079f3b84e49300a283c05ee9dc3e2af4

commit r14-4103-gade81bb9079f3b84e49300a283c05ee9dc3e2af4
Author: Thomas Schwinge <thomas@codesourcery.com>
Date:   Mon Sep 18 16:35:56 2023 +0200

    Add 'g++.target/nvptx/nvptx.exp' for nvptx-specific C++ test cases
    
    Like 'gcc.target/nvptx/nvptx.exp' is modeled after 'gcc.dg/dg.exp', this new
    'g++.target/nvptx/nvptx.exp' is modeled after 'g++.dg/dg.exp'.
    
            gcc/testsuite/
            * g++.target/nvptx/nvptx.exp: New.

Diff:
---
 gcc/testsuite/g++.target/nvptx/nvptx.exp | 56 ++++++++++++++++++++++++++++++++
 1 file changed, 56 insertions(+)

diff --git a/gcc/testsuite/g++.target/nvptx/nvptx.exp b/gcc/testsuite/g++.target/nvptx/nvptx.exp
new file mode 100644
index 00000000000..7bde010171d
--- /dev/null
+++ b/gcc/testsuite/g++.target/nvptx/nvptx.exp
@@ -0,0 +1,56 @@
+# Specific regression driver for nvptx.
+#   Copyright (C) 2000-2023 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 3 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 GCC; see the file COPYING3.  If not see
+# <http://www.gnu.org/licenses/>.
+
+# G++ testsuite that uses the `dg.exp' driver.
+
+# Exit immediately if this isn't a nvptx target.
+if ![istarget nvptx*-*-*] then {
+  return
+}
+
+# Load support procs.
+load_lib g++-dg.exp
+
+# If a testcase doesn't have special options, use these.
+global DEFAULT_CXXFLAGS
+if ![info exists DEFAULT_CXXFLAGS] then {
+    set DEFAULT_CXXFLAGS " -pedantic-errors -Wno-long-long"
+}
+
+# Initialize `dg'.
+dg-init
+
+# Recursively find files in $dir and subdirs, do not walk into subdirs
+# that contain their own .exp file.
+proc find-cxx-tests { dir suffix } {
+    set tests [lsort [glob -nocomplain -directory $dir "*.$suffix" ]]
+    foreach subdir [lsort [glob -nocomplain -type d -directory $dir *]] {
+	if { [glob -nocomplain -directory $subdir *.exp] eq "" } {
+	    eval lappend tests [find-cxx-tests $subdir $suffix]
+	}
+    }
+    return $tests
+}
+
+set tests [find-cxx-tests $srcdir/$subdir {C}]
+
+# Main loop.
+g++-dg-runtest $tests "" $DEFAULT_CXXFLAGS
+
+
+# All done.
+dg-finish