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

            Bug ID: 67539
           Summary: Segmentation fault with elemental defined assignment
                    and scalar function at the RHS
           Product: gcc
           Version: 6.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: mrestelli at gmail dot com
  Target Milestone: ---

The attached code produces a segmentation fault:

$ gfortran --version
GNU Fortran (GCC) 6.0.0 20150910 (experimental)

$ ./test 

Program received signal SIGSEGV: Segmentation fault - invalid memory reference.

Backtrace for this error:
#0  0x7FD288EF6757
#1  0x7FD288EF6D5E
#2  0x7FD28842EE8F
#3  0x400B69 in __m_MOD_copy_t_a at test.f90:17 (discriminator 3)
#4  0x400D15 in p at test.f90:40 (discriminator 2)


Notice that both workarounds a) using a scalar temporary tmp and b)
assigning to each element separately work.




module m
 implicit none

 type :: t_a
  real, allocatable :: x
 end type t_a

 interface assignment(=)
  module procedure copy_t_a
 end interface

contains

 elemental subroutine copy_t_a(y,x)
  type(t_a), intent(in)  :: x
  type(t_a), intent(out) :: y
   allocate( y%x , source=x%x )
 end subroutine copy_t_a

 elemental function new_t_a(x) result(res)
  real, intent(in) :: x
  type(t_a) :: res
   allocate( res%x )
   res%x = x
 end function new_t_a

end module m


program p
 use m
 implicit none

 integer :: i
 type(t_a) :: tmp
 type(t_a), allocatable :: v(:)

 allocate( v(2) )

 v = new_t_a(1.5)   ! -> segmentation fault

 !tmp = new_t_a(1.5) ! -> OK
 !v = tmp

 !do i=1,size(v)     ! -> also OK
 !  v(i) = new_t_a(1.5)
 !enddo

 do i=1,size(v)
   write(*,*) " i = ",i
   write(*,*) allocated(v(i)%x)
   write(*,*) v(i)%x
 enddo

end program p

Reply via email to