[Bug fortran/64692] New: Incorrect result for sourced allocate of class(*) array

["antony at cosmologist dot info" <gcc-bugzilla at gcc dot gnu dot org>]

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

            Bug ID: 64692
           Summary: Incorrect result for sourced allocate of class(*)
                    array
           Product: gcc
           Version: 5.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: antony at cosmologist dot info

The following code gives incorrect output in trunk ('array 1' and 'array 2'
should be the same):

module Y
contains

    subroutine AddArray(P)
    class(*), target, intent(in) :: P(:)
    class(*), pointer :: Pt(:)

        allocate(Pt(1:SIZE(P)), source= P)

    select type (P)
    type is (double precision)
      print *,'array 1',P
    end select

    select type (Pt )
    type is (double precision)
      print *,'array 2',Pt
    end select

   end subroutine

end module Y

program test
use Y
double precision P(2,2)

P(1:2,1)=[1.d0,2.d0]
P(1:2,2) = [3.d0,4.d0]
call AddArray(P(1:2,2))

end program test


The select types are just there to show the output, they aren't needed for the
bug.