      program test_double_complex
      DOUBLE COMPLEX Y, ZWORK
      end program
