http://gcc.gnu.org/bugzilla/show_bug.cgi?id=60322
janus at gcc dot gnu.org changed:
What |Removed |Added
----------------------------------------------------------------------------
Keywords| |wrong-code
Status|UNCONFIRMED |NEW
Last reconfirmed| |2014-02-23
CC| |janus at gcc dot gnu.org
Summary|Incorrect bounds on |[OOP] Incorrect bounds on
|polymorphic dummy array |polymorphic dummy array
Ever confirmed|0 |1
--- Comment #1 from janus at gcc dot gnu.org ---
Confirmed. Slightly reduced test case (to exclude that the problem is
module-related):
program main
implicit none
type Foo
end type
call copyFromArray([Foo()])
contains
subroutine copyFromArray(array)
class (Foo), intent(in) :: array(:)
print*,'lbound should be 1: ', lbound(array), ubound(array), size(array)
end subroutine
end
When changing 'class(foo)' to 'type(foo)', the expected output is obtained.
