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 (file)
index 0000000..d3eab3e
--- /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 (file)
index 0000000..cef4b11
--- /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 (file)
index 0000000..7d4eeed
--- /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 (file)
index 0000000..d6f8db5
--- /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 (file)
index 0000000..6a570cb
--- /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 d75b8e0b31532f5966d1d21c8054cc85d2c59327..de64b45a1e3e630a92f932e934dfab0393144547 100644 (file)
--- 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 f7cba01ed815524c46c0c2d95082d6b85bf31caa..ae9bdc6cfcdf66a35cf2590588c484ba08d0aec1 100644 (file)
--- 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 093233a31ff939494c6f1e52cbb3d760e4eef0b1..9577e21ad70f759224758ef2d1360467228dab7e 100644 (file)
--- 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 da4c5891be26ac97940ecc65dc34bfe3e1c33cbe..2f07d063908200fa7277aa454c3478b5a2b8b2bb 100644 (file)
--- 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 bd1bc4c39c8a966b532d79cf3e1e5c7d433db2d8..575617c087886e74daee502cbf3c8536560cf54e 100644 (file)
--- 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 818071d11094f73c42e4d88177e3471ab8ef090e..ea966fbae0fe878df4886374144ecc6572b368a5 100644 (file)
--- 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 b8d5f8f581e27e44aa3aecafa5e0c19053f7aca6..35d45448cb6ddf4df9039a3022e6e41e521a307b 100644 (file)
--- 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 906e34ee0bef6e2d1d6e60ea2abb627b72b592ba..510105f6840f36471993c1d7f63bb4e6e237f856 100644 (file)
--- 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 (file)
index d3eab3e..0000000
--- 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 4b64f101bd94f93f679a4a8b66b87576ccae6772..ce9f406dba58b89d654bcf4ffefbd486bb9f2543 100644 (file)
--- 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 (file)
index cef4b11..0000000
--- 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 2a92e52fbae7921dfdbf78fb07e390c9b0a4ce4d..157f3ddd287fb36c0a2b400272f68c4f70238a4e 100644 (file)
--- 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 (file)
index 7d4eeed..0000000
--- 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 0eb20b22cb416416c6e27cde3aa63cab8a60af84..f214bca2ec420b3209c633aa51a8e653c172d279 100644 (file)
--- 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 e32c04a2e0192589392e86bc33d12a56d83c6b3d..bc3002c6a95bd514914eef9e1ff9610573eb5952 100644 (file)
--- 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 (file)
index d6f8db5..0000000
--- 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 2b4d4995e99e36a8cb0f9e4e3289424a143fa055..b3db9a36fe1b47a806f7db92bce9bac614288aed 100644 (file)
--- 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 (file)
index 6a570cb..0000000
--- 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 3d783d045723fcc3cd56edb8ae327f31c541a9c2..f24045cbee3f08db616d6461e373ba8e9348fc26 100644 (file)
--- 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 5242b157586f47261c7f522054d5905b76b7d1ba..4ca4d5c8b542e0fd47b15015de072c1c0195d563 100644 (file)
--- 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);