re PR fortran/52832 ([F03] ASSOCIATE construct with proc-pointer selector is rejected)

2017-09-22  Paul Thomas  <pault@gcc.gnu.org>

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

From-SVN: r253091

diff --git a/gcc/testsuite/gfortran.dg/associate_31.f90 b/gcc/testsuite/gfortran.dg/associate_31.f90
deleted file mode 100644 (file)
index aa0b44c..0000000
--- 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