https://gcc.gnu.org/bugzilla/show_bug.cgi?id=88393
Bug ID: 88393
Summary: [7/8/9 Regression] [OOP] Segfault with type-bound
assignment
Product: gcc
Version: 9.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: janus at gcc dot gnu.org
Target Milestone: ---
Simple test case:
module m
implicit none
type :: t
character(len=:), allocatable :: cs
contains
procedure :: ass
generic :: assignment(=) => ass
end type
contains
subroutine ass(a, b)
class(t), intent(inout) :: a
class(t), intent(in) :: b
print *, "ass"
end subroutine
end module
program p
use m
implicit none
type :: t2
type(t) :: c
end type
type(t2), dimension(1:2) :: arr
arr(2)%c = arr(1)%c
print *, "done"
end
While this runs flawlessly with gfortran 6.4.0, it segfaults at runtime with
7.3.0 and above.
