C     CXMAIN.FOR  Copyright(c) 1998, Lahey Computer Systems, Inc.
C     Copying for sale requires permission from Lahey Computers Systems.
C     Otherwise, distribution of all or part of this file is permitted
C     if these four lines are included.
      PROGRAM CXMAIN
      complex :: a, b, c, cxffun, cxafun
      a = (1.0,2.0)
      b = cxffun(a)
      c = cxafun(a)
      print *, 'a=',a
      print *, 'b=',b
      print *, 'c=',c
      stop
      end
      FUNCTION CXFFUN(A)
      complex :: a, cxffun
      cxffun = a+a
      return
      end