From 2281184556f7fa3f30ba4c329d12bb2da2ada21c Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Thu, 20 Sep 2012 22:01:34 +0000 Subject: [PATCH] addr1.ads: Move dg directive to... * gnat.dg/addr1.ads: Move dg directive to... * gnat.dg/addr1.adb: ...here. * gnat.dg/atomic5.ad[sb]: Likewise. * gnat.dg/discr29.ad[sb]: Likewise. * gnat.dg/discr23.ads: Remove dg directive. * gnat.dg/nested_float_packed.ads: Likewise. * gnat.dg/oconst6.ads: Move to... * gnat.dg/specs/oconst6.ads: ...here. From-SVN: r191594 --- gcc/testsuite/ChangeLog | 11 +++++++++++ gcc/testsuite/gnat.dg/addr1.adb | 2 ++ gcc/testsuite/gnat.dg/addr1.ads | 2 -- gcc/testsuite/gnat.dg/atomic5.adb | 2 ++ gcc/testsuite/gnat.dg/atomic5.ads | 2 -- gcc/testsuite/gnat.dg/discr23.ads | 2 -- gcc/testsuite/gnat.dg/discr29.adb | 2 ++ gcc/testsuite/gnat.dg/discr29.ads | 2 -- gcc/testsuite/gnat.dg/nested_float_packed.ads | 4 ---- gcc/testsuite/gnat.dg/{ => specs}/oconst6.ads | 0 10 files changed, 17 insertions(+), 12 deletions(-) rename gcc/testsuite/gnat.dg/{ => specs}/oconst6.ads (100%) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 43cee8c70d59..4f237e237e50 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,14 @@ +2012-09-20 Eric Botcazou + + * gnat.dg/addr1.ads: Move dg directive to... + * gnat.dg/addr1.adb: ...here. + * gnat.dg/atomic5.ad[sb]: Likewise. + * gnat.dg/discr29.ad[sb]: Likewise. + * gnat.dg/discr23.ads: Remove dg directive. + * gnat.dg/nested_float_packed.ads: Likewise. + * gnat.dg/oconst6.ads: Move to... + * gnat.dg/specs/oconst6.ads: ...here. + 2012-09-15 Joseph Myers PR c/54552 diff --git a/gcc/testsuite/gnat.dg/addr1.adb b/gcc/testsuite/gnat.dg/addr1.adb index 521d0495a9bc..5f5ff5356336 100644 --- a/gcc/testsuite/gnat.dg/addr1.adb +++ b/gcc/testsuite/gnat.dg/addr1.adb @@ -1,3 +1,5 @@ +-- { dg-do compile } + with System; package body addr1 is task type T is diff --git a/gcc/testsuite/gnat.dg/addr1.ads b/gcc/testsuite/gnat.dg/addr1.ads index 51061fde0892..99496cd51473 100644 --- a/gcc/testsuite/gnat.dg/addr1.ads +++ b/gcc/testsuite/gnat.dg/addr1.ads @@ -1,5 +1,3 @@ --- { dg-do compile } - package addr1 is pragma Elaborate_Body; end; diff --git a/gcc/testsuite/gnat.dg/atomic5.adb b/gcc/testsuite/gnat.dg/atomic5.adb index efbed4e34ac0..d17e6ff1ce9c 100644 --- a/gcc/testsuite/gnat.dg/atomic5.adb +++ b/gcc/testsuite/gnat.dg/atomic5.adb @@ -1,3 +1,5 @@ +-- { dg-do compile } + package body Atomic5 is function Create return R is diff --git a/gcc/testsuite/gnat.dg/atomic5.ads b/gcc/testsuite/gnat.dg/atomic5.ads index 3f653fa1151a..ce702ba1c93d 100644 --- a/gcc/testsuite/gnat.dg/atomic5.ads +++ b/gcc/testsuite/gnat.dg/atomic5.ads @@ -1,5 +1,3 @@ --- { dg-do compile } - with Unchecked_Conversion; package Atomic5 is diff --git a/gcc/testsuite/gnat.dg/discr23.ads b/gcc/testsuite/gnat.dg/discr23.ads index 8e673b382a9b..960dcdaf8cc9 100644 --- a/gcc/testsuite/gnat.dg/discr23.ads +++ b/gcc/testsuite/gnat.dg/discr23.ads @@ -1,5 +1,3 @@ --- { dg-do compile } - package Discr23 is procedure Dummy; diff --git a/gcc/testsuite/gnat.dg/discr29.adb b/gcc/testsuite/gnat.dg/discr29.adb index 56047c9cf6ee..834437f6fb8e 100644 --- a/gcc/testsuite/gnat.dg/discr29.adb +++ b/gcc/testsuite/gnat.dg/discr29.adb @@ -1,3 +1,5 @@ +-- { dg-do compile } + package body Discr29 is procedure Proc (R : out Rec3) is diff --git a/gcc/testsuite/gnat.dg/discr29.ads b/gcc/testsuite/gnat.dg/discr29.ads index a205bc1e0dd5..6bbf16725edf 100644 --- a/gcc/testsuite/gnat.dg/discr29.ads +++ b/gcc/testsuite/gnat.dg/discr29.ads @@ -1,5 +1,3 @@ --- { dg-do compile } - package Discr29 is type Rec1 is record diff --git a/gcc/testsuite/gnat.dg/nested_float_packed.ads b/gcc/testsuite/gnat.dg/nested_float_packed.ads index ae7f52390684..46b9e803fcd5 100644 --- a/gcc/testsuite/gnat.dg/nested_float_packed.ads +++ b/gcc/testsuite/gnat.dg/nested_float_packed.ads @@ -1,5 +1,3 @@ --- { dg-do compile } - package Nested_Float_Packed is type Float_Type is record @@ -20,5 +18,3 @@ package Nested_Float_Packed is Data_Block : array (Range_Type) of Data_Type := (others => Default_Data); end; - - diff --git a/gcc/testsuite/gnat.dg/oconst6.ads b/gcc/testsuite/gnat.dg/specs/oconst6.ads similarity index 100% rename from gcc/testsuite/gnat.dg/oconst6.ads rename to gcc/testsuite/gnat.dg/specs/oconst6.ads -- 2.47.2