diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2017-09-22 08:38:31 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2017-09-22 08:38:31 +0000 |
| commit | ed3a22e73cbb100c62ab067d3ac81ccac4513f56 (patch) | |
| tree | 3b9064ce227004c240491211969dbe656a41e1de | |
| parent | ab0e5308484abccb6c21d3a6593ab653a02784a2 (diff) | |
| download | gcc-ed3a22e73cbb100c62ab067d3ac81ccac4513f56.zip gcc-ed3a22e73cbb100c62ab067d3ac81ccac4513f56.tar.gz gcc-ed3a22e73cbb100c62ab067d3ac81ccac4513f56.tar.bz2 | |
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
| -rw-r--r-- | gcc/testsuite/gfortran.dg/associate_31.f90 | 39 |
1 files changed, 0 insertions, 39 deletions
diff --git a/gcc/testsuite/gfortran.dg/associate_31.f90 b/gcc/testsuite/gfortran.dg/associate_31.f90 deleted file mode 100644 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 |