[Bug fortran/79053] Memory leak from array constructor + array index off by one in called method

[dominiq at lps dot ens.fr]

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

Dominique d'Humieres <dominiq at lps dot ens.fr> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
   Last reconfirmed|                            |2017-01-11
                 CC|                            |pault at gcc dot gnu.org
             Blocks|                            |68241
     Ever confirmed|0                           |1

--- Comment #1 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
The following reduced (and invalid!-) code

module stringModule
   implicit none

   type :: string
      character(len=:), allocatable :: raw
   contains
      procedure :: DoWork
   end type

contains

   subroutine DoWork(self, others)
      class(string), intent(in) :: self
      class(string), intent(in) :: others(:)
      integer :: i
      print *, size(others)
      do i = 1, size(others)
         write (*,*) "'", others(i-1)%raw, "'"
      enddo
   end subroutine

end module

subroutine leak
   use stringModule
   implicit none
   type(string) :: s

   s = string('just some string')
   call s%DoWork([string('a string'),string('another longer string')])
end subroutine

program bug
   call leak
end program

gives

           2
 'a string'
 'another longer string'

at run time with gcc-5, 6 and trunk (7.0). Compiling the tests with gcc-4.9
gives

pr79053_db.f90:29.7:

   s = string('just some string')
       1
Error: No initializer for component '_raw_length' given in the structure
constructor at (1)!
pr79053_db.f90:30.18:

   call s%DoWork([string('a string'),string('another longer string')])
                  1
Error: No initializer for component '_raw_length' given in the structure
constructor at (1)!
pr79053_db.f90:30.37:

   call s%DoWork([string('a string'),string('another longer string')])
                                     1
Error: No initializer for component '_raw_length' given in the structure
constructor at (1)!

Related to pr72709.


Referenced Bugs:

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=68241
[Bug 68241] [meta-bug] [F03] Deferred-length character