[gcc r11-7580] Assorted testsuite fixes

[Eric Botcazou]

https://gcc.gnu.org/g:9f05c276ce3ccf09e52c1032bddc2218eba61ea1

commit r11-7580-g9f05c276ce3ccf09e52c1032bddc2218eba61ea1
Author: Eric Botcazou <ebotcazou@adacore.com>
Date:   Tue Mar 9 16:20:53 2021 +0100

    Assorted testsuite fixes
    
    First, gcc.dg/array-quals-1.c does not pass if the compiler is configured
    with --enable-default-pie because the sections change, so force -fno-pie.
    Second, replace *-*-solaris* with sparc*-*-* for gfortran.dg/pr95690.f90
    because this depends on the architecture rather than the OS.  Third force
    SRA to trigger on Aarch64 (like PowerPC) for gnat.dg/opt39.adb.
    
    gcc/testsuite/
            * gcc.dg/array-quals-1.c: Pass -fno-pie if supported.
            * gcc.dg/loop-9.c: Likewise.
            * gfortran.dg/pr95690.f90: Replace *-*-solaris* with sparc*-*-*.
            * gnat.dg/opt39.adb: Pass --param option for Aarch64 too.

Diff:
---
 gcc/testsuite/gcc.dg/array-quals-1.c  | 1 +
 gcc/testsuite/gcc.dg/loop-9.c         | 1 +
 gcc/testsuite/gfortran.dg/pr95690.f90 | 4 ++--
 gcc/testsuite/gnat.dg/opt39.adb       | 2 +-
 4 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/gcc/testsuite/gcc.dg/array-quals-1.c b/gcc/testsuite/gcc.dg/array-quals-1.c
index 5d9170ea81e..2c041649279 100644
--- a/gcc/testsuite/gcc.dg/array-quals-1.c
+++ b/gcc/testsuite/gcc.dg/array-quals-1.c
@@ -4,6 +4,7 @@
 /* Origin: Joseph Myers <jsm@polyomino.org.uk> */
 /* { dg-do compile } */
 /* { dg-options "-Wno-discarded-array-qualifiers" } */
+/* { dg-additional-options "-fno-pie" { target pie } } */
 /* The MMIX port always switches to the .data section at the end of a file.  */
 /* { dg-final { scan-assembler-not "\\.data(?!\\.rel\\.ro)" { xfail powerpc*-*-aix* mmix-*-* x86_64-*-mingw* } } } */
 /* { dg-final { scan-assembler-symbol-section {^_?a$} {^\.(const|rodata|srodata)|\[RO\]} } } */
diff --git a/gcc/testsuite/gcc.dg/loop-9.c b/gcc/testsuite/gcc.dg/loop-9.c
index 12f790a45ba..44f720653f2 100644
--- a/gcc/testsuite/gcc.dg/loop-9.c
+++ b/gcc/testsuite/gcc.dg/loop-9.c
@@ -1,5 +1,6 @@
 /* { dg-do compile } */
 /* { dg-options "-O1 -fdump-rtl-loop2_invariant" } */
+/* { dg-additional-options "-fno-pie" { target pie } } */
 
 void
 f (double *a)
diff --git a/gcc/testsuite/gfortran.dg/pr95690.f90 b/gcc/testsuite/gfortran.dg/pr95690.f90
index 7d8c68d1d7c..47a5df9e894 100644
--- a/gcc/testsuite/gfortran.dg/pr95690.f90
+++ b/gcc/testsuite/gfortran.dg/pr95690.f90
@@ -2,8 +2,8 @@
 module m
 contains
    subroutine s
-      print *, (erfc) ! { dg-error "not a floating constant" "" { target i?86-*-* x86_64-*-* *-*-solaris* cris-*-* } }
-   end ! { dg-error "not a floating constant" "" { target { ! "i?86-*-* x86_64-*-* *-*-solaris* cris-*-*" } } }
+      print *, (erfc) ! { dg-error "not a floating constant" "" { target i?86-*-* x86_64-*-* sparc*-*-* cris-*-* } }
+   end ! { dg-error "not a floating constant" "" { target { ! "i?86-*-* x86_64-*-* sparc*-*-* cris-*-*" } } }
    function erfc()
    end
 end
diff --git a/gcc/testsuite/gnat.dg/opt39.adb b/gcc/testsuite/gnat.dg/opt39.adb
index f2e983fd602..70f198617ce 100644
--- a/gcc/testsuite/gnat.dg/opt39.adb
+++ b/gcc/testsuite/gnat.dg/opt39.adb
@@ -1,6 +1,6 @@
 -- { dg-do compile }
 -- { dg-options "-O2 -fno-inline -fdump-tree-optimized" }
--- { dg-additional-options "-cargs --param=sra-max-scalarization-size-Ospeed=32 -margs" { target powerpc*-*-* } }
+-- { dg-additional-options "-cargs --param=sra-max-scalarization-size-Ospeed=32 -margs" { target aarch64-*-* powerpc*-*-* } }
 
 procedure Opt39 (I : Integer) is