From a8c075f72b231c37823661ba0d7d082a21cd39d9 Mon Sep 17 00:00:00 2001
From: Dan Albert <danalbert@google.com>
Date: Tue, 13 Oct 2015 16:28:19 -0700
Subject: Remove gcc-4.8.

Change-Id: Iee9c6985c613f58c82e33a91722d371579eb290f
---
 gcc-4.8/gcc/testsuite/gnat.dg/opt14.adb | 25 -------------------------
 1 file changed, 25 deletions(-)
 delete mode 100644 gcc-4.8/gcc/testsuite/gnat.dg/opt14.adb

(limited to 'gcc-4.8/gcc/testsuite/gnat.dg/opt14.adb')

diff --git a/gcc-4.8/gcc/testsuite/gnat.dg/opt14.adb b/gcc-4.8/gcc/testsuite/gnat.dg/opt14.adb
deleted file mode 100644
index 61bc7313b..000000000
--- a/gcc-4.8/gcc/testsuite/gnat.dg/opt14.adb
+++ /dev/null
@@ -1,25 +0,0 @@
--- { dg-do run }
--- { dg-options "-O2" }
-
-procedure Opt14 is
-
-  type Rec is record
-    I1, I2, I3 : Integer;
-  end record;
-
-  type Ptr is access Rec;
-
-  P : Ptr := new Rec'(0,0,0);
-
-  procedure Sub (R : In Out Rec) is
-  begin
-    R.I3 := R.I3 - 1;
-  end;
-
-begin
-  P.all := (1,2,3);
-  Sub (P.all);
-  if P.all /= (1,2,2) then
-    raise Program_Error;
-  end if;
-end;
-- 
cgit v1.2.3