------- 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