From: Paul Thomas <pault@gcc.gnu.org>
Date: Fri, 22 Sep 2017 08:38:31 +0000 (+0000)
Subject: re PR fortran/52832 ([F03] ASSOCIATE construct with proc-pointer selector is rejected)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=ed3a22e73cbb100c62ab067d3ac81ccac4513f56;p=gcc.git

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
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