[Bug fortran/43969] [OOP] ALLOCATED() with polymorphic arrays

[janus at gcc dot gnu.org]

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

--- Comment #9 from janus at gcc dot gnu.org 2010-12-29 17:02:24 UTC ---
Here is another test case from PR46838 comment #8:

  implicit none

  type indx_map
  end type

  type desc_type
    class(indx_map), allocatable :: indxmap(:)
  end type

  type(desc_type)  :: desc
  if (allocated(desc%indxmap)) call abort()

end