From db2a1cde874a5e6e2013ba060d0292e7d9c79451 Mon Sep 17 00:00:00 2001
From: Eric Christopher <echristo@apple.com>
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 -----
 test/FrontendAda/Support/fat_fields.ads       |  6 ----
 test/FrontendAda/Support/global_constant.ads  |  4 ---
 test/FrontendAda/Support/non_lvalue.ads       | 11 -------
 test/FrontendAda/Support/real_cst.ads         |  4 ---
 test/FrontendAda/Support/unc_constructor.ads  |  8 -----
 test/FrontendAda/Support/var_offset.ads       |  9 ------
 test/FrontendAda/Support/var_size.ads         |  7 ----
 test/FrontendAda/array_constructor.adb        |  6 ----
 test/FrontendAda/array_range_ref.adb          |  7 ----
 test/FrontendAda/array_ref.adb                | 11 -------
 test/FrontendAda/array_size.adb               | 10 ------
 test/FrontendAda/asm.adb                      |  6 ----
 test/FrontendAda/constant_fold.ads            |  4 ---
 test/FrontendAda/debug_var_size.ads           |  8 -----
 test/FrontendAda/dg.exp                       |  6 ----
 test/FrontendAda/element_copy.adb             |  8 -----
 test/FrontendAda/emit_var.ads                 |  5 ---
 test/FrontendAda/fat_fields.adb               | 10 ------
 test/FrontendAda/field_order.ads              |  7 ----
 test/FrontendAda/global_constant.adb          |  5 ---
 test/FrontendAda/init_size.ads                | 12 -------
 test/FrontendAda/negative_field_offset.adb    | 16 ----------
 test/FrontendAda/non_bitfield.ads             | 12 -------
 test/FrontendAda/non_lvalue.adb               |  7 ----
 test/FrontendAda/placeholder.adb              | 12 -------
 test/FrontendAda/real_cst.adb                 |  8 -----
 test/FrontendAda/switch.adb                   | 12 -------
 test/FrontendAda/unc_constructor.adb          |  9 ------
 test/FrontendAda/var_offset.adb               |  7 ----
 test/FrontendAda/var_size.adb                 |  7 ----
 test/FrontendAda/vce.adb                      |  7 ----
 test/FrontendAda/vce_lv.adb                   |  9 ------
 .../2008-11-03-OptionOverride.f90             |  4 ---
 .../2009-02-09-FloorDivExpr.f90               | 32 -------------------
 test/FrontendFortran/cpow.f90                 | 18 -----------
 test/FrontendFortran/dg.exp                   |  6 ----
 37 files changed, 328 deletions(-)
 delete mode 100644 test/FrontendAda/Support/element_copy.ads
 delete mode 100644 test/FrontendAda/Support/fat_fields.ads
 delete mode 100644 test/FrontendAda/Support/global_constant.ads
 delete mode 100644 test/FrontendAda/Support/non_lvalue.ads
 delete mode 100644 test/FrontendAda/Support/real_cst.ads
 delete mode 100644 test/FrontendAda/Support/unc_constructor.ads
 delete mode 100644 test/FrontendAda/Support/var_offset.ads
 delete mode 100644 test/FrontendAda/Support/var_size.ads
 delete mode 100644 test/FrontendAda/array_constructor.adb
 delete mode 100644 test/FrontendAda/array_range_ref.adb
 delete mode 100644 test/FrontendAda/array_ref.adb
 delete mode 100644 test/FrontendAda/array_size.adb
 delete mode 100644 test/FrontendAda/asm.adb
 delete mode 100644 test/FrontendAda/constant_fold.ads
 delete mode 100644 test/FrontendAda/debug_var_size.ads
 delete mode 100644 test/FrontendAda/dg.exp
 delete mode 100644 test/FrontendAda/element_copy.adb
 delete mode 100644 test/FrontendAda/emit_var.ads
 delete mode 100644 test/FrontendAda/fat_fields.adb
 delete mode 100644 test/FrontendAda/field_order.ads
 delete mode 100644 test/FrontendAda/global_constant.adb
 delete mode 100644 test/FrontendAda/init_size.ads
 delete mode 100644 test/FrontendAda/negative_field_offset.adb
 delete mode 100644 test/FrontendAda/non_bitfield.ads
 delete mode 100644 test/FrontendAda/non_lvalue.adb
 delete mode 100644 test/FrontendAda/placeholder.adb
 delete mode 100644 test/FrontendAda/real_cst.adb
 delete mode 100644 test/FrontendAda/switch.adb
 delete mode 100644 test/FrontendAda/unc_constructor.adb
 delete mode 100644 test/FrontendAda/var_offset.adb
 delete mode 100644 test/FrontendAda/var_size.adb
 delete mode 100644 test/FrontendAda/vce.adb
 delete mode 100644 test/FrontendAda/vce_lv.adb
 delete mode 100644 test/FrontendFortran/2008-11-03-OptionOverride.f90
 delete mode 100644 test/FrontendFortran/2009-02-09-FloorDivExpr.f90
 delete mode 100644 test/FrontendFortran/cpow.f90
 delete mode 100644 test/FrontendFortran/dg.exp

diff --git a/test/FrontendAda/Support/element_copy.ads b/test/FrontendAda/Support/element_copy.ads
deleted file mode 100644
index 52c6e49275e..00000000000
--- 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 d3eab3e2866..00000000000
--- 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 cef4b11f684..00000000000
--- 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 7d4eeed8b8e..00000000000
--- 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 54a34bc4056..00000000000
--- 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 d6f8db50d89..00000000000
--- 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 55d0eb21f7c..00000000000
--- 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 6a570cba8bd..00000000000
--- 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;
diff --git a/test/FrontendAda/array_constructor.adb b/test/FrontendAda/array_constructor.adb
deleted file mode 100644
index 13517c7565a..00000000000
--- a/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/test/FrontendAda/array_range_ref.adb b/test/FrontendAda/array_range_ref.adb
deleted file mode 100644
index 037c5aa8b6f..00000000000
--- a/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/test/FrontendAda/array_ref.adb b/test/FrontendAda/array_ref.adb
deleted file mode 100644
index 2bf4b7988d6..00000000000
--- a/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/test/FrontendAda/array_size.adb b/test/FrontendAda/array_size.adb
deleted file mode 100644
index c73616c9807..00000000000
--- a/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/test/FrontendAda/asm.adb b/test/FrontendAda/asm.adb
deleted file mode 100644
index 844885e6715..00000000000
--- a/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/test/FrontendAda/constant_fold.ads b/test/FrontendAda/constant_fold.ads
deleted file mode 100644
index 6223e7cb64d..00000000000
--- a/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/test/FrontendAda/debug_var_size.ads b/test/FrontendAda/debug_var_size.ads
deleted file mode 100644
index e8863cbddf9..00000000000
--- a/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/test/FrontendAda/dg.exp b/test/FrontendAda/dg.exp
deleted file mode 100644
index 2307c3fdbe0..00000000000
--- a/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/test/FrontendAda/element_copy.adb b/test/FrontendAda/element_copy.adb
deleted file mode 100644
index 29274fa744a..00000000000
--- a/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/test/FrontendAda/emit_var.ads b/test/FrontendAda/emit_var.ads
deleted file mode 100644
index 47e2538691a..00000000000
--- a/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/test/FrontendAda/fat_fields.adb b/test/FrontendAda/fat_fields.adb
deleted file mode 100644
index 443a9b679c5..00000000000
--- a/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/test/FrontendAda/field_order.ads b/test/FrontendAda/field_order.ads
deleted file mode 100644
index 9b2b37c20db..00000000000
--- a/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/test/FrontendAda/global_constant.adb b/test/FrontendAda/global_constant.adb
deleted file mode 100644
index 330f97b5d0e..00000000000
--- a/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/test/FrontendAda/init_size.ads b/test/FrontendAda/init_size.ads
deleted file mode 100644
index f423682bec7..00000000000
--- a/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/test/FrontendAda/negative_field_offset.adb b/test/FrontendAda/negative_field_offset.adb
deleted file mode 100644
index ec8184dde47..00000000000
--- a/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/test/FrontendAda/non_bitfield.ads b/test/FrontendAda/non_bitfield.ads
deleted file mode 100644
index 8a49d46f6b4..00000000000
--- a/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/test/FrontendAda/non_lvalue.adb b/test/FrontendAda/non_lvalue.adb
deleted file mode 100644
index 71e7e102d05..00000000000
--- a/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/test/FrontendAda/placeholder.adb b/test/FrontendAda/placeholder.adb
deleted file mode 100644
index 88908263f87..00000000000
--- a/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/test/FrontendAda/real_cst.adb b/test/FrontendAda/real_cst.adb
deleted file mode 100644
index 75143710252..00000000000
--- a/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/test/FrontendAda/switch.adb b/test/FrontendAda/switch.adb
deleted file mode 100644
index 0c83a2e6420..00000000000
--- a/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/test/FrontendAda/unc_constructor.adb b/test/FrontendAda/unc_constructor.adb
deleted file mode 100644
index ee10de6c811..00000000000
--- a/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/test/FrontendAda/var_offset.adb b/test/FrontendAda/var_offset.adb
deleted file mode 100644
index 1d3ca98fa49..00000000000
--- a/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/test/FrontendAda/var_size.adb b/test/FrontendAda/var_size.adb
deleted file mode 100644
index 291f91d4eeb..00000000000
--- a/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/test/FrontendAda/vce.adb b/test/FrontendAda/vce.adb
deleted file mode 100644
index 85cdca066a2..00000000000
--- a/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/test/FrontendAda/vce_lv.adb b/test/FrontendAda/vce_lv.adb
deleted file mode 100644
index d1b9e0824f1..00000000000
--- a/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/test/FrontendFortran/2008-11-03-OptionOverride.f90 b/test/FrontendFortran/2008-11-03-OptionOverride.f90
deleted file mode 100644
index d65ba9b4736..00000000000
--- a/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/test/FrontendFortran/2009-02-09-FloorDivExpr.f90 b/test/FrontendFortran/2009-02-09-FloorDivExpr.f90
deleted file mode 100644
index ddd05c54949..00000000000
--- a/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/test/FrontendFortran/cpow.f90 b/test/FrontendFortran/cpow.f90
deleted file mode 100644
index 25156fd5897..00000000000
--- a/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/test/FrontendFortran/dg.exp b/test/FrontendFortran/dg.exp
deleted file mode 100644
index 45bffc6fdcb..00000000000
--- a/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}]]
-}
-