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
---
 .../gfortran.dg/deferred_type_param_5.f90          | 51 ----------------------
 1 file changed, 51 deletions(-)
 delete mode 100644 gcc-4.8/gcc/testsuite/gfortran.dg/deferred_type_param_5.f90

(limited to 'gcc-4.8/gcc/testsuite/gfortran.dg/deferred_type_param_5.f90')

diff --git a/gcc-4.8/gcc/testsuite/gfortran.dg/deferred_type_param_5.f90 b/gcc-4.8/gcc/testsuite/gfortran.dg/deferred_type_param_5.f90
deleted file mode 100644
index 8380b9d2d..000000000
--- a/gcc-4.8/gcc/testsuite/gfortran.dg/deferred_type_param_5.f90
+++ /dev/null
@@ -1,51 +0,0 @@
-! { dg-do compile }
-!
-! PR fortran/49110
-! PR fortran/52843
-!
-! Based on a contributed code by jwmwalrus@gmail.com
-!
-! Before, character(len=:) result variable were rejected in PURE functions. 
-!
-module mod1
-    use iso_c_binding
-    implicit none
-
-contains
-    pure function c_strlen(str)
-      character(KIND = C_CHAR), intent(IN) :: str(*)
-      integer :: c_strlen,i
-
-      i = 1
-      do
-        if (i < 1) then
-          c_strlen = 0
-          return
-        end if
-        if (str(i) == c_null_char) exit
-        i = i + 1
-      end do
-      c_strlen = i - 1
-    end function c_strlen
-    pure function c2fstring(cbuffer) result(string)
-        character(:), allocatable :: string
-        character(KIND = C_CHAR), intent(IN) :: cbuffer(*)
-        integer :: i
-
-    continue
-        string = REPEAT(' ', c_strlen(cbuffer))
-
-        do i = 1, c_strlen(cbuffer)
-            if (cbuffer(i) == C_NULL_CHAR) exit
-            string(i:i) = cbuffer(i)
-        enddo
-
-        string = TRIM(string)
-    end function
-end module mod1
-
-use mod1
-character(len=:), allocatable :: str
-str = c2fstring("ABCDEF"//c_null_char//"GHI")
-if (len(str) /= 6 .or. str /= "ABCDEF") call abort()
-end
-- 
cgit v1.2.3