PROGRAM liittolainen
  IMPLICIT NONE
  CHARACTER(LEN=*), PARAMETER :: &
      kehote = 'Syötä kompleksiluku z:', &
      tuloste = 'Luku z ja SIN(z):'
  COMPLEX :: z

  WRITE (*,*) kehote  
  READ (*,*) z
  WRITE (*,*) tuloste, z, SIN(z)
END PROGRAM liittolainen