Hi all, 

I want to report a bug, when you try to compile the following example with -openmp you get catastrophic error (tried with intel v13.0.1, works on a v12.1.2)

If you remove the save statement or the gradf in argument then it compiles with no error. 

module foo
contains
subroutine hess_grad_approx(gradf)
integer :: i
double precision,dimension(:),allocatable :: gradf
double precision,dimension(:),allocatable,save :: fe

fe(i)=1d0
gradf(i)=1d0

end subroutine
end module foo

thanks