Listing 4: Complex number example.

C     ex2.for  —  —  returns a complex value
      COMPLEX FUNCTION FOO(X)
      COMPLEX X
      FOO = 2*X
      RETURN
      END FUNCTION