From 1814bd731e475f90705606f851d8d0f405d73b3c Mon Sep 17 00:00:00 2001
From: pault <pault@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Fri, 22 Sep 2017 08:38:31 +0000
Subject: [PATCH] 2017-09-22  Paul Thomas  <pault@gcc.gnu.org>

	PR fortran/52832
	* gfortran.dg/associate_31.f90 : Remove failing test.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@253091 138bc75d-0d04-0410-961f-82ee72b054a4
---
 gcc/testsuite/gfortran.dg/associate_31.f90 | 39 ------------------------------
 1 file changed, 39 deletions(-)
 delete mode 100644 gcc/testsuite/gfortran.dg/associate_31.f90

diff --git a/gcc/testsuite/gfortran.dg/associate_31.f90 b/gcc/testsuite/gfortran.dg/associate_31.f90
deleted file mode 100644
index aa0b44c5ad6..00000000000
--- a/gcc/testsuite/gfortran.dg/associate_31.f90
+++ /dev/null
@@ -1,39 +0,0 @@
-! { dg-do run }
-!
-! Test the fix for PR52832
-!
-! Contributed by Tobias Burnus  <burnus@gcc.gnu.org>
-!
-  subroutine testSub()
-    interface
-      integer function fcn1 (arg)
-        integer :: arg
-      end function
-      integer function fcn2 (arg)
-        integer :: arg
-      end function
-    end interface
-
-    procedure(fcn1), pointer :: r
-    r => fcn2
-    associate (k => r)
-      if (r(42) .ne. 84) call abort
-    end associate
-    r => fcn1
-    associate (k => r)
-      if (r(42) .ne. 42) call abort
-    end associate
-  end subroutine testSub
-
-  integer function fcn1 (arg)
-    integer :: arg;
-    fcn2 = arg
-  end function
-
-  integer function fcn2 (arg)
-    integer :: arg;
-    fcn2 = arg*2
-  end function
-
-  call testSub
-end
-- 
2.11.4.GIT