!-- print exp(n*I*Pi/4) for n=1..10, where I is the sqrt(-1) program f09 implicit none INTEGER, PARAMETER :: DP = KIND(0.0D0) integer :: n real(kind=DP), parameter :: pi = 4.D0*DATAN(1.D0) complex, parameter :: I = CMPLX(0, 1) DO n = 1,10 print *, exp(n*I*pi/4.0D0) END DO end program f09