From d23b96f92376c4b5b4717cfc032ce04db44fca75 Mon Sep 17 00:00:00 2001 From: Eric Christopher Date: Wed, 27 Jul 2011 00:07:56 +0000 Subject: [PATCH] Remove these two directories. The tests can be ported to dragonegg if they're still wanted. llvm-svn: 136193 --- .../test/FrontendAda/Support/element_copy.ads | 8 ----- llvm/test/FrontendAda/Support/fat_fields.ads | 6 ---- .../FrontendAda/Support/global_constant.ads | 4 --- llvm/test/FrontendAda/Support/non_lvalue.ads | 11 ------- llvm/test/FrontendAda/Support/real_cst.ads | 4 --- .../FrontendAda/Support/unc_constructor.ads | 8 ----- llvm/test/FrontendAda/Support/var_offset.ads | 9 ------ llvm/test/FrontendAda/Support/var_size.ads | 7 ---- llvm/test/FrontendAda/array_constructor.adb | 6 ---- llvm/test/FrontendAda/array_range_ref.adb | 7 ---- llvm/test/FrontendAda/array_ref.adb | 11 ------- llvm/test/FrontendAda/array_size.adb | 10 ------ llvm/test/FrontendAda/asm.adb | 6 ---- llvm/test/FrontendAda/constant_fold.ads | 4 --- llvm/test/FrontendAda/debug_var_size.ads | 8 ----- llvm/test/FrontendAda/dg.exp | 6 ---- llvm/test/FrontendAda/element_copy.adb | 8 ----- llvm/test/FrontendAda/emit_var.ads | 5 --- llvm/test/FrontendAda/fat_fields.adb | 10 ------ llvm/test/FrontendAda/field_order.ads | 7 ---- llvm/test/FrontendAda/global_constant.adb | 5 --- llvm/test/FrontendAda/init_size.ads | 12 ------- .../FrontendAda/negative_field_offset.adb | 16 ---------- llvm/test/FrontendAda/non_bitfield.ads | 12 ------- llvm/test/FrontendAda/non_lvalue.adb | 7 ---- llvm/test/FrontendAda/placeholder.adb | 12 ------- llvm/test/FrontendAda/real_cst.adb | 8 ----- llvm/test/FrontendAda/switch.adb | 12 ------- llvm/test/FrontendAda/unc_constructor.adb | 9 ------ llvm/test/FrontendAda/var_offset.adb | 7 ---- llvm/test/FrontendAda/var_size.adb | 7 ---- llvm/test/FrontendAda/vce.adb | 7 ---- llvm/test/FrontendAda/vce_lv.adb | 9 ------ .../2008-11-03-OptionOverride.f90 | 4 --- .../2009-02-09-FloorDivExpr.f90 | 32 ------------------- llvm/test/FrontendFortran/cpow.f90 | 18 ----------- llvm/test/FrontendFortran/dg.exp | 6 ---- 37 files changed, 328 deletions(-) delete mode 100644 llvm/test/FrontendAda/Support/element_copy.ads delete mode 100644 llvm/test/FrontendAda/Support/fat_fields.ads delete mode 100644 llvm/test/FrontendAda/Support/global_constant.ads delete mode 100644 llvm/test/FrontendAda/Support/non_lvalue.ads delete mode 100644 llvm/test/FrontendAda/Support/real_cst.ads delete mode 100644 llvm/test/FrontendAda/Support/unc_constructor.ads delete mode 100644 llvm/test/FrontendAda/Support/var_offset.ads delete mode 100644 llvm/test/FrontendAda/Support/var_size.ads delete mode 100644 llvm/test/FrontendAda/array_constructor.adb delete mode 100644 llvm/test/FrontendAda/array_range_ref.adb delete mode 100644 llvm/test/FrontendAda/array_ref.adb delete mode 100644 llvm/test/FrontendAda/array_size.adb delete mode 100644 llvm/test/FrontendAda/asm.adb delete mode 100644 llvm/test/FrontendAda/constant_fold.ads delete mode 100644 llvm/test/FrontendAda/debug_var_size.ads delete mode 100644 llvm/test/FrontendAda/dg.exp delete mode 100644 llvm/test/FrontendAda/element_copy.adb delete mode 100644 llvm/test/FrontendAda/emit_var.ads delete mode 100644 llvm/test/FrontendAda/fat_fields.adb delete mode 100644 llvm/test/FrontendAda/field_order.ads delete mode 100644 llvm/test/FrontendAda/global_constant.adb delete mode 100644 llvm/test/FrontendAda/init_size.ads delete mode 100644 llvm/test/FrontendAda/negative_field_offset.adb delete mode 100644 llvm/test/FrontendAda/non_bitfield.ads delete mode 100644 llvm/test/FrontendAda/non_lvalue.adb delete mode 100644 llvm/test/FrontendAda/placeholder.adb delete mode 100644 llvm/test/FrontendAda/real_cst.adb delete mode 100644 llvm/test/FrontendAda/switch.adb delete mode 100644 llvm/test/FrontendAda/unc_constructor.adb delete mode 100644 llvm/test/FrontendAda/var_offset.adb delete mode 100644 llvm/test/FrontendAda/var_size.adb delete mode 100644 llvm/test/FrontendAda/vce.adb delete mode 100644 llvm/test/FrontendAda/vce_lv.adb delete mode 100644 llvm/test/FrontendFortran/2008-11-03-OptionOverride.f90 delete mode 100644 llvm/test/FrontendFortran/2009-02-09-FloorDivExpr.f90 delete mode 100644 llvm/test/FrontendFortran/cpow.f90 delete mode 100644 llvm/test/FrontendFortran/dg.exp diff --git a/llvm/test/FrontendAda/Support/element_copy.ads b/llvm/test/FrontendAda/Support/element_copy.ads deleted file mode 100644 index 52c6e49275ef..000000000000 --- a/llvm/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/llvm/test/FrontendAda/Support/fat_fields.ads b/llvm/test/FrontendAda/Support/fat_fields.ads deleted file mode 100644 index d3eab3e28668..000000000000 --- a/llvm/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/llvm/test/FrontendAda/Support/global_constant.ads b/llvm/test/FrontendAda/Support/global_constant.ads deleted file mode 100644 index cef4b11f684a..000000000000 --- a/llvm/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/llvm/test/FrontendAda/Support/non_lvalue.ads b/llvm/test/FrontendAda/Support/non_lvalue.ads deleted file mode 100644 index 7d4eeed8b8ec..000000000000 --- a/llvm/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/llvm/test/FrontendAda/Support/real_cst.ads b/llvm/test/FrontendAda/Support/real_cst.ads deleted file mode 100644 index 54a34bc4056f..000000000000 --- a/llvm/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/llvm/test/FrontendAda/Support/unc_constructor.ads b/llvm/test/FrontendAda/Support/unc_constructor.ads deleted file mode 100644 index d6f8db50d897..000000000000 --- a/llvm/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/llvm/test/FrontendAda/Support/var_offset.ads b/llvm/test/FrontendAda/Support/var_offset.ads deleted file mode 100644 index 55d0eb21f7c4..000000000000 --- a/llvm/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/llvm/test/FrontendAda/Support/var_size.ads b/llvm/test/FrontendAda/Support/var_size.ads deleted file mode 100644 index 6a570cba8bd1..000000000000 --- a/llvm/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; diff --git a/llvm/test/FrontendAda/array_constructor.adb b/llvm/test/FrontendAda/array_constructor.adb deleted file mode 100644 index 13517c7565a5..000000000000 --- a/llvm/test/FrontendAda/array_constructor.adb +++ /dev/null @@ -1,6 +0,0 @@ --- RUN: %llvmgcc -S %s -procedure Array_Constructor is - A : array (Integer range <>) of Boolean := (True, False); -begin - null; -end; diff --git a/llvm/test/FrontendAda/array_range_ref.adb b/llvm/test/FrontendAda/array_range_ref.adb deleted file mode 100644 index 037c5aa8b6f0..000000000000 --- a/llvm/test/FrontendAda/array_range_ref.adb +++ /dev/null @@ -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; diff --git a/llvm/test/FrontendAda/array_ref.adb b/llvm/test/FrontendAda/array_ref.adb deleted file mode 100644 index 2bf4b7988d6d..000000000000 --- a/llvm/test/FrontendAda/array_ref.adb +++ /dev/null @@ -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; diff --git a/llvm/test/FrontendAda/array_size.adb b/llvm/test/FrontendAda/array_size.adb deleted file mode 100644 index c73616c98079..000000000000 --- a/llvm/test/FrontendAda/array_size.adb +++ /dev/null @@ -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; diff --git a/llvm/test/FrontendAda/asm.adb b/llvm/test/FrontendAda/asm.adb deleted file mode 100644 index 844885e67152..000000000000 --- a/llvm/test/FrontendAda/asm.adb +++ /dev/null @@ -1,6 +0,0 @@ --- RUN: %llvmgcc -S %s -with System.Machine_Code; -procedure Asm is -begin - System.Machine_Code.Asm (""); -end; diff --git a/llvm/test/FrontendAda/constant_fold.ads b/llvm/test/FrontendAda/constant_fold.ads deleted file mode 100644 index 6223e7cb64dd..000000000000 --- a/llvm/test/FrontendAda/constant_fold.ads +++ /dev/null @@ -1,4 +0,0 @@ --- RUN: %llvmgcc -S -emit-llvm %s -o - | not grep ptrtoint -package Constant_Fold is - Error : exception; -end; diff --git a/llvm/test/FrontendAda/debug_var_size.ads b/llvm/test/FrontendAda/debug_var_size.ads deleted file mode 100644 index e8863cbddf94..000000000000 --- a/llvm/test/FrontendAda/debug_var_size.ads +++ /dev/null @@ -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; diff --git a/llvm/test/FrontendAda/dg.exp b/llvm/test/FrontendAda/dg.exp deleted file mode 100644 index 2307c3fdbe06..000000000000 --- a/llvm/test/FrontendAda/dg.exp +++ /dev/null @@ -1,6 +0,0 @@ -load_lib llvm.exp - -if [ llvm_gcc_supports ada ] then { - RunLLVMTests [lsort [glob -nocomplain $srcdir/$subdir/*.{adb,ads}]] -} - diff --git a/llvm/test/FrontendAda/element_copy.adb b/llvm/test/FrontendAda/element_copy.adb deleted file mode 100644 index 29274fa744ae..000000000000 --- a/llvm/test/FrontendAda/element_copy.adb +++ /dev/null @@ -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; diff --git a/llvm/test/FrontendAda/emit_var.ads b/llvm/test/FrontendAda/emit_var.ads deleted file mode 100644 index 47e2538691ac..000000000000 --- a/llvm/test/FrontendAda/emit_var.ads +++ /dev/null @@ -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; diff --git a/llvm/test/FrontendAda/fat_fields.adb b/llvm/test/FrontendAda/fat_fields.adb deleted file mode 100644 index 443a9b679c55..000000000000 --- a/llvm/test/FrontendAda/fat_fields.adb +++ /dev/null @@ -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; diff --git a/llvm/test/FrontendAda/field_order.ads b/llvm/test/FrontendAda/field_order.ads deleted file mode 100644 index 9b2b37c20db0..000000000000 --- a/llvm/test/FrontendAda/field_order.ads +++ /dev/null @@ -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; diff --git a/llvm/test/FrontendAda/global_constant.adb b/llvm/test/FrontendAda/global_constant.adb deleted file mode 100644 index 330f97b5d0e0..000000000000 --- a/llvm/test/FrontendAda/global_constant.adb +++ /dev/null @@ -1,5 +0,0 @@ --- RUN: %llvmgcc -S %s -I%p/Support -package body Global_Constant is -begin - raise An_Error; -end; diff --git a/llvm/test/FrontendAda/init_size.ads b/llvm/test/FrontendAda/init_size.ads deleted file mode 100644 index f423682bec72..000000000000 --- a/llvm/test/FrontendAda/init_size.ads +++ /dev/null @@ -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; diff --git a/llvm/test/FrontendAda/negative_field_offset.adb b/llvm/test/FrontendAda/negative_field_offset.adb deleted file mode 100644 index ec8184dde47b..000000000000 --- a/llvm/test/FrontendAda/negative_field_offset.adb +++ /dev/null @@ -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; diff --git a/llvm/test/FrontendAda/non_bitfield.ads b/llvm/test/FrontendAda/non_bitfield.ads deleted file mode 100644 index 8a49d46f6b42..000000000000 --- a/llvm/test/FrontendAda/non_bitfield.ads +++ /dev/null @@ -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; diff --git a/llvm/test/FrontendAda/non_lvalue.adb b/llvm/test/FrontendAda/non_lvalue.adb deleted file mode 100644 index 71e7e102d05b..000000000000 --- a/llvm/test/FrontendAda/non_lvalue.adb +++ /dev/null @@ -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; diff --git a/llvm/test/FrontendAda/placeholder.adb b/llvm/test/FrontendAda/placeholder.adb deleted file mode 100644 index 88908263f871..000000000000 --- a/llvm/test/FrontendAda/placeholder.adb +++ /dev/null @@ -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; diff --git a/llvm/test/FrontendAda/real_cst.adb b/llvm/test/FrontendAda/real_cst.adb deleted file mode 100644 index 75143710252f..000000000000 --- a/llvm/test/FrontendAda/real_cst.adb +++ /dev/null @@ -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; diff --git a/llvm/test/FrontendAda/switch.adb b/llvm/test/FrontendAda/switch.adb deleted file mode 100644 index 0c83a2e6420e..000000000000 --- a/llvm/test/FrontendAda/switch.adb +++ /dev/null @@ -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; diff --git a/llvm/test/FrontendAda/unc_constructor.adb b/llvm/test/FrontendAda/unc_constructor.adb deleted file mode 100644 index ee10de6c811d..000000000000 --- a/llvm/test/FrontendAda/unc_constructor.adb +++ /dev/null @@ -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; diff --git a/llvm/test/FrontendAda/var_offset.adb b/llvm/test/FrontendAda/var_offset.adb deleted file mode 100644 index 1d3ca98fa49d..000000000000 --- a/llvm/test/FrontendAda/var_offset.adb +++ /dev/null @@ -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; diff --git a/llvm/test/FrontendAda/var_size.adb b/llvm/test/FrontendAda/var_size.adb deleted file mode 100644 index 291f91d4eebd..000000000000 --- a/llvm/test/FrontendAda/var_size.adb +++ /dev/null @@ -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; diff --git a/llvm/test/FrontendAda/vce.adb b/llvm/test/FrontendAda/vce.adb deleted file mode 100644 index 85cdca066a29..000000000000 --- a/llvm/test/FrontendAda/vce.adb +++ /dev/null @@ -1,7 +0,0 @@ --- RUN: %llvmgcc -S %s -procedure VCE is - S : String (1 .. 2); - B : Character := 'B'; -begin - S := 'A' & B; -end; diff --git a/llvm/test/FrontendAda/vce_lv.adb b/llvm/test/FrontendAda/vce_lv.adb deleted file mode 100644 index d1b9e0824f17..000000000000 --- a/llvm/test/FrontendAda/vce_lv.adb +++ /dev/null @@ -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; diff --git a/llvm/test/FrontendFortran/2008-11-03-OptionOverride.f90 b/llvm/test/FrontendFortran/2008-11-03-OptionOverride.f90 deleted file mode 100644 index d65ba9b4736f..000000000000 --- a/llvm/test/FrontendFortran/2008-11-03-OptionOverride.f90 +++ /dev/null @@ -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! diff --git a/llvm/test/FrontendFortran/2009-02-09-FloorDivExpr.f90 b/llvm/test/FrontendFortran/2009-02-09-FloorDivExpr.f90 deleted file mode 100644 index ddd05c549496..000000000000 --- a/llvm/test/FrontendFortran/2009-02-09-FloorDivExpr.f90 +++ /dev/null @@ -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 diff --git a/llvm/test/FrontendFortran/cpow.f90 b/llvm/test/FrontendFortran/cpow.f90 deleted file mode 100644 index 25156fd58971..000000000000 --- a/llvm/test/FrontendFortran/cpow.f90 +++ /dev/null @@ -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 diff --git a/llvm/test/FrontendFortran/dg.exp b/llvm/test/FrontendFortran/dg.exp deleted file mode 100644 index 45bffc6fdcb8..000000000000 --- a/llvm/test/FrontendFortran/dg.exp +++ /dev/null @@ -1,6 +0,0 @@ -load_lib llvm.exp - -if [ llvm_gcc_supports fortran ] then { - RunLLVMTests [lsort [glob -nocomplain $srcdir/$subdir/*.{f,f90}]] -} -