From: Duncan Sands <baldrick@free.fr>
Date: Mon, 23 Jul 2007 13:41:53 +0000 (+0000)
Subject: For multipart tests, place the parts with no
X-Git-Url: http://demsky.eecs.uci.edu/git/?a=commitdiff_plain;h=1b4b25696bd74249503d2eb34ca17b2d3815796a;p=oota-llvm.git

For multipart tests, place the parts with no
RUN line in Support.  Give up on sending output
to /dev/null - this cannot always be arranged.


git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@40436 91177308-0d34-0410-b5e6-96231b3b80d8
---

diff --git a/test/FrontendAda/Support/fat_fields.ads b/test/FrontendAda/Support/fat_fields.ads
new file mode 100644
index 00000000000..d3eab3e2866
--- /dev/null
+++ b/test/FrontendAda/Support/fat_fields.ads
@@ -0,0 +1,6 @@
+package Fat_Fields is
+   pragma Elaborate_Body;
+   type A is array (Positive range <>) of Boolean;
+   type A_Ptr is access A;
+   P : A_Ptr := null;
+end;
diff --git a/test/FrontendAda/Support/global_constant.ads b/test/FrontendAda/Support/global_constant.ads
new file mode 100644
index 00000000000..cef4b11f684
--- /dev/null
+++ b/test/FrontendAda/Support/global_constant.ads
@@ -0,0 +1,4 @@
+package Global_Constant is
+   pragma Elaborate_Body;
+   An_Error : exception;
+end;
diff --git a/test/FrontendAda/Support/non_lvalue.ads b/test/FrontendAda/Support/non_lvalue.ads
new file mode 100644
index 00000000000..7d4eeed8b8e
--- /dev/null
+++ b/test/FrontendAda/Support/non_lvalue.ads
@@ -0,0 +1,11 @@
+package Non_LValue is
+   type T (Length : Natural) is record
+      A : String (1 .. Length);
+      B : String (1 .. Length);
+   end record;
+   type T_Ptr is access all T;
+   type U is record
+      X : T_Ptr;
+   end record;
+   function A (Y : U) return String;
+end;
diff --git a/test/FrontendAda/Support/unc_constructor.ads b/test/FrontendAda/Support/unc_constructor.ads
new file mode 100644
index 00000000000..d6f8db50d89
--- /dev/null
+++ b/test/FrontendAda/Support/unc_constructor.ads
@@ -0,0 +1,8 @@
+package Unc_Constructor is
+   type C is null record;
+   type A is array (Positive range <>) of C;
+   A0 : constant A;
+   procedure P (X : A);
+private
+   A0 : aliased constant A := (1 .. 0 => (null record));
+end;
diff --git a/test/FrontendAda/Support/var_size.ads b/test/FrontendAda/Support/var_size.ads
new file mode 100644
index 00000000000..6a570cba8bd
--- /dev/null
+++ b/test/FrontendAda/Support/var_size.ads
@@ -0,0 +1,7 @@
+package Var_Size is
+   type T (Length : Natural) is record
+      A : String (1 .. Length);
+      B : String (1 .. Length);
+   end record;
+   function A (X : T) return String;
+end;
diff --git a/test/FrontendAda/array_constructor.adb b/test/FrontendAda/array_constructor.adb
index d75b8e0b315..de64b45a1e3 100644
--- a/test/FrontendAda/array_constructor.adb
+++ b/test/FrontendAda/array_constructor.adb
@@ -1,4 +1,4 @@
--- RUN: %llvmgcc -c %s -o /dev/null
+-- RUN: %llvmgcc -c %s
 procedure Array_Constructor is
    A : array (Integer range <>) of Boolean := (True, False);
 begin
diff --git a/test/FrontendAda/array_range_ref.adb b/test/FrontendAda/array_range_ref.adb
index f7cba01ed81..ae9bdc6cfcd 100644
--- a/test/FrontendAda/array_range_ref.adb
+++ b/test/FrontendAda/array_range_ref.adb
@@ -1,4 +1,4 @@
--- RUN: %llvmgcc -c %s -o /dev/null
+-- RUN: %llvmgcc -c %s
 procedure Array_Range_Ref is
    A : String (1 .. 3);
    B : String := A (A'RANGE)(1 .. 3);
diff --git a/test/FrontendAda/array_ref.adb b/test/FrontendAda/array_ref.adb
index 093233a31ff..9577e21ad70 100644
--- a/test/FrontendAda/array_ref.adb
+++ b/test/FrontendAda/array_ref.adb
@@ -1,4 +1,4 @@
--- RUN: %llvmgcc -c %s -o /dev/null
+-- RUN: %llvmgcc -c %s
 procedure Array_Ref is
    type A is array (Natural range <>, Natural range <>) of Boolean;
    type A_Access is access A;
diff --git a/test/FrontendAda/array_size.adb b/test/FrontendAda/array_size.adb
index da4c5891be2..2f07d063908 100644
--- a/test/FrontendAda/array_size.adb
+++ b/test/FrontendAda/array_size.adb
@@ -1,4 +1,4 @@
--- RUN: %llvmgcc -c %s -o /dev/null
+-- RUN: %llvmgcc -c %s
 procedure Array_Size is
    subtype S is String (1 .. 2);
    type R is record
diff --git a/test/FrontendAda/asm.adb b/test/FrontendAda/asm.adb
index bd1bc4c39c8..575617c0878 100644
--- a/test/FrontendAda/asm.adb
+++ b/test/FrontendAda/asm.adb
@@ -1,4 +1,4 @@
--- RUN: %llvmgcc -c %s -o /dev/null
+-- RUN: %llvmgcc -c %s
 with System.Machine_Code;
 procedure Asm is
 begin
diff --git a/test/FrontendAda/debug_var_size.ads b/test/FrontendAda/debug_var_size.ads
index 818071d1109..ea966fbae0f 100644
--- a/test/FrontendAda/debug_var_size.ads
+++ b/test/FrontendAda/debug_var_size.ads
@@ -1,4 +1,4 @@
--- RUN: %llvmgcc -c -g %s -o /dev/null
+-- RUN: %llvmgcc -c -g %s
 package Debug_Var_Size is
    subtype Length_Type is Positive range 1 .. 64;
    type T (Length : Length_Type := 1) is record
diff --git a/test/FrontendAda/emit_var.ads b/test/FrontendAda/emit_var.ads
index b8d5f8f581e..35d45448cb6 100644
--- a/test/FrontendAda/emit_var.ads
+++ b/test/FrontendAda/emit_var.ads
@@ -1,4 +1,4 @@
--- RUN: %llvmgcc -c %s -o /dev/null
+-- RUN: %llvmgcc -c %s
 with Ada.Finalization;
 package Emit_Var is
    type Search_Type is new Ada.Finalization.Controlled with null record;
diff --git a/test/FrontendAda/fat_fields.adb b/test/FrontendAda/fat_fields.adb
index 906e34ee0be..510105f6840 100644
--- a/test/FrontendAda/fat_fields.adb
+++ b/test/FrontendAda/fat_fields.adb
@@ -1,5 +1,5 @@
--- RUN: %llvmgcc -c %s -o /dev/null
--- RUN: %llvmgcc -c %s -O2 -o /dev/null
+-- RUN: %llvmgcc -c %s -I%p/Support
+-- RUN: %llvmgcc -c %s -I%p/Support -O2
 package body Fat_Fields is
    procedure Proc is
    begin
diff --git a/test/FrontendAda/fat_fields.ads b/test/FrontendAda/fat_fields.ads
deleted file mode 100644
index d3eab3e2866..00000000000
--- a/test/FrontendAda/fat_fields.ads
+++ /dev/null
@@ -1,6 +0,0 @@
-package Fat_Fields is
-   pragma Elaborate_Body;
-   type A is array (Positive range <>) of Boolean;
-   type A_Ptr is access A;
-   P : A_Ptr := null;
-end;
diff --git a/test/FrontendAda/global_constant.adb b/test/FrontendAda/global_constant.adb
index 4b64f101bd9..ce9f406dba5 100644
--- a/test/FrontendAda/global_constant.adb
+++ b/test/FrontendAda/global_constant.adb
@@ -1,4 +1,4 @@
--- RUN: %llvmgcc -c %s -o /dev/null
+-- RUN: %llvmgcc -c %s -I%p/Support
 package body Global_Constant is
 begin
    raise An_Error;
diff --git a/test/FrontendAda/global_constant.ads b/test/FrontendAda/global_constant.ads
deleted file mode 100644
index cef4b11f684..00000000000
--- a/test/FrontendAda/global_constant.ads
+++ /dev/null
@@ -1,4 +0,0 @@
-package Global_Constant is
-   pragma Elaborate_Body;
-   An_Error : exception;
-end;
diff --git a/test/FrontendAda/non_lvalue.adb b/test/FrontendAda/non_lvalue.adb
index 2a92e52fbae..157f3ddd287 100644
--- a/test/FrontendAda/non_lvalue.adb
+++ b/test/FrontendAda/non_lvalue.adb
@@ -1,4 +1,4 @@
--- RUN: %llvmgcc -c %s -o /dev/null
+-- RUN: %llvmgcc -c %s -I%p/Support
 package body Non_LValue is
    function A (Y : U) return String is
    begin
diff --git a/test/FrontendAda/non_lvalue.ads b/test/FrontendAda/non_lvalue.ads
deleted file mode 100644
index 7d4eeed8b8e..00000000000
--- a/test/FrontendAda/non_lvalue.ads
+++ /dev/null
@@ -1,11 +0,0 @@
-package Non_LValue is
-   type T (Length : Natural) is record
-      A : String (1 .. Length);
-      B : String (1 .. Length);
-   end record;
-   type T_Ptr is access all T;
-   type U is record
-      X : T_Ptr;
-   end record;
-   function A (Y : U) return String;
-end;
diff --git a/test/FrontendAda/switch.adb b/test/FrontendAda/switch.adb
index 0eb20b22cb4..f214bca2ec4 100644
--- a/test/FrontendAda/switch.adb
+++ b/test/FrontendAda/switch.adb
@@ -1,4 +1,4 @@
--- RUN: %llvmgcc -c %s -o /dev/null
+-- RUN: %llvmgcc -c %s
 function Switch (N : Integer) return Integer is
 begin
    case N is
diff --git a/test/FrontendAda/unc_constructor.adb b/test/FrontendAda/unc_constructor.adb
index e32c04a2e01..bc3002c6a95 100644
--- a/test/FrontendAda/unc_constructor.adb
+++ b/test/FrontendAda/unc_constructor.adb
@@ -1,4 +1,4 @@
--- RUN: %llvmgcc -c %s -o /dev/null
+-- RUN: %llvmgcc -c %s -I%p/Support
 package body Unc_Constructor is
    procedure P (X : A) is
    begin
diff --git a/test/FrontendAda/unc_constructor.ads b/test/FrontendAda/unc_constructor.ads
deleted file mode 100644
index d6f8db50d89..00000000000
--- a/test/FrontendAda/unc_constructor.ads
+++ /dev/null
@@ -1,8 +0,0 @@
-package Unc_Constructor is
-   type C is null record;
-   type A is array (Positive range <>) of C;
-   A0 : constant A;
-   procedure P (X : A);
-private
-   A0 : aliased constant A := (1 .. 0 => (null record));
-end;
diff --git a/test/FrontendAda/var_size.adb b/test/FrontendAda/var_size.adb
index 2b4d4995e99..b3db9a36fe1 100644
--- a/test/FrontendAda/var_size.adb
+++ b/test/FrontendAda/var_size.adb
@@ -1,4 +1,4 @@
--- RUN: %llvmgcc -c %s -o /dev/null
+-- RUN: %llvmgcc -c %s -I%p/Support
 package body Var_Size is
    function A (X : T) return String is
    begin
diff --git a/test/FrontendAda/var_size.ads b/test/FrontendAda/var_size.ads
deleted file mode 100644
index 6a570cba8bd..00000000000
--- a/test/FrontendAda/var_size.ads
+++ /dev/null
@@ -1,7 +0,0 @@
-package Var_Size is
-   type T (Length : Natural) is record
-      A : String (1 .. Length);
-      B : String (1 .. Length);
-   end record;
-   function A (X : T) return String;
-end;
diff --git a/test/FrontendAda/vce.adb b/test/FrontendAda/vce.adb
index 3d783d04572..f24045cbee3 100644
--- a/test/FrontendAda/vce.adb
+++ b/test/FrontendAda/vce.adb
@@ -1,4 +1,4 @@
--- RUN: %llvmgcc -c %s -o /dev/null
+-- RUN: %llvmgcc -c %s
 procedure VCE is
   S : String (1 .. 2);
   B : Character := 'B';
diff --git a/test/FrontendAda/vce_lv.adb b/test/FrontendAda/vce_lv.adb
index 5242b157586..4ca4d5c8b54 100644
--- a/test/FrontendAda/vce_lv.adb
+++ b/test/FrontendAda/vce_lv.adb
@@ -1,4 +1,4 @@
--- RUN: %llvmgcc -c %s -o /dev/null
+-- RUN: %llvmgcc -c %s
 procedure VCE_LV is
    type P is access String ;
    type T is new P (5 .. 7);