aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rw-r--r--test/AdaFrontend/array_constructor.adb6
-rw-r--r--test/AdaFrontend/array_range_ref.adb7
-rw-r--r--test/AdaFrontend/array_ref.adb11
-rw-r--r--test/AdaFrontend/array_size.adb10
-rw-r--r--test/AdaFrontend/emit_var.ads5
-rw-r--r--test/AdaFrontend/fat_fields.adb10
-rw-r--r--test/AdaFrontend/fat_fields.ads6
-rw-r--r--test/AdaFrontend/non_lvalue.adb7
-rw-r--r--test/AdaFrontend/non_lvalue.ads11
-rw-r--r--test/AdaFrontend/switch.adb12
-rw-r--r--test/AdaFrontend/var_size.adb7
-rw-r--r--test/AdaFrontend/var_size.ads7
-rw-r--r--test/AdaFrontend/vce.adb7
-rw-r--r--test/AdaFrontend/vce_lv.adb9
14 files changed, 0 insertions, 115 deletions
diff --git a/test/AdaFrontend/array_constructor.adb b/test/AdaFrontend/array_constructor.adb
deleted file mode 100644
index d75b8e0b31..0000000000
--- a/test/AdaFrontend/array_constructor.adb
+++ /dev/null
@@ -1,6 +0,0 @@
--- RUN: %llvmgcc -c %s -o /dev/null
-procedure Array_Constructor is
- A : array (Integer range <>) of Boolean := (True, False);
-begin
- null;
-end;
diff --git a/test/AdaFrontend/array_range_ref.adb b/test/AdaFrontend/array_range_ref.adb
deleted file mode 100644
index f7cba01ed8..0000000000
--- a/test/AdaFrontend/array_range_ref.adb
+++ /dev/null
@@ -1,7 +0,0 @@
--- 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;
diff --git a/test/AdaFrontend/array_ref.adb b/test/AdaFrontend/array_ref.adb
deleted file mode 100644
index 093233a31f..0000000000
--- a/test/AdaFrontend/array_ref.adb
+++ /dev/null
@@ -1,11 +0,0 @@
--- 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;
diff --git a/test/AdaFrontend/array_size.adb b/test/AdaFrontend/array_size.adb
deleted file mode 100644
index da4c5891be..0000000000
--- a/test/AdaFrontend/array_size.adb
+++ /dev/null
@@ -1,10 +0,0 @@
--- 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;
diff --git a/test/AdaFrontend/emit_var.ads b/test/AdaFrontend/emit_var.ads
deleted file mode 100644
index b8d5f8f581..0000000000
--- a/test/AdaFrontend/emit_var.ads
+++ /dev/null
@@ -1,5 +0,0 @@
--- 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;
diff --git a/test/AdaFrontend/fat_fields.adb b/test/AdaFrontend/fat_fields.adb
deleted file mode 100644
index 906e34ee0b..0000000000
--- a/test/AdaFrontend/fat_fields.adb
+++ /dev/null
@@ -1,10 +0,0 @@
--- 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;
diff --git a/test/AdaFrontend/fat_fields.ads b/test/AdaFrontend/fat_fields.ads
deleted file mode 100644
index d3eab3e286..0000000000
--- a/test/AdaFrontend/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/AdaFrontend/non_lvalue.adb b/test/AdaFrontend/non_lvalue.adb
deleted file mode 100644
index 2a92e52fba..0000000000
--- a/test/AdaFrontend/non_lvalue.adb
+++ /dev/null
@@ -1,7 +0,0 @@
--- 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;
diff --git a/test/AdaFrontend/non_lvalue.ads b/test/AdaFrontend/non_lvalue.ads
deleted file mode 100644
index 7d4eeed8b8..0000000000
--- a/test/AdaFrontend/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/AdaFrontend/switch.adb b/test/AdaFrontend/switch.adb
deleted file mode 100644
index 0eb20b22cb..0000000000
--- a/test/AdaFrontend/switch.adb
+++ /dev/null
@@ -1,12 +0,0 @@
--- 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;
diff --git a/test/AdaFrontend/var_size.adb b/test/AdaFrontend/var_size.adb
deleted file mode 100644
index 2b4d4995e9..0000000000
--- a/test/AdaFrontend/var_size.adb
+++ /dev/null
@@ -1,7 +0,0 @@
--- 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;
diff --git a/test/AdaFrontend/var_size.ads b/test/AdaFrontend/var_size.ads
deleted file mode 100644
index 6a570cba8b..0000000000
--- a/test/AdaFrontend/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/AdaFrontend/vce.adb b/test/AdaFrontend/vce.adb
deleted file mode 100644
index 3d783d0457..0000000000
--- a/test/AdaFrontend/vce.adb
+++ /dev/null
@@ -1,7 +0,0 @@
--- RUN: %llvmgcc -c %s -o /dev/null
-procedure VCE is
- S : String (1 .. 2);
- B : Character := 'B';
-begin
- S := 'A' & B;
-end;
diff --git a/test/AdaFrontend/vce_lv.adb b/test/AdaFrontend/vce_lv.adb
deleted file mode 100644
index 5242b15758..0000000000
--- a/test/AdaFrontend/vce_lv.adb
+++ /dev/null
@@ -1,9 +0,0 @@
--- 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;
generated by cgit v1.2.3-18-g5258 (git 2.32.0) at 2025-04-28 02:03:35 +0000