From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gcc-bugs-return-403121-listarch-gcc-bugs=gcc.gnu.org@gcc.gnu.org>
Received: (qmail 4122 invoked by alias); 9 Oct 2012 10:02:57 -0000
Received: (qmail 4065 invoked by uid 48); 9 Oct 2012 10:02:41 -0000
From: "sfilippone at uniroma2 dot it" <gcc-bugzilla@gcc.gnu.org>
To: gcc-bugs@gcc.gnu.org
Subject: [Bug fortran/54874] OOP: polymorphic allocation with SOURCE
Date: Tue, 09 Oct 2012 10:02:00 -0000
X-Bugzilla-Reason: CC
X-Bugzilla-Type: changed
X-Bugzilla-Watch-Reason: None
X-Bugzilla-Product: gcc
X-Bugzilla-Component: fortran
X-Bugzilla-Keywords:
X-Bugzilla-Severity: normal
X-Bugzilla-Who: sfilippone at uniroma2 dot it
X-Bugzilla-Status: UNCONFIRMED
X-Bugzilla-Priority: P3
X-Bugzilla-Assigned-To: unassigned at gcc dot gnu.org
X-Bugzilla-Target-Milestone: ---
X-Bugzilla-Changed-Fields:
Message-ID: <bug-54874-4-JXMwDCKHQU@http.gcc.gnu.org/bugzilla/>
In-Reply-To: <bug-54874-4@http.gcc.gnu.org/bugzilla/>
References: <bug-54874-4@http.gcc.gnu.org/bugzilla/>
X-Bugzilla-URL: http://gcc.gnu.org/bugzilla/
Auto-Submitted: auto-generated
Content-Type: text/plain; charset="UTF-8"
MIME-Version: 1.0
Mailing-List: contact gcc-bugs-help@gcc.gnu.org; run by ezmlm
Precedence: bulk
List-Id: <gcc-bugs.gcc.gnu.org>
List-Archive: <http://gcc.gnu.org/ml/gcc-bugs/>
List-Post: <mailto:gcc-bugs@gcc.gnu.org>
List-Help: <mailto:gcc-bugs-help@gcc.gnu.org>
Sender: gcc-bugs-owner@gcc.gnu.org
X-SW-Source: 2012-10/txt/msg00797.txt.bz2


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

--- Comment #1 from Salvatore Filippone <sfilippone at uniroma2 dot it> 2012-10-09 10:02:41 UTC ---
Interestingly, taking out the outer container p% makes the code work... 

-------------------------------------------------------------------
[sfilippo@jacobi bug34]$ gfortran -o poywork polywork.f90
[sfilippo@jacobi bug34]$ ./poywork 

 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
 New inner descr
 level            2
 New inner descr
 level            3
 New inner descr
 level            4
 Base inner descr

------------------------------------------------------
program testsource
  use testmod

  type(level), allocatable  :: vect(:)
  class(outer), allocatable :: outvar1, outvar2

  integer :: i,j,k,n,info

  n = 4

  allocate(outer :: outvar1)
  allocate(outer :: outvar2)
  allocate(new_inner :: outvar1%var)
  allocate(inner :: outvar2%var)


  allocate(vect(n))
  do i=1, n
    if (i<n) then 
      allocate(vect(i)%outvar,source=outvar1)
    else
      allocate(vect(i)%outvar,source=outvar2)
    end if

    write(0,*)

    do k=1,i
      write(0,*) 'level ',k
      call vect(k)%outvar%var%descr()
    end do
  end do


end program testsourc