This is now PR 118747 and it has been marked as blocking 68241. D
On Tue, Feb 4, 2025 at 10:10 AM Damian Rouson <damian@archaeologic.codes> wrote: > > I'm attempting to submit the code below to Bugzilla, but the site > appears to be hanging. I'll try again later. Presumably this should > be added to the deferred-length character metabug. This code executes > without error when compiled with gfortran 14.2.0, but seg faults when > compiled with a recent build of gfortran 15. > > Damian > > % cat all.f90 > implicit none > > type string_t > character(len=:), allocatable :: string_ > end type > > call check_allocation([foo()]) > > contains > > type(string_t) function foo() > foo%string_ = "foo" > end function > > elemental subroutine check_allocation(string) > type(string_t), intent(in) :: string > if (.not. allocated(string%string_)) error stop "unallocated" > end subroutine > > end > > rouson@rouson-m73 julienne % gfortran all.f90 > > rouson@rouson-m73 julienne % ./a.out > a.out(64876,0x1eeb90f40) malloc: *** error for object 0x600000bd8030: > pointer being freed was not allocated > a.out(64876,0x1eeb90f40) malloc: *** set a breakpoint in > malloc_error_break to debug > > Program received signal SIGABRT: Process abort signal. > > Backtrace for this error: > #0 0x1031a2b63 > #1 0x1031a1ae3 > #2 0x186d72583 > #3 0x186d41c1f > #4 0x186c4ea2f > #5 0x186b5edc3 > #6 0x186b6242f > #7 0x186b7c493 > #8 0x102b33d57 > #9 0x102b33e5b > zsh: abort ./a.out > > rouson@rouson-m73 julienne % gfortran --version > GNU Fortran (GCC) 15.0.1 20250119 (experimental)
