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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 43cee8c70d59a715b8a8a37ed80de0c19d4d6441..4f237e237e50abdf3974d78404a72b30715eb758 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,14 @@
+2012-09-20  Eric Botcazou  <ebotcazou@adacore.com>
+
+       * 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  <joseph@codesourcery.com>
 
        PR c/54552

diff --git a/gcc/testsuite/gnat.dg/addr1.adb b/gcc/testsuite/gnat.dg/addr1.adb
index 521d0495a9bcb32bd2724e88e991ee2e1812ee7e..5f5ff53563361cccb533efcc5153198c3c85ad55 100644 (file)
--- 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 51061fde08920eff9d5743eac45e9de4be03e16a..99496cd51473dbf6de3cd80a040ecfe0631bbeec 100644 (file)
--- 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 efbed4e34ac0f02b39af5ff88b6704354153b9a2..d17e6ff1ce9c46e5e136be33bebec950a4babb0d 100644 (file)
--- 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 3f653fa1151a6ba5b042af2684fda2114a80dc61..ce702ba1c93dfbcfb1b18c65ad4cd8874c0e4266 100644 (file)
--- 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 8e673b382a9b22bdcfa70e484809b30e2d9d3a4a..960dcdaf8cc96a23707b9590bf61ae5c32d3a48c 100644 (file)
--- 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 56047c9cf6eeb27926e6b006df7337397fa438a1..834437f6fb8e5b139ef157e017fbd68b1d86310d 100644 (file)
--- 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 a205bc1e0dd5a66f8d114d694d10861eb8369952..6bbf16725edf2850ca8799bc9331021b1b5fa173 100644 (file)
--- 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 ae7f52390684948a6a9429c8d0f82c03c88cb789..46b9e803fcd58bd6475e7cc30760b3c5125b8d42 100644 (file)
--- 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