[llvm-commits] [dragonegg] r153015 - in /dragonegg/trunk/test: compilator/local/ada/ correctness/ correctness/ada/
Duncan Sands
baldrick at free.fr
Sun Mar 18 10:38:52 PDT 2012
Author: baldrick
Date: Sun Mar 18 12:38:48 2012
New Revision: 153015
URL: http://llvm.org/viewvc/llvm-project?rev=153015&view=rev
Log:
Ensure that the 'correctness' suite only runs tests for languages
supported by gcc. Add tests from the old FrontendAda testsuite.
Most were checking that the compiler didn't crash, so these can go
in compilator.
Added:
dragonegg/trunk/test/compilator/local/ada/
dragonegg/trunk/test/compilator/local/ada/array_constructor.adb
dragonegg/trunk/test/compilator/local/ada/array_range_ref.adb
dragonegg/trunk/test/compilator/local/ada/array_ref.adb
dragonegg/trunk/test/compilator/local/ada/array_size.adb
dragonegg/trunk/test/compilator/local/ada/asm.adb
dragonegg/trunk/test/compilator/local/ada/debug_var_size.ads
dragonegg/trunk/test/compilator/local/ada/emit_var.ads
dragonegg/trunk/test/compilator/local/ada/fat_fields.adb
dragonegg/trunk/test/compilator/local/ada/fat_fields.ads
dragonegg/trunk/test/compilator/local/ada/field_order.ads
dragonegg/trunk/test/compilator/local/ada/global_constant.adb
dragonegg/trunk/test/compilator/local/ada/global_constant.ads
dragonegg/trunk/test/compilator/local/ada/init_size.ads
dragonegg/trunk/test/compilator/local/ada/negative_field_offset.adb
dragonegg/trunk/test/compilator/local/ada/non_bitfield.ads
dragonegg/trunk/test/compilator/local/ada/non_lvalue.adb
dragonegg/trunk/test/compilator/local/ada/non_lvalue.ads
dragonegg/trunk/test/compilator/local/ada/placeholder.adb
dragonegg/trunk/test/compilator/local/ada/switch.adb
dragonegg/trunk/test/compilator/local/ada/unc_constructor.adb
dragonegg/trunk/test/compilator/local/ada/unc_constructor.ads
dragonegg/trunk/test/compilator/local/ada/var_offset.adb
dragonegg/trunk/test/compilator/local/ada/var_offset.ads
dragonegg/trunk/test/compilator/local/ada/var_size.adb
dragonegg/trunk/test/compilator/local/ada/var_size.ads
dragonegg/trunk/test/compilator/local/ada/vce.adb
dragonegg/trunk/test/compilator/local/ada/vce_lv.adb
dragonegg/trunk/test/correctness/ada/
dragonegg/trunk/test/correctness/ada/constant_fold.ads
dragonegg/trunk/test/correctness/ada/element_copy.adb
dragonegg/trunk/test/correctness/ada/element_copy.ads
dragonegg/trunk/test/correctness/ada/real_cst.adb
dragonegg/trunk/test/correctness/ada/real_cst.ads
Modified:
dragonegg/trunk/test/correctness/dragonegg-lit.cfg
Added: dragonegg/trunk/test/compilator/local/ada/array_constructor.adb
URL: http://llvm.org/viewvc/llvm-project/dragonegg/trunk/test/compilator/local/ada/array_constructor.adb?rev=153015&view=auto
==============================================================================
--- dragonegg/trunk/test/compilator/local/ada/array_constructor.adb (added)
+++ dragonegg/trunk/test/compilator/local/ada/array_constructor.adb Sun Mar 18 12:38:48 2012
@@ -0,0 +1,5 @@
+procedure Array_Constructor is
+ A : array (Integer range <>) of Boolean := (True, False);
+begin
+ null;
+end;
Added: dragonegg/trunk/test/compilator/local/ada/array_range_ref.adb
URL: http://llvm.org/viewvc/llvm-project/dragonegg/trunk/test/compilator/local/ada/array_range_ref.adb?rev=153015&view=auto
==============================================================================
--- dragonegg/trunk/test/compilator/local/ada/array_range_ref.adb (added)
+++ dragonegg/trunk/test/compilator/local/ada/array_range_ref.adb Sun Mar 18 12:38:48 2012
@@ -0,0 +1,6 @@
+procedure Array_Range_Ref is
+ A : String (1 .. 3);
+ B : String := A (A'RANGE)(1 .. 3);
+begin
+ null;
+end;
Added: dragonegg/trunk/test/compilator/local/ada/array_ref.adb
URL: http://llvm.org/viewvc/llvm-project/dragonegg/trunk/test/compilator/local/ada/array_ref.adb?rev=153015&view=auto
==============================================================================
--- dragonegg/trunk/test/compilator/local/ada/array_ref.adb (added)
+++ dragonegg/trunk/test/compilator/local/ada/array_ref.adb Sun Mar 18 12:38:48 2012
@@ -0,0 +1,10 @@
+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;
Added: dragonegg/trunk/test/compilator/local/ada/array_size.adb
URL: http://llvm.org/viewvc/llvm-project/dragonegg/trunk/test/compilator/local/ada/array_size.adb?rev=153015&view=auto
==============================================================================
--- dragonegg/trunk/test/compilator/local/ada/array_size.adb (added)
+++ dragonegg/trunk/test/compilator/local/ada/array_size.adb Sun Mar 18 12:38:48 2012
@@ -0,0 +1,9 @@
+procedure Array_Size is
+ subtype S is String (1 .. 2);
+ type R is record
+ A : S;
+ end record;
+ X : R;
+begin
+ null;
+end;
Added: dragonegg/trunk/test/compilator/local/ada/asm.adb
URL: http://llvm.org/viewvc/llvm-project/dragonegg/trunk/test/compilator/local/ada/asm.adb?rev=153015&view=auto
==============================================================================
--- dragonegg/trunk/test/compilator/local/ada/asm.adb (added)
+++ dragonegg/trunk/test/compilator/local/ada/asm.adb Sun Mar 18 12:38:48 2012
@@ -0,0 +1,5 @@
+with System.Machine_Code;
+procedure Asm is
+begin
+ System.Machine_Code.Asm ("");
+end;
Added: dragonegg/trunk/test/compilator/local/ada/debug_var_size.ads
URL: http://llvm.org/viewvc/llvm-project/dragonegg/trunk/test/compilator/local/ada/debug_var_size.ads?rev=153015&view=auto
==============================================================================
--- dragonegg/trunk/test/compilator/local/ada/debug_var_size.ads (added)
+++ dragonegg/trunk/test/compilator/local/ada/debug_var_size.ads Sun Mar 18 12:38:48 2012
@@ -0,0 +1,7 @@
+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;
Added: dragonegg/trunk/test/compilator/local/ada/emit_var.ads
URL: http://llvm.org/viewvc/llvm-project/dragonegg/trunk/test/compilator/local/ada/emit_var.ads?rev=153015&view=auto
==============================================================================
--- dragonegg/trunk/test/compilator/local/ada/emit_var.ads (added)
+++ dragonegg/trunk/test/compilator/local/ada/emit_var.ads Sun Mar 18 12:38:48 2012
@@ -0,0 +1,4 @@
+with Ada.Finalization;
+package Emit_Var is
+ type Search_Type is new Ada.Finalization.Controlled with null record;
+end;
Added: dragonegg/trunk/test/compilator/local/ada/fat_fields.adb
URL: http://llvm.org/viewvc/llvm-project/dragonegg/trunk/test/compilator/local/ada/fat_fields.adb?rev=153015&view=auto
==============================================================================
--- dragonegg/trunk/test/compilator/local/ada/fat_fields.adb (added)
+++ dragonegg/trunk/test/compilator/local/ada/fat_fields.adb Sun Mar 18 12:38:48 2012
@@ -0,0 +1,8 @@
+package body Fat_Fields is
+ procedure Proc is
+ begin
+ if P = null then
+ null;
+ end if;
+ end;
+end;
Added: dragonegg/trunk/test/compilator/local/ada/fat_fields.ads
URL: http://llvm.org/viewvc/llvm-project/dragonegg/trunk/test/compilator/local/ada/fat_fields.ads?rev=153015&view=auto
==============================================================================
--- dragonegg/trunk/test/compilator/local/ada/fat_fields.ads (added)
+++ dragonegg/trunk/test/compilator/local/ada/fat_fields.ads Sun Mar 18 12:38:48 2012
@@ -0,0 +1,7 @@
+-- RUN: true
+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;
Added: dragonegg/trunk/test/compilator/local/ada/field_order.ads
URL: http://llvm.org/viewvc/llvm-project/dragonegg/trunk/test/compilator/local/ada/field_order.ads?rev=153015&view=auto
==============================================================================
--- dragonegg/trunk/test/compilator/local/ada/field_order.ads (added)
+++ dragonegg/trunk/test/compilator/local/ada/field_order.ads Sun Mar 18 12:38:48 2012
@@ -0,0 +1,6 @@
+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;
Added: dragonegg/trunk/test/compilator/local/ada/global_constant.adb
URL: http://llvm.org/viewvc/llvm-project/dragonegg/trunk/test/compilator/local/ada/global_constant.adb?rev=153015&view=auto
==============================================================================
--- dragonegg/trunk/test/compilator/local/ada/global_constant.adb (added)
+++ dragonegg/trunk/test/compilator/local/ada/global_constant.adb Sun Mar 18 12:38:48 2012
@@ -0,0 +1,4 @@
+package body Global_Constant is
+begin
+ raise An_Error;
+end;
Added: dragonegg/trunk/test/compilator/local/ada/global_constant.ads
URL: http://llvm.org/viewvc/llvm-project/dragonegg/trunk/test/compilator/local/ada/global_constant.ads?rev=153015&view=auto
==============================================================================
--- dragonegg/trunk/test/compilator/local/ada/global_constant.ads (added)
+++ dragonegg/trunk/test/compilator/local/ada/global_constant.ads Sun Mar 18 12:38:48 2012
@@ -0,0 +1,4 @@
+package Global_Constant is
+ pragma Elaborate_Body;
+ An_Error : exception;
+end;
Added: dragonegg/trunk/test/compilator/local/ada/init_size.ads
URL: http://llvm.org/viewvc/llvm-project/dragonegg/trunk/test/compilator/local/ada/init_size.ads?rev=153015&view=auto
==============================================================================
--- dragonegg/trunk/test/compilator/local/ada/init_size.ads (added)
+++ dragonegg/trunk/test/compilator/local/ada/init_size.ads Sun Mar 18 12:38:48 2012
@@ -0,0 +1,11 @@
+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;
Added: dragonegg/trunk/test/compilator/local/ada/negative_field_offset.adb
URL: http://llvm.org/viewvc/llvm-project/dragonegg/trunk/test/compilator/local/ada/negative_field_offset.adb?rev=153015&view=auto
==============================================================================
--- dragonegg/trunk/test/compilator/local/ada/negative_field_offset.adb (added)
+++ dragonegg/trunk/test/compilator/local/ada/negative_field_offset.adb Sun Mar 18 12:38:48 2012
@@ -0,0 +1,15 @@
+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;
Added: dragonegg/trunk/test/compilator/local/ada/non_bitfield.ads
URL: http://llvm.org/viewvc/llvm-project/dragonegg/trunk/test/compilator/local/ada/non_bitfield.ads?rev=153015&view=auto
==============================================================================
--- dragonegg/trunk/test/compilator/local/ada/non_bitfield.ads (added)
+++ dragonegg/trunk/test/compilator/local/ada/non_bitfield.ads Sun Mar 18 12:38:48 2012
@@ -0,0 +1,11 @@
+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;
Added: dragonegg/trunk/test/compilator/local/ada/non_lvalue.adb
URL: http://llvm.org/viewvc/llvm-project/dragonegg/trunk/test/compilator/local/ada/non_lvalue.adb?rev=153015&view=auto
==============================================================================
--- dragonegg/trunk/test/compilator/local/ada/non_lvalue.adb (added)
+++ dragonegg/trunk/test/compilator/local/ada/non_lvalue.adb Sun Mar 18 12:38:48 2012
@@ -0,0 +1,6 @@
+package body Non_LValue is
+ function A (Y : U) return String is
+ begin
+ return Y.X.B;
+ end;
+end;
Added: dragonegg/trunk/test/compilator/local/ada/non_lvalue.ads
URL: http://llvm.org/viewvc/llvm-project/dragonegg/trunk/test/compilator/local/ada/non_lvalue.ads?rev=153015&view=auto
==============================================================================
--- dragonegg/trunk/test/compilator/local/ada/non_lvalue.ads (added)
+++ dragonegg/trunk/test/compilator/local/ada/non_lvalue.ads Sun Mar 18 12:38:48 2012
@@ -0,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;
Added: dragonegg/trunk/test/compilator/local/ada/placeholder.adb
URL: http://llvm.org/viewvc/llvm-project/dragonegg/trunk/test/compilator/local/ada/placeholder.adb?rev=153015&view=auto
==============================================================================
--- dragonegg/trunk/test/compilator/local/ada/placeholder.adb (added)
+++ dragonegg/trunk/test/compilator/local/ada/placeholder.adb Sun Mar 18 12:38:48 2012
@@ -0,0 +1,11 @@
+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;
Added: dragonegg/trunk/test/compilator/local/ada/switch.adb
URL: http://llvm.org/viewvc/llvm-project/dragonegg/trunk/test/compilator/local/ada/switch.adb?rev=153015&view=auto
==============================================================================
--- dragonegg/trunk/test/compilator/local/ada/switch.adb (added)
+++ dragonegg/trunk/test/compilator/local/ada/switch.adb Sun Mar 18 12:38:48 2012
@@ -0,0 +1,11 @@
+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;
Added: dragonegg/trunk/test/compilator/local/ada/unc_constructor.adb
URL: http://llvm.org/viewvc/llvm-project/dragonegg/trunk/test/compilator/local/ada/unc_constructor.adb?rev=153015&view=auto
==============================================================================
--- dragonegg/trunk/test/compilator/local/ada/unc_constructor.adb (added)
+++ dragonegg/trunk/test/compilator/local/ada/unc_constructor.adb Sun Mar 18 12:38:48 2012
@@ -0,0 +1,8 @@
+package body Unc_Constructor is
+ procedure P (X : A) is
+ begin
+ if X = A0 then
+ null;
+ end if;
+ end;
+end;
Added: dragonegg/trunk/test/compilator/local/ada/unc_constructor.ads
URL: http://llvm.org/viewvc/llvm-project/dragonegg/trunk/test/compilator/local/ada/unc_constructor.ads?rev=153015&view=auto
==============================================================================
--- dragonegg/trunk/test/compilator/local/ada/unc_constructor.ads (added)
+++ dragonegg/trunk/test/compilator/local/ada/unc_constructor.ads Sun Mar 18 12:38:48 2012
@@ -0,0 +1,8 @@
+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;
Added: dragonegg/trunk/test/compilator/local/ada/var_offset.adb
URL: http://llvm.org/viewvc/llvm-project/dragonegg/trunk/test/compilator/local/ada/var_offset.adb?rev=153015&view=auto
==============================================================================
--- dragonegg/trunk/test/compilator/local/ada/var_offset.adb (added)
+++ dragonegg/trunk/test/compilator/local/ada/var_offset.adb Sun Mar 18 12:38:48 2012
@@ -0,0 +1,6 @@
+package body Var_Offset is
+ function F (X : T) return Character is
+ begin
+ return X.Bad_Field;
+ end;
+end;
Added: dragonegg/trunk/test/compilator/local/ada/var_offset.ads
URL: http://llvm.org/viewvc/llvm-project/dragonegg/trunk/test/compilator/local/ada/var_offset.ads?rev=153015&view=auto
==============================================================================
--- dragonegg/trunk/test/compilator/local/ada/var_offset.ads (added)
+++ dragonegg/trunk/test/compilator/local/ada/var_offset.ads Sun Mar 18 12:38:48 2012
@@ -0,0 +1,9 @@
+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;
Added: dragonegg/trunk/test/compilator/local/ada/var_size.adb
URL: http://llvm.org/viewvc/llvm-project/dragonegg/trunk/test/compilator/local/ada/var_size.adb?rev=153015&view=auto
==============================================================================
--- dragonegg/trunk/test/compilator/local/ada/var_size.adb (added)
+++ dragonegg/trunk/test/compilator/local/ada/var_size.adb Sun Mar 18 12:38:48 2012
@@ -0,0 +1,6 @@
+package body Var_Size is
+ function A (X : T) return String is
+ begin
+ return X.A;
+ end;
+end;
Added: dragonegg/trunk/test/compilator/local/ada/var_size.ads
URL: http://llvm.org/viewvc/llvm-project/dragonegg/trunk/test/compilator/local/ada/var_size.ads?rev=153015&view=auto
==============================================================================
--- dragonegg/trunk/test/compilator/local/ada/var_size.ads (added)
+++ dragonegg/trunk/test/compilator/local/ada/var_size.ads Sun Mar 18 12:38:48 2012
@@ -0,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;
Added: dragonegg/trunk/test/compilator/local/ada/vce.adb
URL: http://llvm.org/viewvc/llvm-project/dragonegg/trunk/test/compilator/local/ada/vce.adb?rev=153015&view=auto
==============================================================================
--- dragonegg/trunk/test/compilator/local/ada/vce.adb (added)
+++ dragonegg/trunk/test/compilator/local/ada/vce.adb Sun Mar 18 12:38:48 2012
@@ -0,0 +1,6 @@
+procedure VCE is
+ S : String (1 .. 2);
+ B : Character := 'B';
+begin
+ S := 'A' & B;
+end;
Added: dragonegg/trunk/test/compilator/local/ada/vce_lv.adb
URL: http://llvm.org/viewvc/llvm-project/dragonegg/trunk/test/compilator/local/ada/vce_lv.adb?rev=153015&view=auto
==============================================================================
--- dragonegg/trunk/test/compilator/local/ada/vce_lv.adb (added)
+++ dragonegg/trunk/test/compilator/local/ada/vce_lv.adb Sun Mar 18 12:38:48 2012
@@ -0,0 +1,8 @@
+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;
Added: dragonegg/trunk/test/correctness/ada/constant_fold.ads
URL: http://llvm.org/viewvc/llvm-project/dragonegg/trunk/test/correctness/ada/constant_fold.ads?rev=153015&view=auto
==============================================================================
--- dragonegg/trunk/test/correctness/ada/constant_fold.ads (added)
+++ dragonegg/trunk/test/correctness/ada/constant_fold.ads Sun Mar 18 12:38:48 2012
@@ -0,0 +1,5 @@
+-- RUN: %dragonegg -S %s -o - | FileCheck %s
+package Constant_Fold is
+-- CHECK-NOT: ptrtoint
+ Error : exception;
+end;
Added: dragonegg/trunk/test/correctness/ada/element_copy.adb
URL: http://llvm.org/viewvc/llvm-project/dragonegg/trunk/test/correctness/ada/element_copy.adb?rev=153015&view=auto
==============================================================================
--- dragonegg/trunk/test/correctness/ada/element_copy.adb (added)
+++ dragonegg/trunk/test/correctness/ada/element_copy.adb Sun Mar 18 12:38:48 2012
@@ -0,0 +1,13 @@
+-- RUN: %dragonegg -S -O2 %s -I%p/Support -o - | FileCheck %s
+package body Element_Copy is
+-- CHECK: @element_copy__variablesizedfieldIP
+-- CHECK: store i8 105,
+
+ function F return VariableSizedField is
+-- CHECK: @element_copy__f
+ X : VariableSizedField;
+-- CHECK: store i8 105,
+ begin
+ return X;
+ end;
+end;
Added: dragonegg/trunk/test/correctness/ada/element_copy.ads
URL: http://llvm.org/viewvc/llvm-project/dragonegg/trunk/test/correctness/ada/element_copy.ads?rev=153015&view=auto
==============================================================================
--- dragonegg/trunk/test/correctness/ada/element_copy.ads (added)
+++ dragonegg/trunk/test/correctness/ada/element_copy.ads Sun Mar 18 12:38:48 2012
@@ -0,0 +1,9 @@
+-- RUN: true
+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;
Added: dragonegg/trunk/test/correctness/ada/real_cst.adb
URL: http://llvm.org/viewvc/llvm-project/dragonegg/trunk/test/correctness/ada/real_cst.adb?rev=153015&view=auto
==============================================================================
--- dragonegg/trunk/test/correctness/ada/real_cst.adb (added)
+++ dragonegg/trunk/test/correctness/ada/real_cst.adb Sun Mar 18 12:38:48 2012
@@ -0,0 +1,8 @@
+-- RUN: %dragonegg -S -O2 -gnatn %s
+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;
Added: dragonegg/trunk/test/correctness/ada/real_cst.ads
URL: http://llvm.org/viewvc/llvm-project/dragonegg/trunk/test/correctness/ada/real_cst.ads?rev=153015&view=auto
==============================================================================
--- dragonegg/trunk/test/correctness/ada/real_cst.ads (added)
+++ dragonegg/trunk/test/correctness/ada/real_cst.ads Sun Mar 18 12:38:48 2012
@@ -0,0 +1,5 @@
+-- RUN: true
+with Ada.Streams;
+package Real_Cst is
+ procedure Write (Stream : access Ada.Streams.Root_Stream_Type'Class);
+end;
Modified: dragonegg/trunk/test/correctness/dragonegg-lit.cfg
URL: http://llvm.org/viewvc/llvm-project/dragonegg/trunk/test/correctness/dragonegg-lit.cfg?rev=153015&r1=153014&r2=153015&view=diff
==============================================================================
--- dragonegg/trunk/test/correctness/dragonegg-lit.cfg (original)
+++ dragonegg/trunk/test/correctness/dragonegg-lit.cfg Sun Mar 18 12:38:48 2012
@@ -3,6 +3,7 @@
import platform
import re
import subprocess
+import DEUtils
# name: The name of this test suite.
config.name = 'Correctness'
@@ -35,7 +36,9 @@
config.test_format = lit.formats.ShTest(execute_external)
# suffixes: A list of file extensions to treat as test files.
-config.suffixes = ['.ads', '.adb', '.c']
+config.suffixes = []
+for language in config.gcc_languages.split(','):
+ config.suffixes = config.suffixes + DEUtils.getSuffixesForLanguage(language)
# test_source_root: The root path where tests are located.
config.test_source_root = os.path.dirname(__file__)
More information about the llvm-commits
mailing list