[Bug fortran/60322] [OOP] Incorrect bounds on polymorphic dummy array

[janus at gcc dot gnu.org]

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.