!{ dg-do run }

! Check double free on array constructor in argument list is fixed.
! Contributed by Damian Rouson  <damian@archaeologic.codes>
program pr119349
  implicit none
  
  type string_t
    character(len=:), allocatable :: string_
  end type

  print *, true([string()])

contains

  type(string_t) function string()
    string%string_ = ""
  end function

  logical elemental function true(rhs)
    class(string_t), intent(in) :: rhs
    true = .true.
  end function

end program