http://gcc.gnu.org/bugzilla/show_bug.cgi?id=59428
janus at gcc dot gnu.org changed:
What |Removed |Added
----------------------------------------------------------------------------
Status|UNCONFIRMED |ASSIGNED
Last reconfirmed| |2013-12-09
CC| |janus at gcc dot gnu.org
Assignee|unassigned at gcc dot gnu.org |janus at gcc dot gnu.org
Ever confirmed|0 |1
--- Comment #1 from janus at gcc dot gnu.org ---
Apparently this was forgotten by Tobias in his commit. The test case as such is
invalid.
I will commit the following as obvious to fix it:
Index: proc_ptr_result_4.f90
===================================================================
--- proc_ptr_result_4.f90 (revision 205803)
+++ proc_ptr_result_4.f90 (working copy)
@@ -8,9 +8,13 @@
function f()
intrinsic :: sin
- procedure(sin), pointer :: f
+ abstract interface
+ pure real function ifc(x)
+ real, intent(in) :: x
+ end function
+ end interface
+ procedure(ifc), pointer :: f
f => sin
end function f
end
-
