diff options
Diffstat (limited to 'test/FrontendAda/Support')
| -rw-r--r-- | test/FrontendAda/Support/element_copy.ads | 8 | ||||
| -rw-r--r-- | test/FrontendAda/Support/fat_fields.ads | 6 | ||||
| -rw-r--r-- | test/FrontendAda/Support/global_constant.ads | 4 | ||||
| -rw-r--r-- | test/FrontendAda/Support/non_lvalue.ads | 11 | ||||
| -rw-r--r-- | test/FrontendAda/Support/real_cst.ads | 4 | ||||
| -rw-r--r-- | test/FrontendAda/Support/unc_constructor.ads | 8 | ||||
| -rw-r--r-- | test/FrontendAda/Support/var_offset.ads | 9 | ||||
| -rw-r--r-- | test/FrontendAda/Support/var_size.ads | 7 |
8 files changed, 0 insertions, 57 deletions
diff --git a/test/FrontendAda/Support/element_copy.ads b/test/FrontendAda/Support/element_copy.ads deleted file mode 100644 index 52c6e49275..0000000000 --- a/test/FrontendAda/Support/element_copy.ads +++ /dev/null @@ -1,8 +0,0 @@ -package Element_Copy is - type SmallInt is range 1 .. 4; - type SmallStr is array (SmallInt range <>) of Character; - type VariableSizedField (D : SmallInt := 2) is record - S : SmallStr (1 .. D) := "Hi"; - end record; - function F return VariableSizedField; -end; diff --git a/test/FrontendAda/Support/fat_fields.ads b/test/FrontendAda/Support/fat_fields.ads deleted file mode 100644 index d3eab3e286..0000000000 --- a/test/FrontendAda/Support/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/FrontendAda/Support/global_constant.ads b/test/FrontendAda/Support/global_constant.ads deleted file mode 100644 index cef4b11f68..0000000000 --- a/test/FrontendAda/Support/global_constant.ads +++ /dev/null @@ -1,4 +0,0 @@ -package Global_Constant is - pragma Elaborate_Body; - An_Error : exception; -end; diff --git a/test/FrontendAda/Support/non_lvalue.ads b/test/FrontendAda/Support/non_lvalue.ads deleted file mode 100644 index 7d4eeed8b8..0000000000 --- a/test/FrontendAda/Support/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/FrontendAda/Support/real_cst.ads b/test/FrontendAda/Support/real_cst.ads deleted file mode 100644 index 54a34bc405..0000000000 --- a/test/FrontendAda/Support/real_cst.ads +++ /dev/null @@ -1,4 +0,0 @@ -with Ada.Streams; -package Real_Cst is - procedure Write (Stream : access Ada.Streams.Root_Stream_Type'Class); -end; diff --git a/test/FrontendAda/Support/unc_constructor.ads b/test/FrontendAda/Support/unc_constructor.ads deleted file mode 100644 index d6f8db50d8..0000000000 --- a/test/FrontendAda/Support/unc_constructor.ads +++ /dev/null @@ -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; diff --git a/test/FrontendAda/Support/var_offset.ads b/test/FrontendAda/Support/var_offset.ads deleted file mode 100644 index 55d0eb21f7..0000000000 --- a/test/FrontendAda/Support/var_offset.ads +++ /dev/null @@ -1,9 +0,0 @@ -package Var_Offset is - pragma Elaborate_Body; - type T (L : Natural) is record - Var_Len : String (1 .. L); - Space : Integer; - Small : Character; - Bad_Field : Character; - end record; -end; diff --git a/test/FrontendAda/Support/var_size.ads b/test/FrontendAda/Support/var_size.ads deleted file mode 100644 index 6a570cba8b..0000000000 --- a/test/FrontendAda/Support/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; |