cobol: Don't run cobol tests with -m32 or -mx32 [PR119290]

The following patch adds cobol effective target and uses it to guard main
loop in cobol.dg/dg.exp, so that we don't run the tests on unsupported
multilibs.

Tested on x86_64-linux with
make check-cobol RUNTESTFLAGS='--target_board=unix\{-m32,-m64\} dg.exp'
which previously had all FAILs in the -m32 case and now doesn't report
any PASSes/FAILs/XFAILs/XPASSes etc, while for -m64 the testsuite is run
normally.

2025-03-14  Jakub Jelinek  <jakub@redhat.com>

	PR cobol/119290
	* lib/target-supports.exp (check_compile): Use *.cob extension for
	"*> COBOL" comment.
	* lib/cobol-dg.exp (check_effective_target_cobol): New procedure.
	* cobol.dg/dg.exp: Guard main loop with [check_effective_target_cobol]
	test.

diff --git a/gcc/testsuite/cobol.dg/dg.exp b/gcc/testsuite/cobol.dg/dg.exp
index c81634ac817051d48f1b92f8c7c2e8793d1fe0c3..e75e3ab18954722f662ad244d00b696b082c869e 100644 (file)
--- a/gcc/testsuite/cobol.dg/dg.exp
+++ b/gcc/testsuite/cobol.dg/dg.exp
@@ -34,8 +34,10 @@ set cobol_test_path $srcdir/$subdir
 set all_flags $DEFAULT_COBFLAGS
 
 # Main loop.
-cobol-dg-runtest [lsort \
+if [check_effective_target_cobol] {
+    cobol-dg-runtest [lsort \
        [glob -nocomplain $srcdir/$subdir/*.cob ] ] "" $all_flags
+}
 
 # All done.
 dg-finish

diff --git a/gcc/testsuite/lib/cobol-dg.exp b/gcc/testsuite/lib/cobol-dg.exp
index 51df13df19f1a9110dbe8db37992eb313a5ce456..1c512d5382abd2a4d736bc5dfea430013b0d3a4c 100644 (file)
--- a/gcc/testsuite/lib/cobol-dg.exp
+++ b/gcc/testsuite/lib/cobol-dg.exp
@@ -83,3 +83,14 @@ proc cobol-dg-runtest { testcases flags default-extra-flags } {
        torture-finish
     }
 }
+
+proc check_effective_target_cobol {} {
+    # Check if the COBOL FE can compile trivial programs.
+    return [check_no_compiler_messages cobol assembly {
+*> COBOL
+IDENTIFICATION DIVISION.
+PROGRAM-ID. pass.
+PROCEDURE DIVISION.
+    STOP RUN.
+    }]
+}

diff --git a/gcc/testsuite/lib/target-supports.exp b/gcc/testsuite/lib/target-supports.exp
index c456f7d2c6faea791cb6aea2fc8ebc994371ddd3..2a3bdd2579a513f923d63903972a4ead083d6bf5 100644 (file)
--- a/gcc/testsuite/lib/target-supports.exp
+++ b/gcc/testsuite/lib/target-supports.exp
@@ -38,6 +38,7 @@
 # "// ObjC++" for ObjC++
 # "// Go" for Go
 # "// Rust" for Rust
+# "*> COBOL" for COBOL
 # and "(* Modula-2" for Modula-2
 # If the tool is ObjC/ObjC++ then we overide the extension to .m/.mm to
 # allow for ObjC/ObjC++ specific flags.
@@ -72,6 +73,7 @@ proc check_compile {basename type contents args} {
        "*/\\* ObjC*" { set src ${basename}[pid].m }
        "*// Go*" { set src ${basename}[pid].go }
        "*// Rust*" { set src ${basename}[pid].rs }
+       "*\\*> COBOL*" { set src ${basename}[pid].cob }
        "*(\\* Modula-2*" { set src ${basename}[pid].mod }
        default {
            switch -- $tool {