$ cat ftest.f 
      double complex function zhoge()

      zhoge = (0.0d0,0.0d0)

      return
      end

$ gfortran -O2 -S ftest.f; cat test.s