https://gcc.gnu.org/bugzilla/show_bug.cgi?id=55765

Paul Thomas <pault at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|ASSIGNED                    |RESOLVED
                 CC|                            |vehre at gcc dot gnu.org
         Resolution|---                         |FIXED

--- Comment #3 from Paul Thomas <pault at gcc dot gnu.org> ---
As far as I can see, Andre has fixed this with the addition of the 'len' field
for unlimited polymorphic objects.

  character(:), target, allocatable :: chr
  class(*), pointer :: ptr

  chr = "hello"
  ptr => chr
  call foo

  chr = "goodbye"
  ptr => chr
  call foo
contains
  subroutine foo
    select type (ptr)
      type is (character(*))
        print *, ptr
    end select
  end subroutine
end

works as expected and the output code looks fine.

Closing

Paul

Reply via email to