------- Comment #18 from janus at gcc dot gnu dot org 2010-04-25 14:42 -------
Here is a maximally reduced version of comment #8 example 2, which still fails
with the patch in comment #17:
module m
type :: t1
contains
procedure :: make_integer
generic :: extract => make_integer
end type
contains
integer function make_integer (arg)
class(t1), intent(in) :: arg
make_integer = 3
end function
end module
use m
class(t1), allocatable :: a
allocate(a)
print *, a%extract ()
end
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=42274
