Re: Bug 119349 [15 Regression] polymorphic array dummy argument with function result actual argument in elemental function

[Jerry D]

On 3/17/25 10:40 PM, Damian Rouson wrote:
With gfortran 12.4.0, 13.3.0, and 14.2.0, the program below prints
"T".   With gfortran 15, the program crashes with an error message
that indicates that a pointer is being freed that was not allocated.
% cat all.f90
   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

% gfortran all.f90
% ./a.out

a.out(28435,0x209bdc840) malloc: *** error for object 0x600002f98060:
pointer being freed was not allocated
a.out(28435,0x209bdc840) malloc: *** set a breakpoint in
malloc_error_break to debug

Program received signal SIGABRT: Process abort signal.

Backtrace for this error:
#0  0x1028d2563
#1  0x1028d14e3
#2  0x1a02a2de3
#3  0x1a026bf6f
#4  0x1a0178907
#5  0x1a0081e37
#6  0x1a00859bb
#7  0x1a00a4143
#8  0x102583bdf
#9  0x102583daf
zsh: abort      ./a.out

% gfortran --version
GNU Fortran (GCC) 15.0.1 20250315 (experimental)

After looking at the -fdummp-tree-original I am sure this is out of my 
area. It is certainly a recent regression.

Jerry