PROGRAM kompleksi
  IMPLICIT NONE
  REAL, PARAMETER :: pii = 3.1415926535
  COMPLEX, PARAMETER :: i = (0.0, 1.0)

  WRITE (*,*) SQRT((-1.0, 0.0))
  WRITE (*,*) EXP(i*pii)
  WRITE (*,*) LOG((-1.0, 0.0))
  WRITE (*,*) SIN(i)
END PROGRAM kompleksi