[llvm-commits] CVS: llvm/test/FrontendAda/array_constructor.adb array_range_ref.adb array_ref.adb array_size.adb emit_var.ads fat_fields.adb fat_fields.ads non_lvalue.adb non_lvalue.ads switch.adb var_size.adb var_size.ads vce.adb vce_lv.adb
Chris Lattner
sabre at nondot.org
Tue Apr 3 14:46:40 PDT 2007
Changes in directory llvm/test/FrontendAda:
array_constructor.adb added (r1.1)
array_range_ref.adb added (r1.1)
array_ref.adb added (r1.1)
array_size.adb added (r1.1)
emit_var.ads added (r1.1)
fat_fields.adb added (r1.1)
fat_fields.ads added (r1.1)
non_lvalue.adb added (r1.1)
non_lvalue.ads added (r1.1)
switch.adb added (r1.1)
var_size.adb added (r1.1)
var_size.ads added (r1.1)
vce.adb added (r1.1)
vce_lv.adb added (r1.1)
---
Log message:
move ada tests
---
Diffs of the changes: (+115 -0)
array_constructor.adb | 6 ++++++
array_range_ref.adb | 7 +++++++
array_ref.adb | 11 +++++++++++
array_size.adb | 10 ++++++++++
emit_var.ads | 5 +++++
fat_fields.adb | 10 ++++++++++
fat_fields.ads | 6 ++++++
non_lvalue.adb | 7 +++++++
non_lvalue.ads | 11 +++++++++++
switch.adb | 12 ++++++++++++
var_size.adb | 7 +++++++
var_size.ads | 7 +++++++
vce.adb | 7 +++++++
vce_lv.adb | 9 +++++++++
14 files changed, 115 insertions(+)
Index: llvm/test/FrontendAda/array_constructor.adb
diff -c /dev/null llvm/test/FrontendAda/array_constructor.adb:1.1
*** /dev/null Tue Apr 3 16:46:32 2007
--- llvm/test/FrontendAda/array_constructor.adb Tue Apr 3 16:46:22 2007
***************
*** 0 ****
--- 1,6 ----
+ -- RUN: %llvmgcc -c %s -o /dev/null
+ procedure Array_Constructor is
+ A : array (Integer range <>) of Boolean := (True, False);
+ begin
+ null;
+ end;
Index: llvm/test/FrontendAda/array_range_ref.adb
diff -c /dev/null llvm/test/FrontendAda/array_range_ref.adb:1.1
*** /dev/null Tue Apr 3 16:46:40 2007
--- llvm/test/FrontendAda/array_range_ref.adb Tue Apr 3 16:46:22 2007
***************
*** 0 ****
--- 1,7 ----
+ -- RUN: %llvmgcc -c %s -o /dev/null
+ procedure Array_Range_Ref is
+ A : String (1 .. 3);
+ B : String := A (A'RANGE)(1 .. 3);
+ begin
+ null;
+ end;
Index: llvm/test/FrontendAda/array_ref.adb
diff -c /dev/null llvm/test/FrontendAda/array_ref.adb:1.1
*** /dev/null Tue Apr 3 16:46:40 2007
--- llvm/test/FrontendAda/array_ref.adb Tue Apr 3 16:46:22 2007
***************
*** 0 ****
--- 1,11 ----
+ -- RUN: %llvmgcc -c %s -o /dev/null
+ procedure Array_Ref is
+ type A is array (Natural range <>, Natural range <>) of Boolean;
+ type A_Access is access A;
+ function Get (X : A_Access) return Boolean is
+ begin
+ return X (0, 0);
+ end;
+ begin
+ null;
+ end;
Index: llvm/test/FrontendAda/array_size.adb
diff -c /dev/null llvm/test/FrontendAda/array_size.adb:1.1
*** /dev/null Tue Apr 3 16:46:40 2007
--- llvm/test/FrontendAda/array_size.adb Tue Apr 3 16:46:22 2007
***************
*** 0 ****
--- 1,10 ----
+ -- RUN: %llvmgcc -c %s -o /dev/null
+ procedure Array_Size is
+ subtype S is String (1 .. 2);
+ type R is record
+ A : S;
+ end record;
+ X : R;
+ begin
+ null;
+ end;
Index: llvm/test/FrontendAda/emit_var.ads
diff -c /dev/null llvm/test/FrontendAda/emit_var.ads:1.1
*** /dev/null Tue Apr 3 16:46:40 2007
--- llvm/test/FrontendAda/emit_var.ads Tue Apr 3 16:46:22 2007
***************
*** 0 ****
--- 1,5 ----
+ -- RUN: %llvmgcc -c %s -o /dev/null
+ with Ada.Finalization;
+ package Emit_Var is
+ type Search_Type is new Ada.Finalization.Controlled with null record;
+ end;
Index: llvm/test/FrontendAda/fat_fields.adb
diff -c /dev/null llvm/test/FrontendAda/fat_fields.adb:1.1
*** /dev/null Tue Apr 3 16:46:40 2007
--- llvm/test/FrontendAda/fat_fields.adb Tue Apr 3 16:46:22 2007
***************
*** 0 ****
--- 1,10 ----
+ -- RUN: %llvmgcc -c %s -o /dev/null
+ -- RUN: %llvmgcc -c %s -O2 -o /dev/null
+ package body Fat_Fields is
+ procedure Proc is
+ begin
+ if P = null then
+ null;
+ end if;
+ end;
+ end;
Index: llvm/test/FrontendAda/fat_fields.ads
diff -c /dev/null llvm/test/FrontendAda/fat_fields.ads:1.1
*** /dev/null Tue Apr 3 16:46:40 2007
--- llvm/test/FrontendAda/fat_fields.ads Tue Apr 3 16:46:22 2007
***************
*** 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;
Index: llvm/test/FrontendAda/non_lvalue.adb
diff -c /dev/null llvm/test/FrontendAda/non_lvalue.adb:1.1
*** /dev/null Tue Apr 3 16:46:40 2007
--- llvm/test/FrontendAda/non_lvalue.adb Tue Apr 3 16:46:22 2007
***************
*** 0 ****
--- 1,7 ----
+ -- RUN: %llvmgcc -c %s -o /dev/null
+ package body Non_LValue is
+ function A (Y : U) return String is
+ begin
+ return Y.X.B;
+ end;
+ end;
Index: llvm/test/FrontendAda/non_lvalue.ads
diff -c /dev/null llvm/test/FrontendAda/non_lvalue.ads:1.1
*** /dev/null Tue Apr 3 16:46:40 2007
--- llvm/test/FrontendAda/non_lvalue.ads Tue Apr 3 16:46:22 2007
***************
*** 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;
Index: llvm/test/FrontendAda/switch.adb
diff -c /dev/null llvm/test/FrontendAda/switch.adb:1.1
*** /dev/null Tue Apr 3 16:46:40 2007
--- llvm/test/FrontendAda/switch.adb Tue Apr 3 16:46:22 2007
***************
*** 0 ****
--- 1,12 ----
+ -- RUN: %llvmgcc -c %s -o /dev/null
+ function Switch (N : Integer) return Integer is
+ begin
+ case N is
+ when Integer'First .. -1 =>
+ return -1;
+ when 0 =>
+ return 0;
+ when others =>
+ return 1;
+ end case;
+ end;
Index: llvm/test/FrontendAda/var_size.adb
diff -c /dev/null llvm/test/FrontendAda/var_size.adb:1.1
*** /dev/null Tue Apr 3 16:46:40 2007
--- llvm/test/FrontendAda/var_size.adb Tue Apr 3 16:46:22 2007
***************
*** 0 ****
--- 1,7 ----
+ -- RUN: %llvmgcc -c %s -o /dev/null
+ package body Var_Size is
+ function A (X : T) return String is
+ begin
+ return X.A;
+ end;
+ end;
Index: llvm/test/FrontendAda/var_size.ads
diff -c /dev/null llvm/test/FrontendAda/var_size.ads:1.1
*** /dev/null Tue Apr 3 16:46:40 2007
--- llvm/test/FrontendAda/var_size.ads Tue Apr 3 16:46:22 2007
***************
*** 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;
Index: llvm/test/FrontendAda/vce.adb
diff -c /dev/null llvm/test/FrontendAda/vce.adb:1.1
*** /dev/null Tue Apr 3 16:46:40 2007
--- llvm/test/FrontendAda/vce.adb Tue Apr 3 16:46:22 2007
***************
*** 0 ****
--- 1,7 ----
+ -- RUN: %llvmgcc -c %s -o /dev/null
+ procedure VCE is
+ S : String (1 .. 2);
+ B : Character := 'B';
+ begin
+ S := 'A' & B;
+ end;
Index: llvm/test/FrontendAda/vce_lv.adb
diff -c /dev/null llvm/test/FrontendAda/vce_lv.adb:1.1
*** /dev/null Tue Apr 3 16:46:40 2007
--- llvm/test/FrontendAda/vce_lv.adb Tue Apr 3 16:46:22 2007
***************
*** 0 ****
--- 1,9 ----
+ -- RUN: %llvmgcc -c %s -o /dev/null
+ procedure VCE_LV is
+ type P is access String ;
+ type T is new P (5 .. 7);
+ subtype U is String (5 .. 7);
+ X : T := new U'(others => 'A');
+ begin
+ null;
+ end;
More information about the llvm-commits
mailing list