PROGRAM muuttujat
  IMPLICIT NONE
  LOGICAL :: tulosta = .TRUE.
  COMPLEX :: z = (0.5, 1.0)
  CHARACTER(LEN=20) :: selitys = 'Kompleksiluku:'

  IF (tulosta) THEN
    WRITE (*,*) selitys, z
  END IF
END PROGRAM muuttujat