diff options
| author | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2017-11-09 16:34:02 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2017-11-09 16:34:02 +0000 |
| commit | 9222c9e36869c345790b2b654e8cba059ec50b14 (patch) | |
| tree | 8a30a62b649cdd992a1f436e2c37e62b67fc56de /gcc | |
| parent | d7871114286c18b184f5fca2ff1506927f6cc3cf (diff) | |
| download | gcc-9222c9e36869c345790b2b654e8cba059ec50b14.zip gcc-9222c9e36869c345790b2b654e8cba059ec50b14.tar.gz gcc-9222c9e36869c345790b2b654e8cba059ec50b14.tar.bz2 | |
controlled2.adb, [...]: Disable all warnings.
* gnat.dg/controlled2.adb, gnat.dg/controlled4.adb,
gnat.dg/finalized.adb: Disable all warnings.
From-SVN: r254600
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 9 | ||||
| -rw-r--r-- | gcc/testsuite/gnat.dg/controlled2.adb | 6 | ||||
| -rw-r--r-- | gcc/testsuite/gnat.dg/controlled4.adb | 6 | ||||
| -rw-r--r-- | gcc/testsuite/gnat.dg/finalized.adb | 4 |
4 files changed, 12 insertions, 13 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 3ace82c..a38d19f 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2017-11-09 Eric Botcazou <ebotcazou@adacore.com> + + * gnat.dg/controlled2.adb, gnat.dg/controlled4.adb, + gnat.dg/finalized.adb: Disable all warnings. + 2017-11-09 Richard Sandiford <richard.sandiford@linaro.org> Alan Hayward <alan.hayward@arm.com> David Sherwood <david.sherwood@arm.com> @@ -396,8 +401,8 @@ 2017-11-09 Pierre-Marie de Rodat <derodat@adacore.com> - * gnat.dg/controlled2.adb, gnat.dg/controlled4.adb, gnat.dg/finalized.adb: - Disable the new warning from GNAT. + * gnat.dg/controlled2.adb, gnat.dg/controlled4.adb, + gnat.dg/finalized.adb: Disable new warning. 2017-11-09 Jakub Jelinek <jakub@redhat.com> diff --git a/gcc/testsuite/gnat.dg/controlled2.adb b/gcc/testsuite/gnat.dg/controlled2.adb index 5b7eedd..69665c9 100644 --- a/gcc/testsuite/gnat.dg/controlled2.adb +++ b/gcc/testsuite/gnat.dg/controlled2.adb @@ -1,7 +1,5 @@ --- { dg-do compile } - -pragma Warnings - (Off, "anonymous access-to-controlled object will be finalized when its enclosing unit goes out of scope"); +-- { dg-do compile } +-- { dg-options "-gnatws" } with controlled1; use controlled1; package body controlled2 is diff --git a/gcc/testsuite/gnat.dg/controlled4.adb b/gcc/testsuite/gnat.dg/controlled4.adb index 9809dc6..f8159c9 100644 --- a/gcc/testsuite/gnat.dg/controlled4.adb +++ b/gcc/testsuite/gnat.dg/controlled4.adb @@ -1,7 +1,5 @@ --- { dg-do compile } - -pragma Warnings - (Off, "anonymous access-to-controlled object will be finalized when its enclosing unit goes out of scope"); +-- { dg-do compile } +-- { dg-options "-gnatws" } package body controlled4 is procedure Test_Suite is diff --git a/gcc/testsuite/gnat.dg/finalized.adb b/gcc/testsuite/gnat.dg/finalized.adb index ebbe474..a8d2f88 100644 --- a/gcc/testsuite/gnat.dg/finalized.adb +++ b/gcc/testsuite/gnat.dg/finalized.adb @@ -1,7 +1,5 @@ -- { dg-do compile } - -pragma Warnings - (Off, "anonymous access-to-controlled object will be finalized when its enclosing unit goes out of scope"); +-- { dg-options "-gnatws" } with Ada.Finalization; use Ada.Finalization; procedure finalized is |