http://gcc.gnu.org/bugzilla/show_bug.cgi?id=59678
Bug ID: 59678
Summary: Segmentation fault on equalizing variables of a
complex derived data type
Product: gcc
Version: 4.8.1
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: talebi.hossein at gmail dot com
Hi,
Unfortunetely I could not repeat this with a simpler test example. So this code
below runs fine with Intel compiler but fails with Gfortan. The is the main
file can be replaced in my code from here:
http://sourceforge.net/p/permix/git_pub/ci/master/tree/
The minimalitsic serial version can be compiled with 'make minimal_serial'.
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
Here is the definition of ty_prx:
type :: ty_prx
character(200) :: title
logical :: isInit=.false.
integer :: revision=1183
type(ty_input) :: input
type(ty_part) :: parts
type(ty_interaction) :: interactions
type(ty_define) :: define
type(ty_analysis) :: analysis
type(ty_modify) :: modify
type(ty_initial_condition) :: initial_conditions
type(ty_solver) :: solver
type(ty_output) :: output
type(ty_tools) :: tools
type(ty_restart) :: restart
type(ty_timer) :: timer
type(ty_universe) :: universe
type(ty_error) :: error
type(ty_prx_pointers) :: pointers
contains
!procedure :: init => prx_init
procedure :: finalize => prx_finalize !
end type ty_prx
