OSDN Git Service

* gnat.dg/opt20.ads: Move dg directive to...
authorebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 20 Sep 2012 21:59:38 +0000 (21:59 +0000)
committerebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 20 Sep 2012 21:59:38 +0000 (21:59 +0000)
* gnat.dg/opt20.adb: ...here.
* gnat.dg/addr1.ad[sb]: Likewise.
* gnat.dg/concat2.ad[sb]: Likewise.
* gnat.dg/array16.ad[sb]: Likewise.
* gnat.dg/atomic5.ad[sb]: Likewise.
* gnat.dg/discr29.ad[sb]: Likewise.
* gnat.dg/noreturn5.ad[sb]: Likewise.
* gnat.dg/vect8.ad[sb]: Likewise.  Add dg-options.
* 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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/gcc-4_7-branch@191593 138bc75d-0d04-0410-961f-82ee72b054a4

18 files changed:
gcc/testsuite/ChangeLog
gcc/testsuite/gnat.dg/addr1.adb
gcc/testsuite/gnat.dg/addr1.ads
gcc/testsuite/gnat.dg/array16.adb
gcc/testsuite/gnat.dg/array16.ads
gcc/testsuite/gnat.dg/atomic5.adb
gcc/testsuite/gnat.dg/atomic5.ads
gcc/testsuite/gnat.dg/concat2.adb
gcc/testsuite/gnat.dg/concat2.ads
gcc/testsuite/gnat.dg/discr23.ads
gcc/testsuite/gnat.dg/discr29.adb
gcc/testsuite/gnat.dg/discr29.ads
gcc/testsuite/gnat.dg/nested_float_packed.ads
gcc/testsuite/gnat.dg/opt20.adb
gcc/testsuite/gnat.dg/opt20.ads
gcc/testsuite/gnat.dg/specs/oconst6.ads [moved from gcc/testsuite/gnat.dg/oconst6.ads with 100% similarity]
gcc/testsuite/gnat.dg/vect8.adb
gcc/testsuite/gnat.dg/vect8.ads

index 9300086..9c2fe4f 100644 (file)
@@ -1,3 +1,19 @@
+2012-09-20  Eric Botcazou  <ebotcazou@adacore.com>
+
+       * gnat.dg/opt20.ads: Move dg directive to...
+       * gnat.dg/opt20.adb: ...here.
+       * gnat.dg/addr1.ad[sb]: Likewise.
+       * gnat.dg/concat2.ad[sb]: Likewise.
+       * gnat.dg/array16.ad[sb]: Likewise.
+       * gnat.dg/atomic5.ad[sb]: Likewise.
+       * gnat.dg/discr29.ad[sb]: Likewise.
+       * gnat.dg/noreturn5.ad[sb]: Likewise.
+       * gnat.dg/vect8.ad[sb]: Likewise.  Add dg-options.
+       * 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-20  Joseph Myers  <joseph@codesourcery.com>
 
        PR c/54552
index 521d049..5f5ff53 100644 (file)
@@ -1,3 +1,5 @@
+--  { dg-do compile }
+
 with System;
 package body addr1 is
    task type T is
index 51061fd..99496cd 100644 (file)
@@ -1,5 +1,3 @@
---  { dg-do compile }
-
 package addr1 is
    pragma Elaborate_Body;
 end;
index 18abf8f..be61cb9 100644 (file)
@@ -1,3 +1,6 @@
+-- { dg-do compile }
+-- { dg-options "-O -gnatn -fdump-tree-optimized" }
+
 package body Array16 is
 
   function F1 (A : access My_T1) return My_T1 is
@@ -20,3 +23,6 @@ package body Array16 is
   end;
 
 end Array16;
+
+-- { dg-final { scan-tree-dump-not "secondary_stack" "optimized" } }
+-- { dg-final { cleanup-tree-dump "optimized" } }
index 69452c9..a54a2df 100644 (file)
@@ -1,6 +1,3 @@
--- { dg-do compile }
--- { dg-options "-O -gnatn -fdump-tree-optimized" }
-
 with Array16_Pkg;
 
 package Array16 is
@@ -26,6 +23,3 @@ package Array16 is
   procedure Proc (A : access My_T1; B : access My_T2);
 
 end Array16;
-
--- { dg-final { scan-tree-dump-not "secondary_stack" "optimized" } }
--- { dg-final { cleanup-tree-dump "optimized" } }
index efbed4e..d17e6ff 100644 (file)
@@ -1,3 +1,5 @@
+-- { dg-do compile }
+
 package body Atomic5 is
 
   function Create return R is
index 3f653fa..ce702ba 100644 (file)
@@ -1,5 +1,3 @@
--- { dg-do compile }
-
 with Unchecked_Conversion;
 
 package Atomic5 is
index 221c4a3..a642d26 100644 (file)
@@ -1,3 +1,6 @@
+-- { dg-do compile }
+-- { dg-options "-O" }
+
 with Text_IO; use Text_IO;
 
 package body Concat2 is
@@ -15,4 +18,3 @@ package body Concat2 is
    end;
 
 end Concat2;
-
index 01e620b..9f90cbb 100644 (file)
@@ -1,6 +1,3 @@
--- { dg-do compile }
--- { dg-options "-O" }
-
 package Concat2 is
 
    procedure Browse;
index 8e673b3..960dcda 100644 (file)
@@ -1,5 +1,3 @@
--- { dg-do compile }
-
 package Discr23 is
 
   procedure Dummy;
index 56047c9..834437f 100644 (file)
@@ -1,3 +1,5 @@
+-- { dg-do compile }
+
 package body Discr29 is
 
    procedure Proc (R : out Rec3) is
index a205bc1..6bbf167 100644 (file)
@@ -1,5 +1,3 @@
--- { dg-do compile }
-
 package Discr29 is
 
    type Rec1 is record
index ae7f523..46b9e80 100644 (file)
@@ -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;
-
-
index 6d3e240..00e41b4 100644 (file)
@@ -1,3 +1,6 @@
+-- { dg-do compile }
+-- { dg-options "-O2 -gnatpn" }
+
 with Ada.Characters.Handling; use Ada.Characters.Handling;
 
 package body Opt20 is
index 58833bf..ec547ee 100644 (file)
@@ -1,6 +1,3 @@
--- { dg-do compile }
--- { dg-options "-O2 -gnatpn" }
-
 with Opt20_Pkg; use Opt20_Pkg;
 
 package Opt20 is
index b13555a..7b1cecf 100644 (file)
@@ -1,3 +1,6 @@
+-- { dg-do compile }
+-- { dg-options "-w" }
+
 package body Vect8 is
 
    function Foo (V : Vec) return Vec is
index 5406c70..c926cd5 100644 (file)
@@ -1,5 +1,3 @@
--- { dg-do compile }
-
 package Vect8 is
 
    type Vec is array (1 .. 2) of Long_Float;