[llvm-commits] [llvm] r40436 - in /llvm/trunk/test/FrontendAda: Support/ Support/fat_fields.ads Support/global_constant.ads Support/non_lvalue.ads Support/unc_constructor.ads Support/var_size.ads array_constructor.adb array_range_ref.adb array_ref.adb array_size.adb asm.adb debug_var_size.ads emit_var.ads fat_fields.adb fat_fields.ads global_constant.adb global_constant.ads non_lvalue.adb non_lvalue.ads switch.adb unc_constructor.adb unc_constructor.ads var_size.adb var_size.ads vce.adb vce_lv.adb
Duncan Sands
baldrick at free.fr
Mon Jul 23 06:41:54 PDT 2007
Author: baldrick
Date: Mon Jul 23 08:41:53 2007
New Revision: 40436
URL: http://llvm.org/viewvc/llvm-project?rev=40436&view=rev
Log:
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.
Added:
llvm/trunk/test/FrontendAda/Support/
llvm/trunk/test/FrontendAda/Support/fat_fields.ads
llvm/trunk/test/FrontendAda/Support/global_constant.ads
llvm/trunk/test/FrontendAda/Support/non_lvalue.ads
llvm/trunk/test/FrontendAda/Support/unc_constructor.ads
llvm/trunk/test/FrontendAda/Support/var_size.ads
Removed:
llvm/trunk/test/FrontendAda/fat_fields.ads
llvm/trunk/test/FrontendAda/global_constant.ads
llvm/trunk/test/FrontendAda/non_lvalue.ads
llvm/trunk/test/FrontendAda/unc_constructor.ads
llvm/trunk/test/FrontendAda/var_size.ads
Modified:
llvm/trunk/test/FrontendAda/array_constructor.adb
llvm/trunk/test/FrontendAda/array_range_ref.adb
llvm/trunk/test/FrontendAda/array_ref.adb
llvm/trunk/test/FrontendAda/array_size.adb
llvm/trunk/test/FrontendAda/asm.adb
llvm/trunk/test/FrontendAda/debug_var_size.ads
llvm/trunk/test/FrontendAda/emit_var.ads
llvm/trunk/test/FrontendAda/fat_fields.adb
llvm/trunk/test/FrontendAda/global_constant.adb
llvm/trunk/test/FrontendAda/non_lvalue.adb
llvm/trunk/test/FrontendAda/switch.adb
llvm/trunk/test/FrontendAda/unc_constructor.adb
llvm/trunk/test/FrontendAda/var_size.adb
llvm/trunk/test/FrontendAda/vce.adb
llvm/trunk/test/FrontendAda/vce_lv.adb
Added: llvm/trunk/test/FrontendAda/Support/fat_fields.ads
URL: http://llvm.org/viewvc/llvm-project/llvm/trunk/test/FrontendAda/Support/fat_fields.ads?rev=40436&view=auto
==============================================================================
--- llvm/trunk/test/FrontendAda/Support/fat_fields.ads (added)
+++ llvm/trunk/test/FrontendAda/Support/fat_fields.ads Mon Jul 23 08:41:53 2007
@@ -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;
Added: llvm/trunk/test/FrontendAda/Support/global_constant.ads
URL: http://llvm.org/viewvc/llvm-project/llvm/trunk/test/FrontendAda/Support/global_constant.ads?rev=40436&view=auto
==============================================================================
--- llvm/trunk/test/FrontendAda/Support/global_constant.ads (added)
+++ llvm/trunk/test/FrontendAda/Support/global_constant.ads Mon Jul 23 08:41:53 2007
@@ -0,0 +1,4 @@
+package Global_Constant is
+ pragma Elaborate_Body;
+ An_Error : exception;
+end;
Added: llvm/trunk/test/FrontendAda/Support/non_lvalue.ads
URL: http://llvm.org/viewvc/llvm-project/llvm/trunk/test/FrontendAda/Support/non_lvalue.ads?rev=40436&view=auto
==============================================================================
--- llvm/trunk/test/FrontendAda/Support/non_lvalue.ads (added)
+++ llvm/trunk/test/FrontendAda/Support/non_lvalue.ads Mon Jul 23 08:41:53 2007
@@ -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;
Added: llvm/trunk/test/FrontendAda/Support/unc_constructor.ads
URL: http://llvm.org/viewvc/llvm-project/llvm/trunk/test/FrontendAda/Support/unc_constructor.ads?rev=40436&view=auto
==============================================================================
--- llvm/trunk/test/FrontendAda/Support/unc_constructor.ads (added)
+++ llvm/trunk/test/FrontendAda/Support/unc_constructor.ads Mon Jul 23 08:41:53 2007
@@ -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;
Added: llvm/trunk/test/FrontendAda/Support/var_size.ads
URL: http://llvm.org/viewvc/llvm-project/llvm/trunk/test/FrontendAda/Support/var_size.ads?rev=40436&view=auto
==============================================================================
--- llvm/trunk/test/FrontendAda/Support/var_size.ads (added)
+++ llvm/trunk/test/FrontendAda/Support/var_size.ads Mon Jul 23 08:41:53 2007
@@ -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;
Modified: llvm/trunk/test/FrontendAda/array_constructor.adb
URL: http://llvm.org/viewvc/llvm-project/llvm/trunk/test/FrontendAda/array_constructor.adb?rev=40436&r1=40435&r2=40436&view=diff
==============================================================================
--- llvm/trunk/test/FrontendAda/array_constructor.adb (original)
+++ llvm/trunk/test/FrontendAda/array_constructor.adb Mon Jul 23 08:41:53 2007
@@ -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
Modified: llvm/trunk/test/FrontendAda/array_range_ref.adb
URL: http://llvm.org/viewvc/llvm-project/llvm/trunk/test/FrontendAda/array_range_ref.adb?rev=40436&r1=40435&r2=40436&view=diff
==============================================================================
--- llvm/trunk/test/FrontendAda/array_range_ref.adb (original)
+++ llvm/trunk/test/FrontendAda/array_range_ref.adb Mon Jul 23 08:41:53 2007
@@ -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);
Modified: llvm/trunk/test/FrontendAda/array_ref.adb
URL: http://llvm.org/viewvc/llvm-project/llvm/trunk/test/FrontendAda/array_ref.adb?rev=40436&r1=40435&r2=40436&view=diff
==============================================================================
--- llvm/trunk/test/FrontendAda/array_ref.adb (original)
+++ llvm/trunk/test/FrontendAda/array_ref.adb Mon Jul 23 08:41:53 2007
@@ -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;
Modified: llvm/trunk/test/FrontendAda/array_size.adb
URL: http://llvm.org/viewvc/llvm-project/llvm/trunk/test/FrontendAda/array_size.adb?rev=40436&r1=40435&r2=40436&view=diff
==============================================================================
--- llvm/trunk/test/FrontendAda/array_size.adb (original)
+++ llvm/trunk/test/FrontendAda/array_size.adb Mon Jul 23 08:41:53 2007
@@ -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
Modified: llvm/trunk/test/FrontendAda/asm.adb
URL: http://llvm.org/viewvc/llvm-project/llvm/trunk/test/FrontendAda/asm.adb?rev=40436&r1=40435&r2=40436&view=diff
==============================================================================
--- llvm/trunk/test/FrontendAda/asm.adb (original)
+++ llvm/trunk/test/FrontendAda/asm.adb Mon Jul 23 08:41:53 2007
@@ -1,4 +1,4 @@
--- RUN: %llvmgcc -c %s -o /dev/null
+-- RUN: %llvmgcc -c %s
with System.Machine_Code;
procedure Asm is
begin
Modified: llvm/trunk/test/FrontendAda/debug_var_size.ads
URL: http://llvm.org/viewvc/llvm-project/llvm/trunk/test/FrontendAda/debug_var_size.ads?rev=40436&r1=40435&r2=40436&view=diff
==============================================================================
--- llvm/trunk/test/FrontendAda/debug_var_size.ads (original)
+++ llvm/trunk/test/FrontendAda/debug_var_size.ads Mon Jul 23 08:41:53 2007
@@ -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
Modified: llvm/trunk/test/FrontendAda/emit_var.ads
URL: http://llvm.org/viewvc/llvm-project/llvm/trunk/test/FrontendAda/emit_var.ads?rev=40436&r1=40435&r2=40436&view=diff
==============================================================================
--- llvm/trunk/test/FrontendAda/emit_var.ads (original)
+++ llvm/trunk/test/FrontendAda/emit_var.ads Mon Jul 23 08:41:53 2007
@@ -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;
Modified: llvm/trunk/test/FrontendAda/fat_fields.adb
URL: http://llvm.org/viewvc/llvm-project/llvm/trunk/test/FrontendAda/fat_fields.adb?rev=40436&r1=40435&r2=40436&view=diff
==============================================================================
--- llvm/trunk/test/FrontendAda/fat_fields.adb (original)
+++ llvm/trunk/test/FrontendAda/fat_fields.adb Mon Jul 23 08:41:53 2007
@@ -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
Removed: llvm/trunk/test/FrontendAda/fat_fields.ads
URL: http://llvm.org/viewvc/llvm-project/llvm/trunk/test/FrontendAda/fat_fields.ads?rev=40435&view=auto
==============================================================================
--- llvm/trunk/test/FrontendAda/fat_fields.ads (original)
+++ llvm/trunk/test/FrontendAda/fat_fields.ads (removed)
@@ -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;
Modified: llvm/trunk/test/FrontendAda/global_constant.adb
URL: http://llvm.org/viewvc/llvm-project/llvm/trunk/test/FrontendAda/global_constant.adb?rev=40436&r1=40435&r2=40436&view=diff
==============================================================================
--- llvm/trunk/test/FrontendAda/global_constant.adb (original)
+++ llvm/trunk/test/FrontendAda/global_constant.adb Mon Jul 23 08:41:53 2007
@@ -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;
Removed: llvm/trunk/test/FrontendAda/global_constant.ads
URL: http://llvm.org/viewvc/llvm-project/llvm/trunk/test/FrontendAda/global_constant.ads?rev=40435&view=auto
==============================================================================
--- llvm/trunk/test/FrontendAda/global_constant.ads (original)
+++ llvm/trunk/test/FrontendAda/global_constant.ads (removed)
@@ -1,4 +0,0 @@
-package Global_Constant is
- pragma Elaborate_Body;
- An_Error : exception;
-end;
Modified: llvm/trunk/test/FrontendAda/non_lvalue.adb
URL: http://llvm.org/viewvc/llvm-project/llvm/trunk/test/FrontendAda/non_lvalue.adb?rev=40436&r1=40435&r2=40436&view=diff
==============================================================================
--- llvm/trunk/test/FrontendAda/non_lvalue.adb (original)
+++ llvm/trunk/test/FrontendAda/non_lvalue.adb Mon Jul 23 08:41:53 2007
@@ -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
Removed: llvm/trunk/test/FrontendAda/non_lvalue.ads
URL: http://llvm.org/viewvc/llvm-project/llvm/trunk/test/FrontendAda/non_lvalue.ads?rev=40435&view=auto
==============================================================================
--- llvm/trunk/test/FrontendAda/non_lvalue.ads (original)
+++ llvm/trunk/test/FrontendAda/non_lvalue.ads (removed)
@@ -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;
Modified: llvm/trunk/test/FrontendAda/switch.adb
URL: http://llvm.org/viewvc/llvm-project/llvm/trunk/test/FrontendAda/switch.adb?rev=40436&r1=40435&r2=40436&view=diff
==============================================================================
--- llvm/trunk/test/FrontendAda/switch.adb (original)
+++ llvm/trunk/test/FrontendAda/switch.adb Mon Jul 23 08:41:53 2007
@@ -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
Modified: llvm/trunk/test/FrontendAda/unc_constructor.adb
URL: http://llvm.org/viewvc/llvm-project/llvm/trunk/test/FrontendAda/unc_constructor.adb?rev=40436&r1=40435&r2=40436&view=diff
==============================================================================
--- llvm/trunk/test/FrontendAda/unc_constructor.adb (original)
+++ llvm/trunk/test/FrontendAda/unc_constructor.adb Mon Jul 23 08:41:53 2007
@@ -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
Removed: llvm/trunk/test/FrontendAda/unc_constructor.ads
URL: http://llvm.org/viewvc/llvm-project/llvm/trunk/test/FrontendAda/unc_constructor.ads?rev=40435&view=auto
==============================================================================
--- llvm/trunk/test/FrontendAda/unc_constructor.ads (original)
+++ llvm/trunk/test/FrontendAda/unc_constructor.ads (removed)
@@ -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;
Modified: llvm/trunk/test/FrontendAda/var_size.adb
URL: http://llvm.org/viewvc/llvm-project/llvm/trunk/test/FrontendAda/var_size.adb?rev=40436&r1=40435&r2=40436&view=diff
==============================================================================
--- llvm/trunk/test/FrontendAda/var_size.adb (original)
+++ llvm/trunk/test/FrontendAda/var_size.adb Mon Jul 23 08:41:53 2007
@@ -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
Removed: llvm/trunk/test/FrontendAda/var_size.ads
URL: http://llvm.org/viewvc/llvm-project/llvm/trunk/test/FrontendAda/var_size.ads?rev=40435&view=auto
==============================================================================
--- llvm/trunk/test/FrontendAda/var_size.ads (original)
+++ llvm/trunk/test/FrontendAda/var_size.ads (removed)
@@ -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;
Modified: llvm/trunk/test/FrontendAda/vce.adb
URL: http://llvm.org/viewvc/llvm-project/llvm/trunk/test/FrontendAda/vce.adb?rev=40436&r1=40435&r2=40436&view=diff
==============================================================================
--- llvm/trunk/test/FrontendAda/vce.adb (original)
+++ llvm/trunk/test/FrontendAda/vce.adb Mon Jul 23 08:41:53 2007
@@ -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';
Modified: llvm/trunk/test/FrontendAda/vce_lv.adb
URL: http://llvm.org/viewvc/llvm-project/llvm/trunk/test/FrontendAda/vce_lv.adb?rev=40436&r1=40435&r2=40436&view=diff
==============================================================================
--- llvm/trunk/test/FrontendAda/vce_lv.adb (original)
+++ llvm/trunk/test/FrontendAda/vce_lv.adb Mon Jul 23 08:41:53 2007
@@ -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);
More information about the llvm-commits
mailing list