IBM Z: Do not run long double tests on old machines

gcc/testsuite/ChangeLog:

2020-11-12  Ilya Leoshkevich  <iii@linux.ibm.com>

	* gcc.target/s390/s390.exp (check_effective_target_s390_z14_hw):
	New predicate.
	* gcc.target/s390/vector/long-double-caller-abi-run.c: Use the
	new predicate.
	* gcc.target/s390/vector/long-double-copysign.c: Likewise.
	* gcc.target/s390/vector/long-double-from-double.c: Likewise.
	* gcc.target/s390/vector/long-double-from-float.c: Likewise.
	* gcc.target/s390/vector/long-double-from-i16.c: Likewise.
	* gcc.target/s390/vector/long-double-from-i32.c: Likewise.
	* gcc.target/s390/vector/long-double-from-i64.c: Likewise.
	* gcc.target/s390/vector/long-double-from-i8.c: Likewise.
	* gcc.target/s390/vector/long-double-from-u16.c: Likewise.
	* gcc.target/s390/vector/long-double-from-u32.c: Likewise.
	* gcc.target/s390/vector/long-double-from-u64.c: Likewise.
	* gcc.target/s390/vector/long-double-from-u8.c: Likewise.
	* gcc.target/s390/vector/long-double-to-double.c: Likewise.
	* gcc.target/s390/vector/long-double-to-float.c: Likewise.
	* gcc.target/s390/vector/long-double-to-i16.c: Likewise.
	* gcc.target/s390/vector/long-double-to-i32.c: Likewise.
	* gcc.target/s390/vector/long-double-to-i64.c: Likewise.
	* gcc.target/s390/vector/long-double-to-i8.c: Likewise.
	* gcc.target/s390/vector/long-double-to-u16.c: Likewise.
	* gcc.target/s390/vector/long-double-to-u32.c: Likewise.
	* gcc.target/s390/vector/long-double-to-u64.c: Likewise.
	* gcc.target/s390/vector/long-double-to-u8.c: Likewise.
	* gcc.target/s390/vector/long-double-wfaxb.c: Likewise.
	* gcc.target/s390/vector/long-double-wfdxb.c: Likewise.
	* gcc.target/s390/vector/long-double-wfsxb-1.c: Likewise.

diff --git a/gcc/testsuite/gcc.target/s390/s390.exp b/gcc/testsuite/gcc.target/s390/s390.exp
index 387a720..00e0555 100644 (file)
--- a/gcc/testsuite/gcc.target/s390/s390.exp
+++ b/gcc/testsuite/gcc.target/s390/s390.exp
@@ -192,6 +192,16 @@ proc check_effective_target_s390_z13_hw { } {
        }
     }] "-march=z13 -m64 -mzarch" ] } { return 0 } else { return 1 }
 }
+proc check_effective_target_s390_z14_hw { } {
+    if { ![check_runtime s390_check_s390_z14_hw [subst {
+       int main (void)
+       {
+           int x = 0;
+           asm ("msgrkc %%0,%%0,%%0" : "+r" (x) : );
+           return x;
+       }
+    }] "-march=z14 -m64 -mzarch" ] } { return 0 } else { return 1 }
+}
 
 # If a testcase doesn't have special options, use these.
 global DEFAULT_CFLAGS

diff --git a/gcc/testsuite/gcc.target/s390/vector/long-double-caller-abi-run.c b/gcc/testsuite/gcc.target/s390/vector/long-double-caller-abi-run.c
index f3a41ba..f7315f6 100644 (file)
--- a/gcc/testsuite/gcc.target/s390/vector/long-double-caller-abi-run.c
+++ b/gcc/testsuite/gcc.target/s390/vector/long-double-caller-abi-run.c
@@ -1,4 +1,5 @@
-/* { dg-do run } */
+/* { dg-do compile } */
 /* { dg-options "-O3 -march=z14 -mzarch" } */
+/* { dg-do run { target { s390_z14_hw } } } */
 #include "long-double-callee-abi-scan.c"
 #include "long-double-caller-abi-scan.c"

diff --git a/gcc/testsuite/gcc.target/s390/vector/long-double-copysign.c b/gcc/testsuite/gcc.target/s390/vector/long-double-copysign.c
index 3115195..5d69e0f 100644 (file)
--- a/gcc/testsuite/gcc.target/s390/vector/long-double-copysign.c
+++ b/gcc/testsuite/gcc.target/s390/vector/long-double-copysign.c
@@ -1,5 +1,6 @@
-/* { dg-do run } */
+/* { dg-do compile } */
 /* { dg-options "-O3 -march=z14 -mzarch --save-temps" } */
+/* { dg-do run { target { s390_z14_hw } } } */
 #include <assert.h>
 #include <stdint.h>
 

diff --git a/gcc/testsuite/gcc.target/s390/vector/long-double-from-double.c b/gcc/testsuite/gcc.target/s390/vector/long-double-from-double.c
index 5eb31f8..d98e44d 100644 (file)
--- a/gcc/testsuite/gcc.target/s390/vector/long-double-from-double.c
+++ b/gcc/testsuite/gcc.target/s390/vector/long-double-from-double.c
@@ -1,5 +1,6 @@
-/* { dg-do run } */
+/* { dg-do compile } */
 /* { dg-options "-O3 -march=z14 -mzarch --save-temps" } */
+/* { dg-do run { target { s390_z14_hw } } } */
 #include <assert.h>
 
 __attribute__ ((noipa)) static long double

diff --git a/gcc/testsuite/gcc.target/s390/vector/long-double-from-float.c b/gcc/testsuite/gcc.target/s390/vector/long-double-from-float.c
index 0449f0c..0ddd47d 100644 (file)
--- a/gcc/testsuite/gcc.target/s390/vector/long-double-from-float.c
+++ b/gcc/testsuite/gcc.target/s390/vector/long-double-from-float.c
@@ -1,5 +1,6 @@
-/* { dg-do run } */
+/* { dg-do compile } */
 /* { dg-options "-O3 -march=z14 -mzarch --save-temps" } */
+/* { dg-do run { target { s390_z14_hw } } } */
 #include <assert.h>
 
 __attribute__ ((noipa)) static long double

diff --git a/gcc/testsuite/gcc.target/s390/vector/long-double-from-i16.c b/gcc/testsuite/gcc.target/s390/vector/long-double-from-i16.c
index 68b164d..f7d37c9 100644 (file)
--- a/gcc/testsuite/gcc.target/s390/vector/long-double-from-i16.c
+++ b/gcc/testsuite/gcc.target/s390/vector/long-double-from-i16.c
@@ -1,5 +1,6 @@
-/* { dg-do run } */
+/* { dg-do compile } */
 /* { dg-options "-O3 -march=z14 -mzarch --save-temps" } */
+/* { dg-do run { target { s390_z14_hw } } } */
 #include <assert.h>
 #include <stdint.h>
 

diff --git a/gcc/testsuite/gcc.target/s390/vector/long-double-from-i32.c b/gcc/testsuite/gcc.target/s390/vector/long-double-from-i32.c
index ad8443b..49d919d 100644 (file)
--- a/gcc/testsuite/gcc.target/s390/vector/long-double-from-i32.c
+++ b/gcc/testsuite/gcc.target/s390/vector/long-double-from-i32.c
@@ -1,5 +1,6 @@
-/* { dg-do run } */
+/* { dg-do compile } */
 /* { dg-options "-O3 -march=z14 -mzarch --save-temps" } */
+/* { dg-do run { target { s390_z14_hw } } } */
 #include <assert.h>
 #include <stdint.h>
 

diff --git a/gcc/testsuite/gcc.target/s390/vector/long-double-from-i64.c b/gcc/testsuite/gcc.target/s390/vector/long-double-from-i64.c
index 3d2c424..986a5eb 100644 (file)
--- a/gcc/testsuite/gcc.target/s390/vector/long-double-from-i64.c
+++ b/gcc/testsuite/gcc.target/s390/vector/long-double-from-i64.c
@@ -1,5 +1,6 @@
-/* { dg-do run } */
+/* { dg-do compile } */
 /* { dg-options "-O3 -march=z14 -mzarch --save-temps" } */
+/* { dg-do run { target { s390_z14_hw } } } */
 #include <assert.h>
 #include <stdint.h>
 

diff --git a/gcc/testsuite/gcc.target/s390/vector/long-double-from-i8.c b/gcc/testsuite/gcc.target/s390/vector/long-double-from-i8.c
index 44c8c9d..9356af1 100644 (file)
--- a/gcc/testsuite/gcc.target/s390/vector/long-double-from-i8.c
+++ b/gcc/testsuite/gcc.target/s390/vector/long-double-from-i8.c
@@ -1,5 +1,6 @@
-/* { dg-do run } */
+/* { dg-do compile } */
 /* { dg-options "-O3 -march=z14 -mzarch --save-temps" } */
+/* { dg-do run { target { s390_z14_hw } } } */
 #include <assert.h>
 #include <stdint.h>
 

diff --git a/gcc/testsuite/gcc.target/s390/vector/long-double-from-u16.c b/gcc/testsuite/gcc.target/s390/vector/long-double-from-u16.c
index f10c298..3aafeb4 100644 (file)
--- a/gcc/testsuite/gcc.target/s390/vector/long-double-from-u16.c
+++ b/gcc/testsuite/gcc.target/s390/vector/long-double-from-u16.c
@@ -1,5 +1,6 @@
-/* { dg-do run } */
+/* { dg-do compile } */
 /* { dg-options "-O3 -march=z14 -mzarch --save-temps" } */
+/* { dg-do run { target { s390_z14_hw } } } */
 #include <assert.h>
 #include <stdint.h>
 

diff --git a/gcc/testsuite/gcc.target/s390/vector/long-double-from-u32.c b/gcc/testsuite/gcc.target/s390/vector/long-double-from-u32.c
index 2763fb4..655f5d7 100644 (file)
--- a/gcc/testsuite/gcc.target/s390/vector/long-double-from-u32.c
+++ b/gcc/testsuite/gcc.target/s390/vector/long-double-from-u32.c
@@ -1,5 +1,6 @@
-/* { dg-do run } */
+/* { dg-do compile } */
 /* { dg-options "-O3 -march=z14 -mzarch --save-temps" } */
+/* { dg-do run { target { s390_z14_hw } } } */
 #include <assert.h>
 #include <stdint.h>
 

diff --git a/gcc/testsuite/gcc.target/s390/vector/long-double-from-u64.c b/gcc/testsuite/gcc.target/s390/vector/long-double-from-u64.c
index 4686dfd..601ff9c 100644 (file)
--- a/gcc/testsuite/gcc.target/s390/vector/long-double-from-u64.c
+++ b/gcc/testsuite/gcc.target/s390/vector/long-double-from-u64.c
@@ -1,5 +1,6 @@
-/* { dg-do run } */
+/* { dg-do compile } */
 /* { dg-options "-O3 -march=z14 -mzarch --save-temps" } */
+/* { dg-do run { target { s390_z14_hw } } } */
 #include <assert.h>
 #include <stdint.h>
 

diff --git a/gcc/testsuite/gcc.target/s390/vector/long-double-from-u8.c b/gcc/testsuite/gcc.target/s390/vector/long-double-from-u8.c
index 3e6eb92..a43b4c8 100644 (file)
--- a/gcc/testsuite/gcc.target/s390/vector/long-double-from-u8.c
+++ b/gcc/testsuite/gcc.target/s390/vector/long-double-from-u8.c
@@ -1,5 +1,6 @@
-/* { dg-do run } */
+/* { dg-do compile } */
 /* { dg-options "-O3 -march=z14 -mzarch --save-temps" } */
+/* { dg-do run { target { s390_z14_hw } } } */
 #include <assert.h>
 #include <stdint.h>
 

diff --git a/gcc/testsuite/gcc.target/s390/vector/long-double-to-double.c b/gcc/testsuite/gcc.target/s390/vector/long-double-to-double.c
index 88aa053..71ed8b2 100644 (file)
--- a/gcc/testsuite/gcc.target/s390/vector/long-double-to-double.c
+++ b/gcc/testsuite/gcc.target/s390/vector/long-double-to-double.c
@@ -1,5 +1,6 @@
-/* { dg-do run } */
+/* { dg-do compile } */
 /* { dg-options "-O3 -march=z14 -mzarch --save-temps" } */
+/* { dg-do run { target { s390_z14_hw } } } */
 #include <assert.h>
 
 __attribute__ ((noipa)) static double

diff --git a/gcc/testsuite/gcc.target/s390/vector/long-double-to-float.c b/gcc/testsuite/gcc.target/s390/vector/long-double-to-float.c
index 36fd429..a2855e0 100644 (file)
--- a/gcc/testsuite/gcc.target/s390/vector/long-double-to-float.c
+++ b/gcc/testsuite/gcc.target/s390/vector/long-double-to-float.c
@@ -1,5 +1,6 @@
-/* { dg-do run } */
+/* { dg-do compile } */
 /* { dg-options "-O3 -march=z14 -mzarch --save-temps" } */
+/* { dg-do run { target { s390_z14_hw } } } */
 #include <assert.h>
 
 __attribute__ ((noipa)) static float

diff --git a/gcc/testsuite/gcc.target/s390/vector/long-double-to-i16.c b/gcc/testsuite/gcc.target/s390/vector/long-double-to-i16.c
index ddfc668..1dd0e81 100644 (file)
--- a/gcc/testsuite/gcc.target/s390/vector/long-double-to-i16.c
+++ b/gcc/testsuite/gcc.target/s390/vector/long-double-to-i16.c
@@ -1,5 +1,6 @@
-/* { dg-do run } */
+/* { dg-do compile } */
 /* { dg-options "-O3 -march=z14 -mzarch --save-temps" } */
+/* { dg-do run { target { s390_z14_hw } } } */
 #include <assert.h>
 #include <stdint.h>
 

diff --git a/gcc/testsuite/gcc.target/s390/vector/long-double-to-i32.c b/gcc/testsuite/gcc.target/s390/vector/long-double-to-i32.c
index 975a5de..0d5678b 100644 (file)
--- a/gcc/testsuite/gcc.target/s390/vector/long-double-to-i32.c
+++ b/gcc/testsuite/gcc.target/s390/vector/long-double-to-i32.c
@@ -1,5 +1,6 @@
-/* { dg-do run } */
+/* { dg-do compile } */
 /* { dg-options "-O3 -march=z14 -mzarch --save-temps" } */
+/* { dg-do run { target { s390_z14_hw } } } */
 #include <assert.h>
 #include <stdint.h>
 

diff --git a/gcc/testsuite/gcc.target/s390/vector/long-double-to-i64.c b/gcc/testsuite/gcc.target/s390/vector/long-double-to-i64.c
index 6bd5079..2dbbb5d 100644 (file)
--- a/gcc/testsuite/gcc.target/s390/vector/long-double-to-i64.c
+++ b/gcc/testsuite/gcc.target/s390/vector/long-double-to-i64.c
@@ -1,5 +1,6 @@
-/* { dg-do run } */
+/* { dg-do compile } */
 /* { dg-options "-O3 -march=z14 -mzarch --save-temps" } */
+/* { dg-do run { target { s390_z14_hw } } } */
 #include <assert.h>
 #include <stdint.h>
 

diff --git a/gcc/testsuite/gcc.target/s390/vector/long-double-to-i8.c b/gcc/testsuite/gcc.target/s390/vector/long-double-to-i8.c
index 46e6d6b..9b0b45d 100644 (file)
--- a/gcc/testsuite/gcc.target/s390/vector/long-double-to-i8.c
+++ b/gcc/testsuite/gcc.target/s390/vector/long-double-to-i8.c
@@ -1,5 +1,6 @@
-/* { dg-do run } */
+/* { dg-do compile } */
 /* { dg-options "-O3 -march=z14 -mzarch --save-temps" } */
+/* { dg-do run { target { s390_z14_hw } } } */
 #include <assert.h>
 #include <stdint.h>
 

diff --git a/gcc/testsuite/gcc.target/s390/vector/long-double-to-u16.c b/gcc/testsuite/gcc.target/s390/vector/long-double-to-u16.c
index 0690f3d..f9ad0c6 100644 (file)
--- a/gcc/testsuite/gcc.target/s390/vector/long-double-to-u16.c
+++ b/gcc/testsuite/gcc.target/s390/vector/long-double-to-u16.c
@@ -1,5 +1,6 @@
-/* { dg-do run } */
+/* { dg-do compile } */
 /* { dg-options "-O3 -march=z14 -mzarch --save-temps" } */
+/* { dg-do run { target { s390_z14_hw } } } */
 #include <assert.h>
 #include <stdint.h>
 

diff --git a/gcc/testsuite/gcc.target/s390/vector/long-double-to-u32.c b/gcc/testsuite/gcc.target/s390/vector/long-double-to-u32.c
index aa0e318..37b0616 100644 (file)
--- a/gcc/testsuite/gcc.target/s390/vector/long-double-to-u32.c
+++ b/gcc/testsuite/gcc.target/s390/vector/long-double-to-u32.c
@@ -1,5 +1,6 @@
-/* { dg-do run } */
+/* { dg-do compile } */
 /* { dg-options "-O3 -march=z14 -mzarch --save-temps" } */
+/* { dg-do run { target { s390_z14_hw } } } */
 #include <assert.h>
 #include <stdint.h>
 

diff --git a/gcc/testsuite/gcc.target/s390/vector/long-double-to-u64.c b/gcc/testsuite/gcc.target/s390/vector/long-double-to-u64.c
index e37b65e..051934d 100644 (file)
--- a/gcc/testsuite/gcc.target/s390/vector/long-double-to-u64.c
+++ b/gcc/testsuite/gcc.target/s390/vector/long-double-to-u64.c
@@ -1,5 +1,6 @@
-/* { dg-do run } */
+/* { dg-do compile } */
 /* { dg-options "-O3 -march=z14 -mzarch --save-temps" } */
+/* { dg-do run { target { s390_z14_hw } } } */
 #include <assert.h>
 #include <stdint.h>
 

diff --git a/gcc/testsuite/gcc.target/s390/vector/long-double-to-u8.c b/gcc/testsuite/gcc.target/s390/vector/long-double-to-u8.c
index bddbff8..cf3204c 100644 (file)
--- a/gcc/testsuite/gcc.target/s390/vector/long-double-to-u8.c
+++ b/gcc/testsuite/gcc.target/s390/vector/long-double-to-u8.c
@@ -1,5 +1,6 @@
-/* { dg-do run } */
+/* { dg-do compile } */
 /* { dg-options "-O3 -march=z14 -mzarch --save-temps" } */
+/* { dg-do run { target { s390_z14_hw } } } */
 #include <assert.h>
 #include <stdint.h>
 

diff --git a/gcc/testsuite/gcc.target/s390/vector/long-double-wfaxb.c b/gcc/testsuite/gcc.target/s390/vector/long-double-wfaxb.c
index 1b35c1c..5a10bd1 100644 (file)
--- a/gcc/testsuite/gcc.target/s390/vector/long-double-wfaxb.c
+++ b/gcc/testsuite/gcc.target/s390/vector/long-double-wfaxb.c
@@ -1,5 +1,6 @@
-/* { dg-do run } */
+/* { dg-do compile } */
 /* { dg-options "-O3 -march=z14 -mzarch --save-temps" } */
+/* { dg-do run { target { s390_z14_hw } } } */
 #include <assert.h>
 
 __attribute__ ((noipa)) static long double

diff --git a/gcc/testsuite/gcc.target/s390/vector/long-double-wfdxb.c b/gcc/testsuite/gcc.target/s390/vector/long-double-wfdxb.c
index 16b4893..db517e9 100644 (file)
--- a/gcc/testsuite/gcc.target/s390/vector/long-double-wfdxb.c
+++ b/gcc/testsuite/gcc.target/s390/vector/long-double-wfdxb.c
@@ -1,5 +1,6 @@
-/* { dg-do run } */
+/* { dg-do compile } */
 /* { dg-options "-O3 -march=z14 -mzarch --save-temps" } */
+/* { dg-do run { target { s390_z14_hw } } } */
 #include <assert.h>
 
 __attribute__ ((noipa)) static long double

diff --git a/gcc/testsuite/gcc.target/s390/vector/long-double-wfsxb-1.c b/gcc/testsuite/gcc.target/s390/vector/long-double-wfsxb-1.c
index 20960d0..06750a6 100644 (file)
--- a/gcc/testsuite/gcc.target/s390/vector/long-double-wfsxb-1.c
+++ b/gcc/testsuite/gcc.target/s390/vector/long-double-wfsxb-1.c
@@ -1,5 +1,6 @@
-/* { dg-do run } */
+/* { dg-do compile } */
 /* { dg-options "-O3 -march=z14 -mzarch" } */
+/* { dg-do run { target { s390_z14_hw } } } */
 #include <assert.h>
 
 typedef float tf __attribute__ ((mode (TF)));