Hi,
I have a strange problem. When I compile this code:
module user
implicit none
type user_type
real ::
value
integer,
dimension(30,30) :: array
end type
end module
program test_mpi
use user
implicit none
integer,
parameter :: num = 1e5
type(user_type),
dimension(num) :: var
var(1)%value =
19.
write(*,*)
var(1)%value
end program
with gfortran and run it there is no problem.
Now If I compile this program with
mpifort -fcoarray=lib -fopenmp testmod.f95 -lcaf_mpi
and run it with
mpirun -np 1 ./a.out
I got an error Segmentation fault (signal 11)
Now if if compile it with
mpifort -fcoarray=lib testmod.f95 -lcaf_mpi
everything is fine.
Why is it a problem to add the option -fopenmp with this code?
Doing some web searches suggests that using big static array
will not work .
Thanks
Jan