[Bug fortran/54874] New: OOP: polymorphic allocation with SOURCE

[sfilippone at uniroma2 dot it]

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

             Bug #: 54874
           Summary: OOP: polymorphic allocation with SOURCE
    Classification: Unclassified
           Product: gcc
           Version: 4.7.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned@gcc.gnu.org
        ReportedBy: sfilippone@uniroma2.it


Created attachment 28396
  --> http://gcc.gnu.org/bugzilla/attachment.cgi?id=28396
test case

Hi,
I am getting the following output from the test case. It seems wrong, I do not
see why allocating the polymorphic component in p%vect(4) should change the
entries p%vect(1:3)
This may or may not be a duplicate of 54784. 

------------------------------------------------
[sfilippo@jacobi bug34]$ gfortran -v
Using built-in specs.
COLLECT_GCC=gfortran
COLLECT_LTO_WRAPPER=/usr/local/gnu47/libexec/gcc/x86_64-unknown-linux-gnu/4.7.2/lto-wrapper
Target: x86_64-unknown-linux-gnu
Configured with: ../gcc-4.7.2/configure --prefix=/usr/local/gnu47
--enable-languages=c,c++,fortran --with-gmp=/home/travel/GNUBUILD/gmp
--with-mpfr=/home/travel/GNUBUILD/mpfr --with-mpc=/home/travel/GNUBUILD/mpc
Thread model: posix
gcc version 4.7.2 (GCC) 
[sfilippo@jacobi bug34]$ gfortran -o testpolyvect testpolyvect.f90
[sfilippo@jacobi bug34]$ ./testpolyvect 

 level            1
 New inner descr

 level            1
 New inner descr
 level            2
 New inner descr

 level            1
 New inner descr
 level            2
 New inner descr
 level            3
 New inner descr

 level            1
 Base inner descr
 level            2
 Base inner descr
 level            3
 Base inner descr
 level            4
 Base inner descr
------------------------------------------------------------