https://gcc.gnu.org/bugzilla/show_bug.cgi?id=83021
Dominique d'Humieres <dominiq at lps dot ens.fr> changed:
What |Removed |Added
----------------------------------------------------------------------------
Summary|[7/8 Regression] gfortran |[7/8 Regression] gfortran
|segfault |segfault in polymorphic
| |assignment
--- Comment #7 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
Reduced test case
module global_field_module
use local_field_module, only : local_field
implicit none
private
public :: global_field
type global_field
private
real, allocatable :: values(:)[:]
contains
procedure, private :: assign_local_field
generic :: assignment(=) => assign_local_field
end type
real :: dx
integer, allocatable :: num_local_points
integer, parameter:: num_end_points=2
real :: boundary_vals(num_end_points)
contains
subroutine assign_local_field(lhs,rhs)
class(global_field), intent(inout) :: lhs
class(local_field), intent(in) :: rhs
lhs%values(:) = rhs%state()
call synchronize()
end subroutine
end module
