Группа :: Разработка/C
Пакет: gcc10
Главная Изменения Спек Патчи Sources Загрузить Gear Bugs and FR Repocop
Патч: alt-testsuite-Wtrampolines.patch
Скачать
Скачать
From 0c6f1885e2ebc3898c761ffeba402c6689c72cb6 Mon Sep 17 00:00:00 2001
From: Gleb Fotengauer-Malinovskiy <glebfm@altlinux.org>
Date: Mon, 5 Dec 2016 23:08:15 +0300
Subject: [PATCH] Fix tests failing with -Wtrampolines
Add -Wno-trampolines to dg-options:
sed -e 's/dg-options\([[:blank:]]*"[^"]*\)"/dg-options\1 -Wno-trampolines"/' -i
Add dg-options with -Wno-trampolines:
(c/c++) sed -e '1 i\/* { dg-options "-Wno-trampolines" } */' -i
(ada) sed -e '1 i\-- { dg-options "-Wno-trampolines" }' -i
(fortran) sed -e '1 i\! { dg-options "-Wno-trampolines" }' -i
--- gcc/gcc/testsuite/g++.dg/init/elide3.C
+++ gcc/gcc/testsuite/g++.dg/init/elide3.C
@@ -1,5 +1,6 @@
// PR c++/67557
// { dg-do run }
+/* { dg-options "-Wformat=0" } */
namespace std
{
--- gcc/gcc/testsuite/gcc.dg/20050607-1.c
+++ gcc/gcc/testsuite/gcc.dg/20050607-1.c
@@ -1,6 +1,6 @@
/* { dg-do compile } */
/* { dg-require-effective-target trampolines } */
-/* { dg-options "-Wpadded" }
+/* { dg-options "-Wpadded -Wno-trampolines" } */
/* The struct internally constructed for the nested function should
not result in a warning from -Wpadded. */
extern int baz(int (*) (int));
--- gcc/gcc/testsuite/gcc.dg/debug/debug-3.c
+++ gcc/gcc/testsuite/gcc.dg/debug/debug-3.c
@@ -1,3 +1,4 @@
+/* { dg-options "-Wno-trampolines" } */
/* This testcase failed, because scope containing baz was deleted
(spanned 0 basic blocks) and DWARF-2 couldn't find baz origin. */
/* { dg-do compile } */
--- gcc/gcc/testsuite/gcc.dg/debug/debug-5.c
+++ gcc/gcc/testsuite/gcc.dg/debug/debug-5.c
@@ -1,3 +1,4 @@
+/* { dg-options "-Wno-trampolines" } */
/* This testcase failed, because scope containing baz was deleted
(spanned 0 basic blocks) and DWARF-2 couldn't find baz origin. */
/* { dg-do compile } */
--- gcc/gcc/testsuite/gcc.dg/gomp/pr66633-1.c
+++ gcc/gcc/testsuite/gcc.dg/gomp/pr66633-1.c
@@ -1,6 +1,6 @@
/* PR middle-end/66633 */
/* { dg-do compile } */
-/* { dg-options "-fopenmp -O1" } */
+/* { dg-options "-fopenmp -O1 -Wno-trampolines" } */
void baz (int (*) ());
--- gcc/gcc/testsuite/gcc.dg/gomp/pr66633-2.c
+++ gcc/gcc/testsuite/gcc.dg/gomp/pr66633-2.c
@@ -1,5 +1,5 @@
/* PR middle-end/66633 */
/* { dg-do compile } */
-/* { dg-options "-fopenmp -O0" } */
+/* { dg-options "-fopenmp -O0 -Wno-trampolines" } */
#include "pr66633-1.c"
--- gcc/gcc/testsuite/gcc.dg/gomp/pr66633-3.c
+++ gcc/gcc/testsuite/gcc.dg/gomp/pr66633-3.c
@@ -1,6 +1,6 @@
/* PR middle-end/66633 */
/* { dg-do compile } */
-/* { dg-options "-fopenmp -O1" } */
+/* { dg-options "-fopenmp -O1 -Wno-trampolines" } */
void baz (int (*) ());
--- gcc/gcc/testsuite/gcc.dg/gomp/pr66633-4.c
+++ gcc/gcc/testsuite/gcc.dg/gomp/pr66633-4.c
@@ -1,5 +1,5 @@
/* PR middle-end/66633 */
/* { dg-do compile } */
-/* { dg-options "-fopenmp -O0" } */
+/* { dg-options "-fopenmp -O0 -Wno-trampolines" } */
#include "pr66633-3.c"
--- gcc/gcc/testsuite/gcc.dg/nested-func-5.c
+++ gcc/gcc/testsuite/gcc.dg/nested-func-5.c
@@ -1,5 +1,5 @@
/* { dg-do compile } */
-/* { dg-options "-fexceptions" } */
+/* { dg-options "-fexceptions -Wno-trampolines" } */
/* PR28516: ICE generating ARM unwind directives for nested functions. */
/* { dg-require-effective-target trampolines } */
--- gcc/gcc/testsuite/gcc.dg/pr34457-1.c
+++ gcc/gcc/testsuite/gcc.dg/pr34457-1.c
@@ -2,7 +2,7 @@
/* { dg-do link } */
/* { dg-require-effective-target trampolines } */
/* { dg-require-effective-target lto } */
-/* { dg-options "-flto -O2" } */
+/* { dg-options "-flto -O2 -Wno-trampolines" } */
/* { dg-additional-sources "pr34457-2.c" } */
--- gcc/gcc/testsuite/gcc.dg/torture/nested-fn-1.c
+++ gcc/gcc/testsuite/gcc.dg/torture/nested-fn-1.c
@@ -1,7 +1,7 @@
/* PR middle-end/15345, c/16450 */
/* Test whether unused nested functions aren't emitted into the assembly. */
/* { dg-do compile } */
-/* { dg-options "-g0" } */
+/* { dg-options "-g0 -Wno-trampolines" } */
/* { dg-require-effective-target trampolines } */
int
--- gcc/gcc/testsuite/gcc.dg/torture/pr86389.c
+++ gcc/gcc/testsuite/gcc.dg/torture/pr86389.c
@@ -1,4 +1,5 @@
/* { dg-do run } */
+/* { dg-options "-Wno-trampolines" } */
/* { dg-require-effective-target trampolines } */
/* { dg-additional-options "-fipa-pta" } */
--- gcc/gcc/testsuite/gcc.dg/torture/stackalign/nested-5.c
+++ gcc/gcc/testsuite/gcc.dg/torture/stackalign/nested-5.c
@@ -1,3 +1,4 @@
+/* { dg-options "-Wno-trampolines" } */
/* { dg-do run } */
/* { dg-require-effective-target trampolines } */
--- gcc/gcc/testsuite/gcc.dg/torture/stackalign/nested-6.c
+++ gcc/gcc/testsuite/gcc.dg/torture/stackalign/nested-6.c
@@ -1,3 +1,4 @@
+/* { dg-options "-Wno-trampolines" } */
/* { dg-do run } */
/* { dg-require-effective-target trampolines } */
--- gcc/gcc/testsuite/gcc.dg/trampoline-1.c
+++ gcc/gcc/testsuite/gcc.dg/trampoline-1.c
@@ -3,7 +3,7 @@
/* { dg-do run } */
/* { dg-require-effective-target trampolines } */
-/* { dg-options "-O2" } */
+/* { dg-options "-O2 -Wno-trampolines" } */
/* This used to fail on various versions of Solaris 2 because the
trampoline couldn't be made executable. */
--- gcc/gcc/testsuite/gcc.dg/tree-ssa/tailcall-7-run.c
+++ gcc/gcc/testsuite/gcc.dg/tree-ssa/tailcall-7-run.c
@@ -1,5 +1,5 @@
/* { dg-do run { target trampolines } } */
-/* { dg-options "-O2" } */
+/* { dg-options "-Wno-trampolines -O2" } */
/* { dg-additional-sources "tailcall-7.c" } */
struct s { int x; };
--- gcc/gcc/testsuite/gcc.dg/tree-ssa/tailcall-7.c
+++ gcc/gcc/testsuite/gcc.dg/tree-ssa/tailcall-7.c
@@ -1,5 +1,5 @@
/* { dg-do compile { target trampolines } } */
-/* { dg-options "-O2 -fdump-tree-tailc-details" } */
+/* { dg-options "-Wno-trampolines -O2 -fdump-tree-tailc-details" } */
struct s { int x; };
struct s f (int);
--- gcc/gcc/testsuite/gcc.target/aarch64/sls-mitigation/sls-miti-retbr.c
+++ gcc/gcc/testsuite/gcc.target/aarch64/sls-mitigation/sls-miti-retbr.c
@@ -1,6 +1,6 @@
/* We ensure that -Wpedantic is off since it complains about the trampolines
we explicitly want to test. */
-/* { dg-additional-options "-mharden-sls=retbr -Wno-pedantic " } */
+/* { dg-additional-options "-mharden-sls=retbr -Wno-trampolines -Wno-pedantic " } */
/*
Ensure that the SLS hardening of RET and BR leaves no unprotected RET/BR
instructions.
--- gcc/gcc/testsuite/gcc.target/arm/pr84826.c
+++ gcc/gcc/testsuite/gcc.target/arm/pr84826.c
@@ -1,6 +1,6 @@
/* { dg-do compile } */
/* { dg-require-effective-target arm_thumb2_ok } */
-/* { dg-options "-Ofast -fstack-clash-protection" } */
+/* { dg-options "-Wno-trampolines -Ofast -fstack-clash-protection" } */
void d (void *);
--- gcc/gcc/testsuite/gcc.target/i386/pr67770.c
+++ gcc/gcc/testsuite/gcc.target/i386/pr67770.c
@@ -1,5 +1,6 @@
/* PR target/67770 */
/* { dg-do run { target ia32 } } */
+/* { dg-options "-Wno-trampolines" } */
/* { dg-require-effective-target trampolines } */
/* { dg-options "-O2" } */
--- gcc/gcc/testsuite/gcc.target/i386/pr85044.c
+++ gcc/gcc/testsuite/gcc.target/i386/pr85044.c
@@ -1,6 +1,6 @@
/* { dg-do run { target cet } } */
/* { dg-require-effective-target trampolines } */
-/* { dg-options "-O2 -fcf-protection=branch" } */
+/* { dg-options "-Wno-trampolines -O2 -fcf-protection=branch" } */
void callme (void (*callback) (void));
--- gcc/gcc/testsuite/gcc.target/i386/pr93656.c
+++ gcc/gcc/testsuite/gcc.target/i386/pr93656.c
@@ -1,4 +1,4 @@
/* { dg-do run { target { ia32 && cet } } } */
-/* { dg-options "-O2 -fcf-protection" } */
+/* { dg-options "-Wno-trampolines -O2 -fcf-protection" } */
#include "pr67770.c"
--- gcc/gcc/testsuite/gfortran.dg/elemental_dependency_4.f90
+++ gcc/gcc/testsuite/gfortran.dg/elemental_dependency_4.f90
@@ -1,3 +1,4 @@
+! { dg-options "-Wno-trampolines" }
! { dg-do run }
! { dg-additional-options "-fdump-tree-original" }
! { dg-require-visibility "" }
--- gcc/gcc/testsuite/gfortran.dg/gomp/pr66633.f90
+++ gcc/gcc/testsuite/gfortran.dg/gomp/pr66633.f90
@@ -2,7 +2,7 @@
! Testcase by Andrew Benson <abensonca@gmail.com>
! { dg-do compile }
-! { dg-options "-O0 -fopenmp" }
+! { dg-options "-O0 -fopenmp -Wno-trampolines" }
module spls
contains
--- gcc/gcc/testsuite/gfortran.dg/internal_dummy_2.f08
+++ gcc/gcc/testsuite/gfortran.dg/internal_dummy_2.f08
@@ -1,5 +1,5 @@
! { dg-do run }
-! { dg-options "-std=f2008 " }
+! { dg-options "-std=f2008 -Wno-trampolines" }
! PR fortran/34162
! Internal procedures as actual arguments (like restricted closures).
--- gcc/gcc/testsuite/gfortran.dg/internal_dummy_3.f08
+++ gcc/gcc/testsuite/gfortran.dg/internal_dummy_3.f08
@@ -1,5 +1,5 @@
! { dg-do run }
-! { dg-options "-std=f2008 " }
+! { dg-options "-std=f2008 -Wno-trampolines" }
! PR fortran/34162
! Internal procedures as actual arguments (like restricted closures).
--- gcc/gcc/testsuite/gfortran.dg/internal_dummy_4.f08
+++ gcc/gcc/testsuite/gfortran.dg/internal_dummy_4.f08
@@ -1,3 +1,4 @@
+! { dg-options "-Wno-trampolines" }
! { dg-do run }
! PR fortran/34133
! PR fortran/34162
--- gcc/gcc/testsuite/gfortran.dg/pointer_check_1.f90
+++ gcc/gcc/testsuite/gfortran.dg/pointer_check_1.f90
@@ -1,5 +1,5 @@
! { dg-do run }
-! { dg-options "-fcheck=pointer" }
+! { dg-options "-fcheck=pointer -Wno-trampolines" }
! { dg-shouldfail "Unassociated/unallocated actual argument" }
!
! { dg-output ".*At line 53 .*Allocatable actual argument 'alloc2' is not allocated" }
--- gcc/gcc/testsuite/gfortran.dg/pointer_check_2.f90
+++ gcc/gcc/testsuite/gfortran.dg/pointer_check_2.f90
@@ -1,5 +1,5 @@
! { dg-do run }
-! { dg-options "-fcheck=pointer" }
+! { dg-options "-fcheck=pointer -Wno-trampolines" }
! { dg-shouldfail "Unassociated/unallocated actual argument" }
!
! { dg-output ".*At line 60.*Pointer actual argument 'ptr1' is not associated" }
--- gcc/gcc/testsuite/gfortran.dg/pointer_check_3.f90
+++ gcc/gcc/testsuite/gfortran.dg/pointer_check_3.f90
@@ -1,5 +1,5 @@
! { dg-do run }
-! { dg-options "-fcheck=pointer" }
+! { dg-options "-fcheck=pointer -Wno-trampolines" }
! { dg-shouldfail "Unassociated/unallocated actual argument" }
!
! { dg-output ".*At line 61.*Pointer actual argument 'ptr2' is not associated" }
--- gcc/gcc/testsuite/gfortran.dg/pointer_check_4.f90
+++ gcc/gcc/testsuite/gfortran.dg/pointer_check_4.f90
@@ -1,5 +1,5 @@
! { dg-do run }
-! { dg-options "-fcheck=pointer" }
+! { dg-options "-fcheck=pointer -Wno-trampolines" }
! { dg-shouldfail "Unassociated/unallocated actual argument" }
!
! { dg-output ".*At line 66.*Proc-pointer actual argument 'pptr' is not associated" }
--- gcc/gcc/testsuite/gfortran.dg/pointer_check_5.f90
+++ gcc/gcc/testsuite/gfortran.dg/pointer_check_5.f90
@@ -1,5 +1,5 @@
! { dg-do run }
-! { dg-options "-fcheck=pointer" }
+! { dg-options "-fcheck=pointer -Wno-trampolines" }
! { dg-shouldfail "Unassociated/unallocated actual argument" }
!
! { dg-output ".*At line 46 .*Pointer actual argument 'getptr' is not associated" }
--- gcc/gcc/testsuite/gfortran.dg/pr78719_1.f90
+++ gcc/gcc/testsuite/gfortran.dg/pr78719_1.f90
@@ -1,4 +1,5 @@
! { dg-do run }
+! { dg-options "-Wno-trampolines" }
! PR fortran/78719
! Code contributed by Gerhard Steinmetz
program p
--- gcc/gcc/testsuite/gfortran.dg/proc_ptr_18.f90
+++ gcc/gcc/testsuite/gfortran.dg/proc_ptr_18.f90
@@ -1,3 +1,4 @@
+! { dg-options "-Wno-trampolines" }
! { dg-do run }
!
! PR 40176: Fortran 2003: Procedure pointers with array return value
--- gcc/gcc/testsuite/gfortran.dg/proc_ptr_19.f90
+++ gcc/gcc/testsuite/gfortran.dg/proc_ptr_19.f90
@@ -1,3 +1,4 @@
+! { dg-options "-Wno-trampolines" }
! { dg-do run }
!
! PR 40176: Fortran 2003: Procedure pointers with array return value
--- gcc/gcc/testsuite/gfortran.dg/proc_ptr_20.f90
+++ gcc/gcc/testsuite/gfortran.dg/proc_ptr_20.f90
@@ -1,3 +1,4 @@
+! { dg-options "-Wno-trampolines" }
! { dg-do run }
!
! PR 40450: [F03] procedure pointer as actual argument
--- gcc/gcc/testsuite/gfortran.dg/proc_ptr_21.f90
+++ gcc/gcc/testsuite/gfortran.dg/proc_ptr_21.f90
@@ -1,3 +1,4 @@
+! { dg-options "-Wno-trampolines" }
! { dg-do run }
! Tests the fix for PR40591 in which the interface 'sub2'
! for 'pptr2' was not resolved.
--- gcc/gcc/testsuite/gfortran.dg/proc_ptr_23.f90
+++ gcc/gcc/testsuite/gfortran.dg/proc_ptr_23.f90
@@ -1,3 +1,4 @@
+! { dg-options "-Wno-trampolines" }
! { dg-do run }
!
! PR 41106: [F03] Procedure Pointers with CHARACTER results
--- gcc/gcc/testsuite/gfortran.dg/proc_ptr_25.f90
+++ gcc/gcc/testsuite/gfortran.dg/proc_ptr_25.f90
@@ -1,3 +1,4 @@
+! { dg-options "-Wno-trampolines" }
! { dg-do run }
!
! PR 41139: [4.5 Regression] a procedure pointer call as actual argument
--- gcc/gcc/testsuite/gfortran.dg/proc_ptr_47.f90
+++ gcc/gcc/testsuite/gfortran.dg/proc_ptr_47.f90
@@ -1,3 +1,4 @@
+! { dg-options "-Wno-trampolines" }
! { dg-do run }
! Tests the fix for PR68196
!
--- gcc/gcc/testsuite/gfortran.dg/proc_ptr_48.f90
+++ gcc/gcc/testsuite/gfortran.dg/proc_ptr_48.f90
@@ -1,3 +1,4 @@
+! { dg-options "-Wno-trampolines" }
! { dg-do run }
!
! Checks the fix for PR68196, comment #8
--- gcc/gcc/testsuite/gfortran.dg/proc_ptr_5.f90
+++ gcc/gcc/testsuite/gfortran.dg/proc_ptr_5.f90
@@ -1,3 +1,4 @@
+! { dg-options "-Wno-trampolines" }
! { dg-do run }
!
! NULL() initialization for PROCEDURE POINTERS
--- gcc/gcc/testsuite/gfortran.dg/proc_ptr_7.f90
+++ gcc/gcc/testsuite/gfortran.dg/proc_ptr_7.f90
@@ -1,3 +1,4 @@
+! { dg-options "-Wno-trampolines" }
! { dg-do run }
! { dg-additional-sources proc_ptr_7.c }
!
--- gcc/gcc/testsuite/gfortran.dg/proc_ptr_comp_1.f90
+++ gcc/gcc/testsuite/gfortran.dg/proc_ptr_comp_1.f90
@@ -1,3 +1,4 @@
+! { dg-options "-Wno-trampolines" }
! { dg-do run }
!
! PR39630: Fortran 2003: Procedure pointer components.
--- gcc/gcc/testsuite/gfortran.dg/proc_ptr_comp_11.f90
+++ gcc/gcc/testsuite/gfortran.dg/proc_ptr_comp_11.f90
@@ -1,3 +1,4 @@
+! { dg-options "-Wno-trampolines" }
! { dg-do run }
!
! PR 40427: Procedure Pointer Components with OPTIONAL arguments
--- gcc/gcc/testsuite/gfortran.dg/proc_ptr_comp_13.f90
+++ gcc/gcc/testsuite/gfortran.dg/proc_ptr_comp_13.f90
@@ -1,3 +1,4 @@
+! { dg-options "-Wno-trampolines" }
! { dg-do run }
!
! PR 40882: [F03] infinite recursion in gfc_get_derived_type with PPC returning derived type.
--- gcc/gcc/testsuite/gfortran.dg/proc_ptr_comp_14.f90
+++ gcc/gcc/testsuite/gfortran.dg/proc_ptr_comp_14.f90
@@ -1,3 +1,4 @@
+! { dg-options "-Wno-trampolines" }
! { dg-do run }
!
! PR 41022: [F03] procedure pointer components as actual arguments
--- gcc/gcc/testsuite/gfortran.dg/proc_ptr_comp_18.f90
+++ gcc/gcc/testsuite/gfortran.dg/proc_ptr_comp_18.f90
@@ -1,3 +1,4 @@
+! { dg-options "-Wno-trampolines" }
! { dg-do run }
!
! PR 41139: [4.5 Regression] a procedure pointer call as actual argument
--- gcc/gcc/testsuite/gfortran.dg/proc_ptr_comp_19.f90
+++ gcc/gcc/testsuite/gfortran.dg/proc_ptr_comp_19.f90
@@ -1,3 +1,4 @@
+! { dg-options "-Wno-trampolines" }
! { dg-do run }
!
! PR 41139: [4.5 Regression] a procedure pointer call as actual argument
--- gcc/gcc/testsuite/gfortran.dg/proc_ptr_comp_2.f90
+++ gcc/gcc/testsuite/gfortran.dg/proc_ptr_comp_2.f90
@@ -1,3 +1,4 @@
+! { dg-options "-Wno-trampolines" }
! { dg-do run }
!
! PR39630: Fortran 2003: Procedure pointer components.
--- gcc/gcc/testsuite/gfortran.dg/proc_ptr_comp_29.f90
+++ gcc/gcc/testsuite/gfortran.dg/proc_ptr_comp_29.f90
@@ -1,3 +1,4 @@
+! { dg-options "-Wno-trampolines" }
! { dg-do run }
!
! PR 47240: [F03] segfault with procedure pointer component
--- gcc/gcc/testsuite/gfortran.dg/proc_ptr_comp_34.f90
+++ gcc/gcc/testsuite/gfortran.dg/proc_ptr_comp_34.f90
@@ -1,3 +1,4 @@
+! { dg-options "-Wno-trampolines" }
! { dg-do run }
!
! PR 51082: [F03] Wrong result for a pointer to a proc-pointer component
--- gcc/gcc/testsuite/gfortran.dg/proc_ptr_comp_5.f90
+++ gcc/gcc/testsuite/gfortran.dg/proc_ptr_comp_5.f90
@@ -1,3 +1,4 @@
+! { dg-options "-Wno-trampolines" }
! { dg-do run }
!
! PR39630: Fortran 2003: Procedure pointer components.
--- gcc/gcc/testsuite/gfortran.dg/proc_ptr_comp_8.f90
+++ gcc/gcc/testsuite/gfortran.dg/proc_ptr_comp_8.f90
@@ -1,3 +1,4 @@
+! { dg-options "-Wno-trampolines" }
! { dg-do run }
!
! PR 40164: Fortran 2003: "Arrays of procedure pointers" (using PPCs)
--- gcc/gcc/testsuite/gfortran.dg/proc_ptr_comp_9.f90
+++ gcc/gcc/testsuite/gfortran.dg/proc_ptr_comp_9.f90
@@ -1,3 +1,4 @@
+! { dg-options "-Wno-trampolines" }
! { dg-do run }
!
! PR 40176: Fortran 2003: Procedure pointers with array return value
--- gcc/gcc/testsuite/gfortran.dg/proc_ptr_comp_pass_3.f90
+++ gcc/gcc/testsuite/gfortran.dg/proc_ptr_comp_pass_3.f90
@@ -1,3 +1,4 @@
+! { dg-options "-Wno-trampolines" }
! { dg-do run }
!
! PR 39630: [F03] Procedure Pointer Components with PASS
--- gcc/gcc/testsuite/gfortran.dg/proc_ptr_result_7.f90
+++ gcc/gcc/testsuite/gfortran.dg/proc_ptr_result_7.f90
@@ -1,3 +1,4 @@
+! { dg-options "-Wno-trampolines" }
! { dg-do run }
!
! PR 54285: [F03] Calling a PPC with proc-ptr result
--- gcc/gcc/testsuite/gfortran.dg/structure_constructor_11.f90
+++ gcc/gcc/testsuite/gfortran.dg/structure_constructor_11.f90
@@ -1,5 +1,5 @@
! { dg-do run }
-! { dg-options "-fdump-tree-original" }
+! { dg-options "-fdump-tree-original -Wno-trampolines" }
!
! PR fortran/54603
!
--- gcc/gcc/testsuite/gfortran.dg/unlimited_polymorphic_19.f90
+++ gcc/gcc/testsuite/gfortran.dg/unlimited_polymorphic_19.f90
@@ -1,3 +1,4 @@
+! { dg-options "-Wno-trampolines" }
! { dg-do run }
!
! PR 64209: [OOP] runtime segfault with CLASS(*), INTENT(OUT) dummy argument
--- gcc/gcc/testsuite/gnat.dg/abstract_with_anonymous_result.adb
+++ gcc/gcc/testsuite/gnat.dg/abstract_with_anonymous_result.adb
@@ -1,3 +1,4 @@
+-- { dg-options "-Wno-trampolines" }
-- { dg-do run }
procedure Abstract_With_Anonymous_Result is
--- gcc/gcc/testsuite/gnat.dg/access1.adb
+++ gcc/gcc/testsuite/gnat.dg/access1.adb
@@ -1,3 +1,4 @@
+-- { dg-options "-Wno-trampolines" }
-- { dg-do compile }
procedure access1 is
--- gcc/gcc/testsuite/gnat.dg/access_discr.adb
+++ gcc/gcc/testsuite/gnat.dg/access_discr.adb
@@ -1,3 +1,4 @@
+-- { dg-options "-Wno-trampolines" }
-- { dg-do compile }
procedure access_discr is
--- gcc/gcc/testsuite/gnat.dg/access_discr2.adb
+++ gcc/gcc/testsuite/gnat.dg/access_discr2.adb
@@ -1,3 +1,4 @@
+-- { dg-options "-Wno-trampolines" }
-- { dg-do run }
procedure access_discr2 is
--- gcc/gcc/testsuite/gnat.dg/access_test.adb
+++ gcc/gcc/testsuite/gnat.dg/access_test.adb
@@ -1,3 +1,4 @@
+-- { dg-options "-Wno-trampolines" }
-- { dg-do run }
procedure Access_Test is
--- gcc/gcc/testsuite/gnat.dg/aggr2.adb
+++ gcc/gcc/testsuite/gnat.dg/aggr2.adb
@@ -1,3 +1,4 @@
+-- { dg-options "-Wno-trampolines" }
-- { dg-do compile }
procedure aggr2 is
--- gcc/gcc/testsuite/gnat.dg/aggr3.adb
+++ gcc/gcc/testsuite/gnat.dg/aggr3.adb
@@ -1,3 +1,4 @@
+-- { dg-options "-Wno-trampolines" }
-- { dg-do run }
with Ada.Tags; use Ada.Tags;
--- gcc/gcc/testsuite/gnat.dg/aggr7.adb
+++ gcc/gcc/testsuite/gnat.dg/aggr7.adb
@@ -1,3 +1,4 @@
+-- { dg-options "-Wno-trampolines" }
-- { dg-do compile }
procedure aggr7 is
--- gcc/gcc/testsuite/gnat.dg/align_max.adb
+++ gcc/gcc/testsuite/gnat.dg/align_max.adb
@@ -1,3 +1,4 @@
+-- { dg-options "-Wno-trampolines" }
-- { dg-do run }
with System.Storage_Elements; use System.Storage_Elements;
--- gcc/gcc/testsuite/gnat.dg/array3.adb
+++ gcc/gcc/testsuite/gnat.dg/array3.adb
@@ -1,3 +1,4 @@
+-- { dg-options "-Wno-trampolines" }
-- { dg-do run }
with Ada.Containers.Vectors;
--- gcc/gcc/testsuite/gnat.dg/atomic8.adb
+++ gcc/gcc/testsuite/gnat.dg/atomic8.adb
@@ -1,3 +1,4 @@
+-- { dg-options "-Wno-trampolines" }
-- { dg-do run }
procedure Atomic8 is
--- gcc/gcc/testsuite/gnat.dg/bip_aggregate_bug.adb
+++ gcc/gcc/testsuite/gnat.dg/bip_aggregate_bug.adb
@@ -1,3 +1,4 @@
+-- { dg-options "-Wno-trampolines" }
-- { dg-do run }
procedure BIP_Aggregate_Bug is
--- gcc/gcc/testsuite/gnat.dg/check_displace_generation.adb
+++ gcc/gcc/testsuite/gnat.dg/check_displace_generation.adb
@@ -1,3 +1,4 @@
+-- { dg-options "-Wno-trampolines" }
-- { dg-do run }
procedure Check_Displace_Generation is
--- gcc/gcc/testsuite/gnat.dg/class_wide1.adb
+++ gcc/gcc/testsuite/gnat.dg/class_wide1.adb
@@ -1,3 +1,4 @@
+-- { dg-options "-Wno-trampolines" }
-- { dg-do compile }
procedure Class_Wide1 is
--- gcc/gcc/testsuite/gnat.dg/controlled6.adb
+++ gcc/gcc/testsuite/gnat.dg/controlled6.adb
@@ -1,5 +1,5 @@
-- { dg-do compile }
--- { dg-options "-O -gnatn" }
+-- { dg-options "-O -gnatn -Wno-trampolines" }
with Ada.Text_IO; use Ada.Text_IO;
with Controlled6_Pkg;
--- gcc/gcc/testsuite/gnat.dg/curr_task.adb
+++ gcc/gcc/testsuite/gnat.dg/curr_task.adb
@@ -1,5 +1,5 @@
-- { dg-do run }
--- { dg-options "-gnatws" }
+-- { dg-options "-gnatws -Wno-trampolines" }
with Ada.Exceptions;
with Ada.Text_IO;
--- gcc/gcc/testsuite/gnat.dg/debug4.adb
+++ gcc/gcc/testsuite/gnat.dg/debug4.adb
@@ -1,5 +1,5 @@
-- { dg-compile }
--- { dg-options "-g" }
+-- { dg-options "-g -Wno-trampolines" }
with Debug4_Pkg;
--- gcc/gcc/testsuite/gnat.dg/derived_type1.adb
+++ gcc/gcc/testsuite/gnat.dg/derived_type1.adb
@@ -1,5 +1,5 @@
-- { dg-do compile }
--- { dg-options "-gnatws -fdump-tree-original" }
+-- { dg-options "-gnatws -fdump-tree-original -Wno-trampolines" }
procedure Derived_Type1 is
--- gcc/gcc/testsuite/gnat.dg/discr13.adb
+++ gcc/gcc/testsuite/gnat.dg/discr13.adb
@@ -1,3 +1,4 @@
+-- { dg-options "-Wno-trampolines" }
-- { dg-do compile }
with Discr12_Pkg; use Discr12_Pkg;
--- gcc/gcc/testsuite/gnat.dg/discr17.adb
+++ gcc/gcc/testsuite/gnat.dg/discr17.adb
@@ -1,5 +1,5 @@
-- { dg-do compile }
--- { dg-options "-gnatws" }
+-- { dg-options "-gnatws -Wno-trampolines" }
procedure Discr17 is
--- gcc/gcc/testsuite/gnat.dg/discr19.adb
+++ gcc/gcc/testsuite/gnat.dg/discr19.adb
@@ -1,3 +1,4 @@
+-- { dg-options "-Wno-trampolines" }
-- { dg-do compile }
procedure Discr19 is
--- gcc/gcc/testsuite/gnat.dg/discr30.adb
+++ gcc/gcc/testsuite/gnat.dg/discr30.adb
@@ -1,3 +1,4 @@
+-- { dg-options "-Wno-trampolines" }
-- PR ada/48844
-- Reported by Georg Bauhaus <bauhaus@futureapps.de> */
--- gcc/gcc/testsuite/gnat.dg/discr4.adb
+++ gcc/gcc/testsuite/gnat.dg/discr4.adb
@@ -1,5 +1,5 @@
-- { dg-do run }
--- { dg-options "-gnatws" }
+-- { dg-options "-gnatws -Wno-trampolines" }
procedure discr4 is
package Pkg is
--- gcc/gcc/testsuite/gnat.dg/discr_range_check.adb
+++ gcc/gcc/testsuite/gnat.dg/discr_range_check.adb
@@ -1,5 +1,5 @@
-- { dg-do compile }
--- { dg-options "-gnatws" }
+-- { dg-options "-gnatws -Wno-trampolines" }
procedure discr_range_check is
Default_First_Entry : constant := 1;
--- gcc/gcc/testsuite/gnat.dg/discr_test.adb
+++ gcc/gcc/testsuite/gnat.dg/discr_test.adb
@@ -1,3 +1,4 @@
+-- { dg-options "-Wno-trampolines" }
-- { dg-do compile }
procedure Discr_Test is
--- gcc/gcc/testsuite/gnat.dg/entry_queues.adb
+++ gcc/gcc/testsuite/gnat.dg/entry_queues.adb
@@ -1,5 +1,5 @@
-- { dg-do run }
--- { dg-options "-gnatws" }
+-- { dg-options "-gnatws -Wno-trampolines" }
procedure entry_queues is
F1_Poe : Integer := 18;
--- gcc/gcc/testsuite/gnat.dg/entry_queues2.adb
+++ gcc/gcc/testsuite/gnat.dg/entry_queues2.adb
@@ -1,3 +1,4 @@
+-- { dg-options "-Wno-trampolines" }
-- { dg-do compile }
procedure Entry_Queues2 is
--- gcc/gcc/testsuite/gnat.dg/entry_queues3.adb
+++ gcc/gcc/testsuite/gnat.dg/entry_queues3.adb
@@ -1,3 +1,4 @@
+-- { dg-options "-Wno-trampolines" }
-- { dg-do compile }
procedure Entry_Queues3 is
--- gcc/gcc/testsuite/gnat.dg/finalized.adb
+++ gcc/gcc/testsuite/gnat.dg/finalized.adb
@@ -1,3 +1,4 @@
+-- { dg-options "-Wno-trampolines" }
-- { dg-do compile }
-- { dg-options "-gnatws" }
--- gcc/gcc/testsuite/gnat.dg/inline10_pkg.adb
+++ gcc/gcc/testsuite/gnat.dg/inline10_pkg.adb
@@ -1,3 +1,4 @@
+-- { dg-options "-Wno-trampolines" }
package body Inline10_Pkg is
procedure Test (I : Integer) is
--- gcc/gcc/testsuite/gnat.dg/inline9_pkg.adb
+++ gcc/gcc/testsuite/gnat.dg/inline9_pkg.adb
@@ -1,3 +1,4 @@
+-- { dg-options "-Wno-trampolines" }
package body Inline9_Pkg is
procedure Test (I : Integer) is
--- gcc/gcc/testsuite/gnat.dg/inline_tagged.adb
+++ gcc/gcc/testsuite/gnat.dg/inline_tagged.adb
@@ -1,5 +1,5 @@
-- { dg-do run }
--- { dg-options "-gnatN" }
+-- { dg-options "-gnatN -Wno-trampolines" }
with Text_IO; use Text_IO;
with system; use system;
--- gcc/gcc/testsuite/gnat.dg/interface1.adb
+++ gcc/gcc/testsuite/gnat.dg/interface1.adb
@@ -1,3 +1,4 @@
+-- { dg-options "-Wno-trampolines" }
-- { dg-do run }
with System;
--- gcc/gcc/testsuite/gnat.dg/interface2.adb
+++ gcc/gcc/testsuite/gnat.dg/interface2.adb
@@ -1,3 +1,4 @@
+-- { dg-options "-Wno-trampolines" }
-- { dg-do run }
procedure interface2 is
--- gcc/gcc/testsuite/gnat.dg/interface3.adb
+++ gcc/gcc/testsuite/gnat.dg/interface3.adb
@@ -1,3 +1,4 @@
+-- { dg-options "-Wno-trampolines" }
-- { dg-do run }
procedure interface3 is
--- gcc/gcc/testsuite/gnat.dg/interface_conv.adb
+++ gcc/gcc/testsuite/gnat.dg/interface_conv.adb
@@ -1,3 +1,4 @@
+-- { dg-options "-Wno-trampolines" }
-- { dg-do run }
procedure Interface_Conv is
--- gcc/gcc/testsuite/gnat.dg/iprot_test.adb
+++ gcc/gcc/testsuite/gnat.dg/iprot_test.adb
@@ -1,3 +1,4 @@
+-- { dg-options "-Wno-trampolines" }
-- { dg-do run }
procedure iprot_test is
--- gcc/gcc/testsuite/gnat.dg/late_overriding.adb
+++ gcc/gcc/testsuite/gnat.dg/late_overriding.adb
@@ -1,3 +1,4 @@
+-- { dg-options "-Wno-trampolines" }
-- { dg-do compile }
procedure late_overriding is
--- gcc/gcc/testsuite/gnat.dg/lhs_view_convert.adb
+++ gcc/gcc/testsuite/gnat.dg/lhs_view_convert.adb
@@ -1,5 +1,5 @@
-- { dg-do run }
--- { dg-options "-gnatp" }
+-- { dg-options "-gnatp -Wno-trampolines" }
procedure Lhs_View_Convert is
--- gcc/gcc/testsuite/gnat.dg/lto8.adb
+++ gcc/gcc/testsuite/gnat.dg/lto8.adb
@@ -1,6 +1,6 @@
-- { dg-do run }
--- { dg-options "-gnatws" }
--- { dg-options "-gnatws -flto" { target lto } }
+-- { dg-options "-gnatws -Wno-trampolines" }
+-- { dg-options "-gnatws -Wno-trampolines -flto" { target lto } }
pragma Locking_Policy (Ceiling_Locking);
--- gcc/gcc/testsuite/gnat.dg/named_test.adb
+++ gcc/gcc/testsuite/gnat.dg/named_test.adb
@@ -1,3 +1,4 @@
+-- { dg-options "-Wno-trampolines" }
-- { dg-do run }
with Text_IO; use Text_IO;
--- gcc/gcc/testsuite/gnat.dg/nested_controlled_alloc.adb
+++ gcc/gcc/testsuite/gnat.dg/nested_controlled_alloc.adb
@@ -1,3 +1,4 @@
+-- { dg-options "-Wno-trampolines" }
-- { dg-do run }
with Text_IO; use Text_IO;
--- gcc/gcc/testsuite/gnat.dg/nested_proc1.adb
+++ gcc/gcc/testsuite/gnat.dg/nested_proc1.adb
@@ -1,3 +1,4 @@
+-- { dg-options "-Wno-trampolines" }
-- { dg-do run }
-- Test that a static link is correctly passed to a subprogram which is
-- indirectly called through an aggregate.
--- gcc/gcc/testsuite/gnat.dg/no_final.adb
+++ gcc/gcc/testsuite/gnat.dg/no_final.adb
@@ -1,3 +1,4 @@
+-- { dg-options "-Wno-trampolines" }
-- { dg-do run }
pragma Restrictions (No_Finalization);
--- gcc/gcc/testsuite/gnat.dg/null_pointer_deref2.adb
+++ gcc/gcc/testsuite/gnat.dg/null_pointer_deref2.adb
@@ -1,3 +1,4 @@
+-- { dg-options "-Wno-trampolines" }
-- { dg-do run }
-- This test requires architecture- and OS-specific support code for unwinding
--- gcc/gcc/testsuite/gnat.dg/opt32.adb
+++ gcc/gcc/testsuite/gnat.dg/opt32.adb
@@ -1,5 +1,5 @@
-- { dg-do compile }
--- { dg-options "-O2" }
+-- { dg-options "-O2 -Wno-trampolines" }
with Ada.Containers; use Ada.Containers;
with Ada.Containers.Vectors;
--- gcc/gcc/testsuite/gnat.dg/opt33.adb
+++ gcc/gcc/testsuite/gnat.dg/opt33.adb
@@ -1,5 +1,5 @@
-- { dg-do compile }
--- { dg-options "-O" }
+-- { dg-options "-O -Wno-trampolines" }
with Ada.Containers.Ordered_Sets;
with Ada.Strings.Unbounded;
--- gcc/gcc/testsuite/gnat.dg/prot1.adb
+++ gcc/gcc/testsuite/gnat.dg/prot1.adb
@@ -1,3 +1,4 @@
+-- { dg-options "-Wno-trampolines" }
-- { dg-do compile }
procedure Prot1 is
--- gcc/gcc/testsuite/gnat.dg/requeue1.adb
+++ gcc/gcc/testsuite/gnat.dg/requeue1.adb
@@ -1,3 +1,4 @@
+-- { dg-options "-Wno-trampolines" }
-- { dg-do run }
with Ada.Text_Io; use Ada.Text_Io;
--- gcc/gcc/testsuite/gnat.dg/stack_check1.adb
+++ gcc/gcc/testsuite/gnat.dg/stack_check1.adb
@@ -1,6 +1,6 @@
-- { dg-do run }
-- { dg-require-stack-check "" }
--- { dg-options "-fstack-check" }
+-- { dg-options "-fstack-check -Wno-trampolines" }
-- This test requires architecture- and OS-specific support code for unwinding
-- through signal frames (typically located in *-unwind.h) to pass. Feel free
--- gcc/gcc/testsuite/gnat.dg/stack_check2.adb
+++ gcc/gcc/testsuite/gnat.dg/stack_check2.adb
@@ -1,6 +1,6 @@
-- { dg-do run }
-- { dg-require-stack-check "" }
--- { dg-options "-fstack-check" }
+-- { dg-options "-fstack-check -Wno-trampolines" }
-- This test requires architecture- and OS-specific support code for unwinding
-- through signal frames (typically located in *-unwind.h) to pass. Feel free
--- gcc/gcc/testsuite/gnat.dg/taft_type3.adb
+++ gcc/gcc/testsuite/gnat.dg/taft_type3.adb
@@ -1,5 +1,5 @@
-- { dg-do compile }
--- { dg-options "-g" }
+-- { dg-options "-g -Wno-trampolines" }
with Taft_Type3_Pkg; use Taft_Type3_Pkg;
--- gcc/gcc/testsuite/gnat.dg/tag1.adb
+++ gcc/gcc/testsuite/gnat.dg/tag1.adb
@@ -1,3 +1,4 @@
+-- { dg-options "-Wno-trampolines" }
-- { dg-do run }
with Ada.Tags;
--- gcc/gcc/testsuite/gnat.dg/tagged_alloc_free.adb
+++ gcc/gcc/testsuite/gnat.dg/tagged_alloc_free.adb
@@ -1,3 +1,4 @@
+-- { dg-options "-Wno-trampolines" }
-- { dg-do run }
with Ada.Unchecked_Deallocation;
--- gcc/gcc/testsuite/gnat.dg/task_stack_align.adb
+++ gcc/gcc/testsuite/gnat.dg/task_stack_align.adb
@@ -1,3 +1,4 @@
+-- { dg-options "-Wno-trampolines" }
-- { dg-do run }
with Ada.Text_IO; use Ada.Text_IO;
--- gcc/gcc/testsuite/gnat.dg/test_iface_aggr.adb
+++ gcc/gcc/testsuite/gnat.dg/test_iface_aggr.adb
@@ -1,3 +1,4 @@
+-- { dg-options "-Wno-trampolines" }
-- { dg-do run }
with Ada.Text_IO, Ada.Tags;
--- gcc/gcc/testsuite/gnat.dg/test_prio.adb
+++ gcc/gcc/testsuite/gnat.dg/test_prio.adb
@@ -1,5 +1,5 @@
-- { dg-do run }
--- { dg-options "-gnatws" }
+-- { dg-options "-gnatws -Wno-trampolines" }
pragma Locking_Policy (Ceiling_Locking);
with test_prio_p;use test_prio_p;
--- gcc/gcc/testsuite/gnat.dg/timer_cancel.adb
+++ gcc/gcc/testsuite/gnat.dg/timer_cancel.adb
@@ -1,3 +1,4 @@
+-- { dg-options "-Wno-trampolines" }
-- { dg-do run }
with Ada.Real_Time.Timing_Events;
--- gcc/gcc/testsuite/gnat.dg/trampoline2.adb
+++ gcc/gcc/testsuite/gnat.dg/trampoline2.adb
@@ -1,5 +1,5 @@
-- { dg-do run }
--- { dg-options "-gnatws" }
+-- { dg-options "-gnatws -Wno-trampolines" }
with System; use System;
--- gcc/gcc/testsuite/gnat.dg/trampoline4.adb
+++ gcc/gcc/testsuite/gnat.dg/trampoline4.adb
@@ -1,5 +1,5 @@
-- { dg-do compile { target *-*-linux* } }
--- { dg-options "-ftrampolines -gnatws" }
+-- { dg-options "-ftrampolines -gnatws -Wno-trampolines" }
-- { dg-skip-if "standard descriptors" { hppa*-*-* ia64-*-* powerpc64-*-* } }
procedure Trampoline4 is
--- gcc/libgomp/testsuite/libgomp.c/pr52547.c
+++ gcc/libgomp/testsuite/libgomp.c/pr52547.c
@@ -1,5 +1,6 @@
/* PR middle-end/52547 */
/* { dg-do run } */
+/* { dg-options "-Wno-trampolines" } */
extern void abort (void);