Tobias Burnus wrote:
PS: I have now committed the attached patch as Rev. 205791.
Seemingly, I missed one test case. Committed the attached patch as
obvious, Rev. 205838.
Tobias
Index: gcc/testsuite/ChangeLog
===================================================================
--- gcc/testsuite/ChangeLog (Revision 205837)
+++ gcc/testsuite/ChangeLog (Arbeitskopie)
@@ -1,3 +1,11 @@
+2013-12-10 Tobias Burnus <bur...@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.carl...@oracle.com>
PR c++/59435
Index: gcc/testsuite/gfortran.dg/proc_ptr_result_4.f90
===================================================================
--- gcc/testsuite/gfortran.dg/proc_ptr_result_4.f90 (Revision 205837)
+++ gcc/testsuite/gfortran.dg/proc_ptr_result_4.f90 (Arbeitskopie)
@@ -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
