[Bug fortran/111265] New: Compiler segfault with character array in deferred type, when returned by a function

[Bug fortran/111265] New: Compiler segfault with character array in deferred type, when returned by a function

[mailling-lists-bd at posteo dot de]

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

            Bug ID: 111265
           Summary: Compiler segfault with character array in deferred
                    type, when returned by a function
           Product: gcc
           Version: 13.2.1
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: mailling-lists-bd at posteo dot de
  Target Milestone: ---

Hi,

the following code is giving a compiler segfault with Gfortran 13.2.1 on
Fedora, when compiled with `gfortran -c test.f90`.

``` test.f90
module mod_abs_type
  implicit none

  type, abstract :: my_abs_type_t
     private
     character(len=1024), allocatable :: str_(:)
   contains
     private
     procedure, public :: str
  end type my_abs_type_t

contains
  pure function str(self) result(res)
    class(my_abs_type_t), intent(in) :: self
    character(len=1024), allocatable :: res(:)

    allocate(res(size(self%str_)))
    res(:) = self%str_(:)
  end function str
end module mod_abs_type

module mod_container
  use mod_abs_type, only: my_abs_type_t
  implicit none

  type :: my_container_t
     private
     class(my_abs_type_t), allocatable :: ele
   contains
     private
     procedure, public :: str
  end type my_container_t

contains

  pure function str(self) result(res)
    class(my_container_t), intent(in) :: self

    character(len=1024), allocatable :: res(:)

    res = self%ele%str()
  end function str

end module mod_container
```

The error message is:

   42 |     res = self%ele%str()
      |                        1
internal compiler error: Segmentation fault
Please submit a full bug report, with preprocessed source.
See <http://bugzilla.redhat.com/bugzilla> for instructions.

Thanks !