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; _______________________________________________ llvm-commits mailing list llvm-commits@cs.uiuc.edu http://lists.cs.uiuc.edu/mailman/listinfo/llvm-commits
