This program produced the error message below it when compiled with ifort 17.0-1589
module qpcomplex
implicit none
integer,parameter :: qp = selected_real_kind(30)
real(qp),parameter:: two = 2
complex(qp),parameter:: qpi = cmplx(0,1,kind=qp)
end module qpcomplex
program prog
use qpcomplex, only: qp,qpi,two
implicit none
integer:: j,n
complex(qp):: z,zseries(30) = [(cmplx(n,0,qp)/two,n=1,10),&
(-1.4_qp+qpi*j/two,j=0,9), (1.4_qp-qpi*j/two,j=0,9)]
do j = 1,size(zseries)
z = zseries(j)
print "(SP,A,F37.33,A,F37.33,A)", '(',real(z),',',aimag(z),')'
end do
end program prog
Intel(R) Fortran 17.0-1589
iforttest2.f90(13): error #6973: This is not a valid initialization expression.
(-1.4_qp+qpi*j/two,j=0,9), (1.4_qp-qpi*j/two,j=0,9)]
---------------^
iforttest2.f90: catastrophic error: **Internal compiler error: segmentation violation signal raised** Please report this error along with the circumstances in which it occurred in a Software Problem Report. Note: File and line given may not be explicit cause of this error.
compilation aborted for iforttest2.f90 (code 1)
