[Bug fortran/59678] Segmentation fault on equalizing variables of a complex derived data type

[talebi.hossein at gmail dot com]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=59678

--- Comment #4 from Hossein Talebi <talebi.hossein at gmail dot com> ---
Created attachment 31574
  --> http://gcc.gnu.org/bugzilla/attachment.cgi?id=31574&action=edit
test case, permix.f90 and the external

Please replace the contents of permix.f90 with this below. Put the attached
libmpiseq.a into  permix_home/externals/lib_LNX64_SRL_GCC4.63/  . Compile
again. It should be fine now. The executable will be in the permix_home/bin
folder. If this did not work, I will generate a test case next week. 


program permix

   use permix_cmd_handling_mod
   use prx_class, only: ty_prx
   implicit none

   ! ty_prx is a complex derived data type
   type(ty_prx) :: prx, prx2


   ! initializing prx
   Call prx_init(prx,0,'mylog')

   ! running a simulation with giving an input
   call prx%input%job('../verif/Test1/linearelastic_nonsolver.prx ')

   ! prininting a part of the data
   print *,prx%parts%parts_fem(1)%OBJ%femmesh%X

   prx2=prx ! ERROR: Segmentation fault occurs here

end program permix