http://gcc.gnu.org/bugzilla/show_bug.cgi?id=47224
janus at gcc dot gnu.org changed:
What |Removed |Added
----------------------------------------------------------------------------
Status|UNCONFIRMED |NEW
Last reconfirmed| |2011.01.09 09:46:33
CC| |janus at gcc dot gnu.org
Ever Confirmed|0 |1
--- Comment #2 from janus at gcc dot gnu.org 2011-01-09 09:46:33 UTC ---
Confirmed. Thanks for reporting. Here is a slightly reduced/modified test case:
abstract interface
real function dum_vfunc ( x )
real, dimension(:) :: x
end function
end interface
type coefficients_t
procedure (dum_vfunc), pointer, nopass :: vfunc
end type
type(coefficients_t) :: coeff
real, dimension(3) :: x
print *, abs ( coeff%vfunc ( x(:) ) )
end
