[Bug fortran/69955] New: Memory leak with array constructor and derived type

[mrestelli at gmail dot com]

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

            Bug ID: 69955
           Summary: Memory leak with array constructor and derived type
           Product: gcc
           Version: 6.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: mrestelli at gmail dot com
  Target Milestone: ---

The attached code leaks memory for me:

$ gfortran --version
GNU Fortran (GCC) 6.0.0 20160224 (experimental)


program p
 implicit none

 type :: t1
  real, allocatable :: x(:)
 end type t1

 type :: t2
  type(t1), allocatable :: ts(:)
 end type t2

 integer :: i,j
 type(t2) :: var(100)

  do i=1,100
    allocate(var(i)%ts(i))
    do j=1,i
      allocate(var(i)%ts(j)%x(i+j))
    enddo
  enddo

  do j=1,10000 ! change this to control the amount of leaked memory
    write(*,*) size( (/( var(i)%ts , i=1,size(var) )/) )
  enddo

  do i=1,100
    deallocate(var(i)%ts)
  enddo

end program p