From ed3a22e73cbb100c62ab067d3ac81ccac4513f56 Mon Sep 17 00:00:00 2001 From: Paul Thomas Date: Fri, 22 Sep 2017 08:38:31 +0000 Subject: [PATCH] re PR fortran/52832 ([F03] ASSOCIATE construct with proc-pointer selector is rejected) 2017-09-22 Paul Thomas PR fortran/52832 * gfortran.dg/associate_31.f90 : Remove failing test. From-SVN: r253091 --- 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 -! - 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.30.2