RPCS3/llvm-mirror
1
0
Fork 0
mirror of https://github.com/RPCS3/llvm-mirror.git synced 2024-10-21 20:12:56 +02:00
Code Issues Projects Releases Wiki Activity

Remove these two directories. The tests can be ported to dragonegg if

Browse Source 
they're still wanted.

llvm-svn: 136193
This commit is contained in:
Eric Christopher 2011-07-27 00:07:56 +00:00
parent a9f6746f91
commit db2a1cde87
37 changed files with 0 additions and 328 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
test/FrontendAda/Support/element_copy.ads
View File

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

6
test/FrontendAda/Support/fat_fields.ads
View File

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

4
test/FrontendAda/Support/global_constant.ads
View File

@ -1,4 +0,0 @@
package Global_Constant is
pragma Elaborate_Body;
An_Error : exception;
end;

11
test/FrontendAda/Support/non_lvalue.ads
View File

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

4
test/FrontendAda/Support/real_cst.ads
View File

@ -1,4 +0,0 @@
with Ada.Streams;
package Real_Cst is
procedure Write (Stream : access Ada.Streams.Root_Stream_Type'Class);
end;

8
test/FrontendAda/Support/unc_constructor.ads
View File

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

9
test/FrontendAda/Support/var_offset.ads
View File

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

7
test/FrontendAda/Support/var_size.ads
View File

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

6
test/FrontendAda/array_constructor.adb
View File

@ -1,6 +0,0 @@
-- RUN: %llvmgcc -S %s
procedure Array_Constructor is
A : array (Integer range <>) of Boolean := (True, False);
begin
null;
end;

7
test/FrontendAda/array_range_ref.adb
View File

@ -1,7 +0,0 @@
-- RUN: %llvmgcc -S %s
procedure Array_Range_Ref is
A : String (1 .. 3);
B : String := A (A'RANGE)(1 .. 3);
begin
null;
end;

11
test/FrontendAda/array_ref.adb
View File

@ -1,11 +0,0 @@
-- RUN: %llvmgcc -S %s
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;

10
test/FrontendAda/array_size.adb
View File

@ -1,10 +0,0 @@
-- RUN: %llvmgcc -S %s
procedure Array_Size is
subtype S is String (1 .. 2);
type R is record
A : S;
end record;
X : R;
begin
null;
end;

6
test/FrontendAda/asm.adb
View File

@ -1,6 +0,0 @@
-- RUN: %llvmgcc -S %s
with System.Machine_Code;
procedure Asm is
begin
System.Machine_Code.Asm ("");
end;

4
test/FrontendAda/constant_fold.ads
View File

@ -1,4 +0,0 @@
-- RUN: %llvmgcc -S -emit-llvm %s -o - | not grep ptrtoint
package Constant_Fold is
Error : exception;
end;

8
test/FrontendAda/debug_var_size.ads
View File

@ -1,8 +0,0 @@
-- RUN: %llvmgcc -S -g %s
package Debug_Var_Size is
subtype Length_Type is Positive range 1 .. 64;
type T (Length : Length_Type := 1) is record
Varying_Length : String (1 .. Length);
Fixed_Length : Boolean;
end record;
end;

6
test/FrontendAda/dg.exp
View File

@ -1,6 +0,0 @@
load_lib llvm.exp
if [ llvm_gcc_supports ada ] then {
RunLLVMTests [lsort [glob -nocomplain $srcdir/$subdir/*.{adb,ads}]]
}

8
test/FrontendAda/element_copy.adb
View File

@ -1,8 +0,0 @@
-- RUN: %llvmgcc -S -O2 %s -I%p/Support -o - | grep 105 | count 2
package body Element_Copy is
function F return VariableSizedField is
X : VariableSizedField;
begin
return X;
end;
end;

5
test/FrontendAda/emit_var.ads
View File

@ -1,5 +0,0 @@
-- RUN: %llvmgcc -S %s
with Ada.Finalization;
package Emit_Var is
type Search_Type is new Ada.Finalization.Controlled with null record;
end;

10
test/FrontendAda/fat_fields.adb
View File

@ -1,10 +0,0 @@
-- RUN: %llvmgcc -S %s -I%p/Support
-- RUN: %llvmgcc -S %s -I%p/Support -O2
package body Fat_Fields is
procedure Proc is
begin
if P = null then
null;
end if;
end;
end;

7
test/FrontendAda/field_order.ads
View File

@ -1,7 +0,0 @@
-- RUN: %llvmgcc -S %s
package Field_Order is
type Tagged_Type is abstract tagged null record;
type With_Discriminant (L : Positive) is new Tagged_Type with record
S : String (1 .. L);
end record;
end;

5
test/FrontendAda/global_constant.adb
View File

@ -1,5 +0,0 @@
-- RUN: %llvmgcc -S %s -I%p/Support
package body Global_Constant is
begin
raise An_Error;
end;

12
test/FrontendAda/init_size.ads
View File

@ -1,12 +0,0 @@
-- RUN: %llvmgcc -S %s
package Init_Size is
type T (B : Boolean := False) is record
case B is
when False =>
I : Integer;
when True =>
J : Long_Long_Integer; -- Bigger than I
end case;
end record;
A_T : constant T := (False, 0);
end;

16
test/FrontendAda/negative_field_offset.adb
View File

@ -1,16 +0,0 @@
-- RUN: %llvmgcc -S %s
with System;
procedure Negative_Field_Offset (N : Integer) is
type String_Pointer is access String;
-- Force use of a thin pointer.
for String_Pointer'Size use System.Word_Size;
P : String_Pointer;
procedure Q (P : String_Pointer) is
begin
P (1) := 'Z';
end;
begin
P := new String (1 .. N);
Q (P);
end;

12
test/FrontendAda/non_bitfield.ads
View File

@ -1,12 +0,0 @@
-- RUN: %llvmgcc -S %s
package Non_Bitfield is
type SP is access String;
type E is (A, B, C);
type T (D : E) is record
case D is
when A => X : Boolean;
when B => Y : SP;
when C => Z : String (1 .. 2);
end case;
end record;
end;

7
test/FrontendAda/non_lvalue.adb
View File

@ -1,7 +0,0 @@
-- RUN: %llvmgcc -S %s -I%p/Support
package body Non_LValue is
function A (Y : U) return String is
begin
return Y.X.B;
end;
end;

12
test/FrontendAda/placeholder.adb
View File

@ -1,12 +0,0 @@
-- RUN: %llvmgcc -S %s
procedure Placeholder is
subtype Bounded is Integer range 1 .. 5;
type Vector is array (Bounded range <>) of Integer;
type Interval (Length : Bounded := 1) is record
Points : Vector (1 .. Length);
end record;
An_Interval : Interval := (Length => 1, Points => (1 => 1));
generic The_Interval : Interval; package R is end;
package body R is end;
package S is new R (An_Interval);
begin null; end;

8
test/FrontendAda/real_cst.adb
View File

@ -1,8 +0,0 @@
-- RUN: %llvmgcc -S -O2 -gnatn %s -I%p/Support
package body Real_Cst is
Cst : constant Float := 0.0;
procedure Write (Stream : access Ada.Streams.Root_Stream_Type'Class) is
begin
Float'Write (Stream, Cst);
end;
end;

12
test/FrontendAda/switch.adb
View File

@ -1,12 +0,0 @@
-- RUN: %llvmgcc -S %s
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;

9
test/FrontendAda/unc_constructor.adb
View File

@ -1,9 +0,0 @@
-- RUN: %llvmgcc -S %s -I%p/Support
package body Unc_Constructor is
procedure P (X : A) is
begin
if X = A0 then
null;
end if;
end;
end;

7
test/FrontendAda/var_offset.adb
View File

@ -1,7 +0,0 @@
-- RUN: %llvmgcc -S %s -I%p/Support
package body Var_Offset is
function F (X : T) return Character is
begin
return X.Bad_Field;
end;
end;

7
test/FrontendAda/var_size.adb
View File

@ -1,7 +0,0 @@
-- RUN: %llvmgcc -S %s -I%p/Support
package body Var_Size is
function A (X : T) return String is
begin
return X.A;
end;
end;

7
test/FrontendAda/vce.adb
View File

@ -1,7 +0,0 @@
-- RUN: %llvmgcc -S %s
procedure VCE is
S : String (1 .. 2);
B : Character := 'B';
begin
S := 'A' & B;
end;

9
test/FrontendAda/vce_lv.adb
View File

@ -1,9 +0,0 @@
-- RUN: %llvmgcc -S %s
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;

4
test/FrontendFortran/2008-11-03-OptionOverride.f90
View File

@ -1,4 +0,0 @@
! RUN: %llvmgcc -S %s -march=k8
! XTARGET: x86
! Note: this file intentionally left blank, the problem itself is in
! frontend initialization routines and march flag!

32
test/FrontendFortran/2009-02-09-FloorDivExpr.f90
View File

@ -1,32 +0,0 @@
! RUN: %llvmgcc -S %s
! PR2437
program main
implicit none
call build (77)
contains
subroutine build (order)
integer :: order, i, j
call test (1, order, 3, (/ (i, i = 1, order, 3) /))
call test (order, 1, -3, (/ (i, i = order, 1, -3) /))
do j = -10, 10
call test (order + j, order, 5, (/ (i, i = order + j, order, 5) /))
call test (order + j, order, -5, (/ (i, i = order + j, order, -5) /))
end do
end subroutine build
subroutine test (from, to, step, values)
integer, dimension (:) :: values
integer :: from, to, step, last, i
last = 0
do i = from, to, step
last = last + 1
if (values (last) .ne. i) call abort
end do
if (size (values, dim = 1) .ne. last) call abort
end subroutine test
end program main

18
test/FrontendFortran/cpow.f90
View File

@ -1,18 +0,0 @@
! RUN: %llvmgcc -S %s
! PR2443
! Program to test the power (**) operator
program testpow
implicit none
real(kind=4) r, s, two
real(kind=8) :: q
complex(kind=4) :: c, z
real, parameter :: del = 0.0001
integer i, j
two = 2.0
c = (2.0, 3.0)
c = c ** two
if (abs(c - (-5.0, 12.0)) .gt. del) call abort
end program

6
test/FrontendFortran/dg.exp
View File

@ -1,6 +0,0 @@
load_lib llvm.exp
if [ llvm_gcc_supports fortran ] then {
RunLLVMTests [lsort [glob -nocomplain $srcdir/$subdir/*.{f,f90}]]
}