move these to FrontendAda

git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@35631 91177308-0d34-0410-b5e6-96231b3b80d8

test/AdaFrontend/array_constructor.adb

@@ -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;

test/AdaFrontend/array_range_ref.adb

@@ -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;

test/AdaFrontend/array_ref.adb

@@ -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;

test/AdaFrontend/array_size.adb

@@ -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;

test/AdaFrontend/emit_var.ads

@@ -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;

test/AdaFrontend/fat_fields.adb

@@ -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;

test/AdaFrontend/fat_fields.ads

@@ -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;

test/AdaFrontend/non_lvalue.adb

@@ -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;

test/AdaFrontend/non_lvalue.ads

@@ -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;

test/AdaFrontend/switch.adb

@@ -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;

test/AdaFrontend/var_size.adb

@@ -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;

test/AdaFrontend/var_size.ads

@@ -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;

test/AdaFrontend/vce.adb

@@ -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;

test/AdaFrontend/vce_lv.adb

@@ -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;