https://gcc.gnu.org/bugzilla/show_bug.cgi?id=109500
Bug ID: 109500
Summary: SIGABRT when calling a function that returns an
unallocated value
Product: gcc
Version: 12.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: leandro.lupori at linaro dot org
Target Milestone: ---
While doing some tests with functions that return an allocatable result, I
found out that the following program receives a SIGABRT:
program main
print *, is_allocated(f())
contains
function f()
integer, allocatable :: f
end function
logical function is_allocated(p)
integer, allocatable :: p
is_allocated = allocated(p)
end function
end program
This is the output (without the backtrace):
free(): invalid pointer
Program received signal SIGABRT: Process abort signal.
I tested it with gfortran 11.3.0 and 12.0.0 20220117 (experimental) [master
r12-6624-gb75aab194e3] (from gcc-snapshot).
The program above is a reduced version. I was actually trying to use a function
that could return either an allocated result or an unallocated one, depending
on the argument, such as:
function f(p)
integer, allocatable :: f, p
if (allocated(p)) then
f = p
endif
end function
