Hi all, The compiler is crashing with the following piece of code, with the options ifort -O2 -c -C . removing -C seems to resolve the issue Thanks subroutine pinv(A,X) implicit none double complex,dimension(:,:),intent(in):: A double complex,dimension(:,:) :: X double complex,dimension(:,:), allocatable :: U,V double complex,dimension(:), allocatable :: work double precision,dimension(:), allocatable :: s,rwork integer :: n,r,lwork,i,info double precision :: tol n = size(A,1) X=A ![U,S,V] = svd(A) lwork=5*n allocate(work(lwork),s(n),rwork(lwork),U(n,n),V(n,n)) call zgesvd('A','A',n,n,X,n, s,U,n,V,n,work,lwork,rwork,info) end subroutine pinv