[Bug fortran/59414] [OOP] Class array pointers: compile error on valid code (Different ranks in pointer assignment)

["janus at gcc dot gnu.org" <gcc-bugzilla at gcc dot gnu dot org>]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=59414

janus at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Keywords|                            |rejects-valid
             Status|UNCONFIRMED                 |NEW
   Last reconfirmed|                            |2013-12-07
                 CC|                            |janus at gcc dot gnu.org
            Summary|Class array pointers:       |[OOP] Class array pointers:
                   |compile error on valid code |compile error on valid code
                   |(Different ranks in pointer |(Different ranks in pointer
                   |assignment)                 |assignment)
     Ever confirmed|0                           |1

--- Comment #1 from janus at gcc dot gnu.org ---
Confirmed. Thanks for reporting!

Here is a reduced test case, which is sufficient to trigger the error:


    implicit none

    Type TObjectList
    end Type

    Class(TObjectList), pointer :: Arr(:)
    Arr => ArrayItem()

  contains

    function ArrayItem() result(P)
      Class(TObjectList), pointer :: P(:)
    end function

end