OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/59428 (FAIL: gfortran.dg/proc_ptr_result_4.f90 -O (test for excess errors) after r205791) 

2013-12-10  Tobias Burnus  <burnus@net-b.de>

        PR fortran/59428
        PR fortran/58099
        PR fortran/58676
        PR fortran/41724
        * gfortran.dg/proc_ptr_result_4.f90: Fix proc-ptr interface.

From-SVN: r205838
This commit is contained in:
Tobias Burnus 2013-12-10 00:17:06 +01:00 committed by Tobias Burnus
parent 03fd2f6092
commit 787f341b9d
2 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,11 @@
2013-12-10 Tobias Burnus <burnus@net-b.de>
PR fortran/59428
PR fortran/58099
PR fortran/58676
PR fortran/41724
* gfortran.dg/proc_ptr_result_4.f90: Fix proc-ptr interface.
2013-12-09 Paolo Carlini <paolo.carlini@oracle.com>
PR c++/59435

8
gcc/testsuite/gfortran.dg/proc_ptr_result_4.f90
View File

@ -8,7 +8,13 @@ contains
function f()
intrinsic :: sin
procedure(sin), pointer :: f
abstract interface
pure real function sin_interf(x)
real, intent(in) :: x
end function sin_interf
end interface
! We cannot use "sin" directly as it is ELEMENTAL
procedure(sin_interf), pointer :: f
f => sin
end function f