http://gcc.gnu.org/bugzilla/show_bug.cgi?id=59143
janus at gcc dot gnu.org changed:
What |Removed |Added
----------------------------------------------------------------------------
Keywords| |diagnostic
Status|UNCONFIRMED |NEW
Last reconfirmed| |2013-11-15
CC| |janus at gcc dot gnu.org
Summary|Problem with array |[OOP] Bogus warning with
|dimension in polymorphic |array-valued type-bound
|types |procedure
Ever confirmed|0 |1
--- Comment #2 from janus at gcc dot gnu.org ---
Confirmed. Slightly reduced version:
module phs_single
type :: phs_single_t
contains
procedure, nopass :: decay_p
end type
contains
subroutine evaluate (phs)
class(phs_single_t) :: phs
call func1 (phs%decay_p ())
end subroutine
subroutine func1 (p)
real :: p(2)
end subroutine
function decay_p ()
real :: decay_p(2)
decay_p = 1.
end function
end module
