------- Comment #8 from janus at gcc dot gnu dot org 2008-12-06 13:57 -------
Created an attachment (id=16841)
--> (http://gcc.gnu.org/bugzilla/attachment.cgi?id=16841&action=view)
patch v1
Here is a draft patch which correctly copies the typespec and formal args for a
PROCEDURE statement with INTRINSIC interface. It also makes
gfc_compare_interfaces work with intrinsics and re-enables the interface check
for procedure pointer assignments.
Stuff like the following should work now:
procedure(iabs),pointer::p1
procedure(f), pointer::p2
! valid
p1 => iabs
p2 => iabs
p1 => f
p2 => f
p2 => p1
p1 => p2
! invalid
p1 => abs
p2 => abs
contains
integer function f(x)
integer :: x
f = 317
end function
end
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=38290
